Pengenalan Skrip VB: Panduan Pemula: Bahagian 2: Bekerja Dengan Fail: 13 Langkah

2024 Pengarang: John Day | [email protected]. Diubah suai terakhir: 2024-01-30 11:13

Baiklah dalam arahan VBScript terakhir saya, saya membincangkan cara membuat skrip untuk mematikan internet anda untuk bermain Xbox360. Hari ini saya menghadapi masalah yang berbeza. Komputer saya dimatikan secara rawak dan saya mahu log setiap kali komputer dihidupkan semula ke dalam fail. Saya mempunyai perasaan bahawa masalahnya adalah kad video tetapi saya ingin memastikannya. Saya membiarkan komputer dihidupkan setiap masa tetapi tidak dapat mengawasinya 24/7, jadi penyelesaian termudah saya adalah menulis cap waktu ke fail setiap kali ia dihidupkan semula. Kerana ia memberi saya BSOD setiap kali, log apabila ia dimatikan akan menjadi sukar, jadi saya harus mendapatkannya apabila ia kembali. Itu adalah bahagian yang mudah. Kerana fakta bahawa ini hanya sementara sehingga saya mengetahui apa yang salah dengan komputer, saya tidak akan menulis ke pendaftaran atau menjadikannya perkhidmatan sehingga akan dimulakan pada waktu boot. Dan untuk mendapatkannya semula setiap kali ia ditutup, saya perlu mengedit bios.

Langkah 1: Mengedit Bios untuk Memulakannya semula pada Gagal Daya

Saya tidak pasti sama ada masalah saya dengan bekalan kuasa tidak berfungsi atau dengan kad video saya atau yang sebenarnya. Tetapi saya tahu bahawa komputer but semula. Oleh itu, untuk memastikan ia dihidupkan semula setelah bekalan elektrik gagal (IE: bekalan kuasa hilang) Saya mahu mengedit bios. Oleh kerana terdapat begitu banyak pembuat bios di luar sana, terlalu sukar untuk menyenaraikan semua cara yang berbeza untuk melakukan ini di semua skrin bios yang berbeza, jadi saya hanya akan memberi anda asas dan membiarkan anda mengetahui secara khusus. Pada asasnya untuk memasuki bios anda, anda perlu menekan butang semasa but. Biasanya ia akan mengatakan sesuatu seperti "tekan Del untuk memasuki persediaan" atau "F2". Pengilang yang berbeza memberi anda cara yang berbeza tetapi biasanya kunci "F2" atau "Del". Sama ada perhatikan dan tekan kekunci yang memberitahu anda untuk menekan. Sekarang anda akan datang ke skrin yang biasanya berwarna kelabu atau biru, tetapi sekali lagi ia bergantung pada pembuatan bios anda. Anda akan mencari pilihan tetapan kuasa. Ia akan berada di tingkap sendiri seperti dalam tangkapan skrin AMIBIOS (dipinjam dari panduan perkakasan toms) atau di beberapa tetingkap mungkin di tetingkap ciri bios yang lebih maju. Bagaimanapun anda sedang mencari tetapan "restore on ac / power loss". Ia mungkin dinamakan sesuatu yang lain tetapi akan hampir dengan itu. Cari sahaja. Ia biasanya akan mempunyai tiga pilihan (keadaan terakhir, hidup selepas kehilangan kuasa, mati selepas kehilangan kuasa). Anda mahu menyalakannya selepas kehilangan kuasa. Pastikan anda menyimpan tetapan dan keluar dari bios. Sekarang apabila kuasa anda gagal atau anda mencabut mesin anda, ia akan dinyalakan semula sebaik sahaja kuasa kembali. Yeahhhhhh !!!!!!!!!!!!!!!!

Langkah 2: Menulis Skrip Bahagian 1: Membuat Rancangan

Perkara pertama yang ingin kita lakukan ialah membuat rancangan. Apa sebenarnya yang kita mahukan skrip itu dilakukan. A.) Apabila kuasa gagal atau BSOD muncul, kita mahu ia reboot. (Diurus pada langkah 1 Mengedit BiosB.) Sebaik sahaja ia dihidupkan semula, kami ingin menulis ke fail tarikh dan masa yang tepat untuk boot semula. C.) Kami mahu dapat meminda fail itu. Sekiranya ia reboot lebih dari sekali, kita tidak akan pernah tahu. D.) Kami mahu ia mempunyai pembetulan ralat sehingga tidak akan mengacaukan dan kami memastikan kami mendapat semua reboot kami tanpa kehilangan apa-apa kerana pengekodan yang buruk. E.) Kami menginginkannya untuk memunculkan mesej yang mengatakan ia reboot. F.) Kami mahu ia membuka fail yang kami tulis sehingga kami dapat melihat senarai semua but semula apabila kami mengklik ok pada mesej yang muncul.

Langkah 3: Menulis Skrip Bahagian 2: Membuat Skrip Anda Menetapkan Pembolehubah

Ok dulu, buat dokumen teks dan namakan semula menjadi any_name.vbs. Saya menggunakan shutdown_catcher.vbs tetapi anda boleh menggunakan apa-apa. Sekarang klik kanan fail vbs dan tekan edit. Sekiranya anda menggunakan notepad ++ sekarang adalah masa yang tepat untuk membukanya, jika anda tidak tetapi merancang untuk melakukan sebilangan besar pengekodan anda harus melihatnya. Sekarang perkara pertama yang ingin kita lakukan ialah membuat pemboleh ubah. Pemboleh ubah pada dasarnya hanyalah pemegang tempat, jadi kita tidak perlu menulis banyak perkara. contoh: kita mempunyai ayat yang mengatakan "musang coklat cepat melompat ke atas anjing yang malas kembali". tetapi terdapat dalam kod kami 20 kali. kita boleh menaip keseluruhan ayat sebanyak 20 kali atau membuat pemboleh ubah dan memberikan kalimat itu kepada pemboleh ubah itu. Jadi dalam contoh ini kita membuat pemboleh ubah strSentence kemudian menetapkan "musang coklat cepat melompat ke atas anjing malas kembali" kepada pemboleh ubah itu. Sekarang yang harus kita lakukan ialah menaip strSentence setiap kali kita memerlukan ayat dan ia tahu untuk menaip "musang coklat cepat melompat ke atas anjing yang malas kembali" bagaimana kita melakukannya: Sekiranya kita mempunyai beberapa pemboleh ubah dari jenis yang sama, kita boleh meletakkan mereka berada pada baris yang sama dan asingkan pemboleh ubah dengan koma. Untuk membuat pemboleh ubah kita perlu melakukan apa yang disebut dimensi pemboleh ubah. Untuk melakukan ini, kita ketik Dim sebelum pemboleh ubah kemudian kita meletakkan awalan pada pemboleh ubah sehingga kita tahu apa yang ditunjukkan oleh pemboleh ubah. Contohnya ialah str untuk variabel rentetan obj untuk objek pemboleh ubah konstanta untuk pemalar…. Senarai terus dan berterusan. ini adalah yang akan kita gunakan dalam skrip ini jadi saya akan menerangkannya sedikit. rentetan biasanya teks seperti ayat. Objek biasanya berbentuk fizikal seperti fail atau program. dan pemalar adalah sesuatu yang akan selalu mempunyai makna yang sama di seluruh skrip. CATATAN: SETIAP MASA SATU LINE MEMPUNYAI SINGLE 'SEBELUM ITU LINE AKAN DITETAPKAN OLEH SKRIP. MEREKA DIPANGGIL PERINGKAT DAN DILAKUKAN SECARA BANYAK OLEH PROGRAM MEREKA BOLEH MENGINGAT APA YANG MEREKA TIDAK TERKINI APABILA MENGAJAR KOD. SAYA AKAN MENGGUNAKAN MEREKA UNTUK MEMBUAT KOMEN MENGENAI KOD SEHINGGA ANDA BOLEH MELIHAT MENGAPA SAYA MENJALANKAN CARA YANG SAYA LAKUKAN. DAN MEREKA AKAN DI ATAS LINE MEREKA MENGIKUTI. Penggunaan Sebenar: 'baris ini memaksa anda untuk menentukan semua pemboleh ubah. Tanpa itu, sebarang pemboleh ubah yang tidak ditentukan akan dianggap sebagai objek Opsi Eksplisit 'sekarang kita membuat 5 pemboleh ubah untuk folder dan fail yang kita perlukan'nama mereka seperti yang anda mahukan tetapi konvensinya adalah preNameDim objFiSyOb, objSysFold, objShell, objFile, objTextFile'now kita perlukan untuk membuat pemboleh ubah string untuk direktori, nama fail dan failDim strDir, strFile, strFileName'now tetapkan nilai kepada pemboleh ubah'the strDir adalah direktori kami yang kami mahukan folder di strDir = "C: / Catcher" 'strFile adalah tempat yang kami mahukan dokumen teks dan apa namanyastrFile = "\ Shutdown_catcher.txt" 'nama strfile jadi kita mempunyai nama fail untuk digunakan dalam pop upsstrFileName = "Shutdown_catcher.txt"' seterusnya kita harus menetapkan pemalar untuk mengakses fail kita mempunyai tiga pilihan, kita hanya akan menggunakan lampiran dalam kod ini tetapi senang mengetahui semua itu. Sebaliknya untukReading = 1, forWriting = 2, ForAppending = 8'lastly kita perlu menetapkan pemboleh ubah ke sistem fail objek sehingga kita dapat memanggilnya kemudian apabila kita memerlukannya Tetapkan objFiS yOb = CreateObject ("Scripting. FileSystemObject")

Langkah 4: Penjelasan di Antara

Sekarang kita mempunyai dimensi pemboleh ubah yang harus kita lakukan adalah mengingat pemboleh ubah spesifik itu setiap masa. Ini bukan sahaja mengurangkan jumlah menaip yang kita lakukan tetapi juga membuat lebih sedikit kesilapan kerana salah ejaan. Sekarang secara teknikal yang harus kita lakukan adalah menaip kod berikut dan kita selesai 'tetapkan fail untuk appendSet objTextFile = objFiSyOb. OpenTextFile (strDir & strFile, ForAppending, True) 'tulis baris baru ke fileobjTextFile. WriteLine ("Komputer anda Matikan" & date & "at" & time)' tutup fileobjTextFile. Close'make pop upWscript. Echo ("Your komputer Matikan "& date &" at "& time) 'buka fail di IESet objShell = CreateObject (" WScript. Shell ") objShell.run (" Explorer "&" "& strDir &" / shutdown_catcher.txt ") Masalahnya adalah ia tidak akan melakukan pembetulan ralat, dan kesalahan mudah seperti fail yang belum ada atau pemboleh ubah yang telah ditetapkan akan merosakkan skrip.

Langkah 5: Menulis Skrip Bahagian 3: Jika Kemudian Penyataan Sebagai Pembetulan Kesalahan

Cara termudah untuk melakukan pembetulan ralat adalah dengan menggunakan pernyataan jika / kemudian. Pada dasarnya pernyataan jika kemudian mengatakan jika sesuatu berlaku maka lakukan ini sebaliknya. Dengan bersarang jika / kemudian pernyataan anda boleh membuat rentetan perkara yang mesti berlaku. Sekiranya a dan b dan c berlaku maka lakukan yang lain lakukan itu.contoh: kami ingin memastikan fail yang ingin kami tulis ada di sana jika kami menjumpainya, kami tidak mahu melakukan apa-apa sekiranya kami tidak menjumpainya, kami mahu membuatnya atau kami ingin memeriksa apakah folder itu ada dan jika tidak membuatnya dan kemudian periksa sama ada fail itu ada setelah kita menjumpai folder tersebut dan jika tidak membuatnya, yang pertama adalah contoh pernyataan if kemudian yang kedua adalah bersarang jika kemudian. kita melakukannya: ada empat bahagian untuk pernyataan if kemudian jika / kemudian lain jika ia pada dasarnya jika ini benar, maka lakukan ini sebaliknya lakukanlah kemudian akhiri penyataan yang dikodkan dengan betul jika pernyataan itu akan menjadi: Jika sesuatu = sesuatu Kemudian lakukan apa yang anda perlu lakukan Else lakukan perkara lainDan SekiranyaAnda boleh menggunakan apa-apa hujah selagi ia benar, ia akan mengikuti bahagian kemudian dan mengabaikan bahagian yang lain tetapi jika ia salah, ia akan melangkau kemudian dan pergi ke yang lain Kemudian apabila kita mengakhiri pernyataan if kita meletakkan "berakhir jika", tetapi jika kita bersarang jika pernyataan kita harus mengakhiri setiap pernyataan jika. Ini akan mengakhiri mereka dari anak ke ibu bapa jadi "akhir jika" yang pertama mengakhiri pernyataan if di dalam ibu bapa, di mana yang kedua mengakhiri pernyataan asal (induk) jika pernyataan. Untuk membuat pop timbul, kita ketik Wscript. Echo ("apa sahaja kami ingin mengatakan dalam mesej ") untuk menambahkan nilai pemboleh ubah ke dalamnya, kami meletakkannya di luar atau di antara tanda petik ganda menggunakan tanda ampersand (&) sebagai pembatas sehingga skrip mengetahui bahawa ia adalah pemboleh ubah dan bukan teks. seperti ini: Wscript. Echo ("Blah bla bla" & strDir & "bla bla bla" & strFilename & "bla bla bla.") Keluarannya akan muncul yang mengatakan Blah bla bla C: / Catcher bla bla bla shutdown_catcher.txt bla bla bla. Penggunaan Sebenar: 'jika folder C; / ada Jika objFiSyOb. FolderExists (strDir) Kemudian'get folder Tetapkan objSysFold = objFiSyOb. GetFolder (strDir)' ٻي صورت Else'buat folder c; / catcher Set objSysFold = objFi CreateFolder (strDir) 'dan periksa untuk melihat apakah fail dan folder itu ada Jika objFiSyOb. FileExists (strDir & strFile) Kemudian'jika ia mendapat folder c: / catcher Set ob jSysFold = objFiSyOb. GetFolder (strDir) 'ٻي صورت Else'create dokumen teks shutdown_catcher.txt Tetapkan objFile = objFiSyOb. CreateTextFile (strDir & strFile)' kemudian muncul mesej untuk mengatakan bahawa anda membuat mereka berdua folder Wscript. Echo ("Kami telah membuat mereka dinamakan "& strDir &" dan fail bernama "& strFilename &" dan meletakkannya di dalam direktori "& strDir & strFile &". ") 'bersarang jika penyataanEnd If'end original if statementEnd If'now pada pernyataan if pertama kami sudah memeriksa folder dan menjumpainya sehingga sekarang kami memeriksa failJika objFiSyOb. FileExists (strDir & strFile) Kemudian'if dijumpai mendapatkan folder Tetapkan objSysFold = objFiSyOb. GetFolder (strDir) 'jika tidak, buat lagi teks teks Tetapkan objFile = objFiSyOb. CreateTextFile (strDir & strFile) 'membuat pop timbul yang mengatakan bahawa kami membuat dokumen teks Wscript. Echo ("Kami telah membuat fail bernama" & strFileName & "dalam folder" & strDir & ".") Tamat Jika

Langkah 6: Penjelasan di Antara

Sekiranya anda melihat kod dari langkah sebelumnya dengan teliti, anda akan melihat pernyataan yang bersarang dan tidak bersarang jika kemudian. Yang pertama adalah penyataan bersarang. Ia memeriksa folder dan fail dan jika tidak dijumpai, keduanya akan membuat keduanya. Yang kedua hanya mencari fail dan jika tidak dijumpai ia hanya menghasilkan fail. Mungkin ada yang mengatakan mengapa keduanya. Nah apa yang berlaku jika fail itu dihapus tetapi foldernya tidak. Penyataan pertama jika akan melangkau ke kanan semasa membuat fail kerana ia menemui folder dan tidak akan menggerakkan bahagian penyataan yang lain. Oleh itu, semasa anda menulis ke fail, kesalahan akan berlaku kerana fail tersebut akan hilang. Oleh itu, dengan mendapatkan yang kedua di sana ia dapat menyelesaikan masalah ini. Secara teknikal anda boleh mengeluarkan penyataan bersarang kerana hampir sama dengan pernyataan kedua jika kemudian tetapi kemudian anda hanya akan mempunyai satu pop timbul dan ia tidak akan menjadi keperibadian Selain itu saya memberi peluang untuk menunjukkan kepada anda bersarang berbanding dengan un -bersarang jika penyataan.

Langkah 7: Lebih Banyak Pembetulan Ralat

Sekarang kita telah menyelesaikan sebahagian besar pembetulan kesalahan yang ingin kita tulis ke fail dan menunjukkan pop timbul. Masalahnya adalah kita akan mendapat kesalahan kebenaran jika kita tidak melepaskan rujukan objek sebelumnya yang disimpan dalam pemboleh ubah. Oleh itu, kami ingin memasukkan coretan kecil kod yang mengatakan tetapkan pemboleh ubah menjadi apa-apa. Kelihatan seperti ini: set objFile = nothingset objSysFold = nothingJadi bagi anda yang mengikuti kod anda di rumah hingga sekarang (saya mengambil komen keluar): Option ExplicitDim objFiSyOb, objSysFold, objShell, objFile, objTextFileDim strDir, strFile, strFileNamestrDir = "C: / Catcher" strFile = "\ Shutdown_catcher.txt" strFileName = "Shutdown_corder = 1 ForAppending = 8Set objFiSyOb = CreateObject ("Scripting. FileSystemObject") Sekiranya objFiSyOb. FolderExists (strDir) Kemudian Tetapkan objSysFold = objFiSyOb. GetFolder (strDir) Else Set objSysFold = objFireSyFFySFYFYSFRDFYSFYFIFIFRYSFODFIFIFIFFR Tetapkan objSysFold = objFiSyOb. GetFolder (strDir) Lain-lain Tetapkan objFile = objFiSyOb. CreateTextFile (strDir & strFile) Wscript. Echo ("Kami telah membuat folder bernama" & strDir & "dan fail bernama" & strFilename & "dan letakkan di dalamnya direktori "& strDir & strFile &". ") Tamat I fEnd IfJika objFiSyOb. FileExists (strDir & strFile) Kemudian Tetapkan objSysFold = objFiSyOb. GetFolder (strDir) Else Set objFile = objFiSyOb. CreateTextFile (strDir & strFile) Wscript. Echo ("Kami telah mencipta" Folder fail "& strDir &". ") Akhir Ifset objFile = nothingset objSysFold = tiada

Langkah 8: Menulis Skrip Bahagian 4: Menetapkan Atribut

Sekarang kita perlu menetapkan atribut ke fail sehingga kita dapat mengubahnya. Sebelum ini kami menetapkan tiga pemboleh ubah tetap: untukReading = 1forWriting = 2 forAppending = 8jika anda menetapkannya untukMembaca, anda akan dapat membacanya tetapi tidak menuliskannya. Jika anda menetapkannya untuk Menulis, anda akan menimpa fail yang ada setiap kali anda menjalankan program. Sekiranya anda menetapkannya untuk Menambah, anda akan menambahkan baris baru setiap kali skrip dijalankan ke dokumen. Oleh kerana kami mahukan log setiap kali ia reboot, kami mahu ia ditambahkan dan tidak ditulis sehingga kami menggunakan forAppending. Bagaimana kami melakukannya: anda harus menamakan objek yang ingin anda tetapkan atributnya. Oleh kerana kita telah melakukan sebahagian besar pekerjaan pada langkah sebelumnya, kita hanya perlu mengingat pemboleh ubah pada ketika ini. Kemudian tetapkan ke true. Penggunaan Sebenar: 'objek ke set = filesystemobject.action (direktori + nama fail, atribut, benar atau salah) Tetapkan objTextFile = objFiSyOb. OpenTextFile (strDir & strFile, ForAppending, True)

Langkah 9: Menulis Skrip Bahagian 5: Menulis ke Fail

Menulis ke fail sama seperti menulis pop timbul. Anda hanya meletakkan: objTextFile. WriteLine ("Apa sahaja yang anda ingin katakan" & Pemboleh ubah untuk menarik baris tulis) Satu-satunya perbezaan adalah bahagian pertama. Dalam pop up anda meletakkan: Wscript.echoin baris tulis yang anda masukkan: objTextFile. WriteLineDan dalam baris tulis anda harus menutup baris tulis sehingga tahu berhenti menulis dan untuk itu anda menggunakan: objTextFile. CloseActual Usage: objTextFile. WriteLine ("Computer Anda Shut down on" & date & "at" & time) objTextFile.close'now tambahkan pop timbul untuk mengatakan bahawa anda menulis ke fail sehingga orang itu tahu ia berlaku'dan mereka harus menutupnya untuk membuka fail dan melihatWscript. Echo ("Komputer anda Matikan" & tarikh & "di" & masa)

Langkah 10: Menulis Skrip Bahagian 5: Membuka Fail untuk Melihat

Skrip pada ketika ini akan berhenti sehingga seseorang mengklik pop timbul. Sebaik sahaja anda melepasi pop timbul, anda boleh meletakkan baris yang membuka fail. Menggunakan beberapa pembetulan ralat di atasnya membantu program tetap berjalan dengan baik. Apabila anda membuat ralat dalam vbscript, ia menambah nilai pada pemboleh ubah "err.number" yang merupakan pemboleh ubah yang ditentukan sebelumnya dalam vbscript. Anda tidak perlu menentukannya dan boleh menggunakannya seperti pemboleh ubah lain selagi anda tidak melanggar peraturannya. Nilai yang diberikan kepada pemboleh ubah err.number adalah kod untuk ralat yang berlaku. Sekarang anda boleh memeriksa setiap kod ralat yang diketahui dalam pangkalan data vbscript dan memastikannya tidak berlaku. Atau lebih mudah, hanya memeriksa untuk memastikan pemboleh ubah kesalahan itu kosong. jika kosong tidak ada kesalahan yang berlaku. Untuk melakukan itu, kita periksa sama ada pemboleh ubah sama dengan vbEmpty. Oleh itu, dalam skrip kami, kami mahu menggunakan pernyataan yang lain jika kemudian. Dan periksa untuk mengetahui apakah ralat berlaku dan apakah ia tidak membuka fail untuk dilihat, tetapi jika berlaku maka muncullah mesej dengan nombor ralat di dalamnya sehingga kita dapat melakukan debug. Kemudian apabila kita semua selesai dengan skrip kita, kita taip Wscript. Quit. Ini memberitahu skrip untuk menamatkan dirinya sendiri. Ini membantu mengekalkan kebocoran memori dan proses yang tidak diingini berjalan. Bagaimana cara penggunaannya: jika kesalahan.nombor sama dengan vb Kosongkan kemudian buat shell kemudian jalankan program dari shell ke arah lain muncul mesej yang mengatakan ada kesalahan jika. Penggunaan Sebenar: 'periksa KesalahanJika err.number = vb Kosongkan 'jika tidak ada yang membuat shell Set objShell = CreateObject ("WScript. Shell")' kemudian buka fail dari shell itu menggunakan explorer. ia sebenarnya akan terbuka di IE walaupun objShell.run ("Explorer" & "" & strDir & "\ shutdown_catcher.txt") 'sebaliknya memunculkan mesej dengan nombor ralat Else WScript.echo "Kesalahan VBScript:" & err.numberEnd Sekiranya 'end scriptWscript.quit

Langkah 11: Mendapatkan Skrip untuk Dijalankan pada Permulaan

Terdapat folder fail di menu permulaan yang disebut Startup. Apa sahaja yang dimasukkan ke dalam folder ini akan dimulakan sebaik sahaja komputer dimulakan. Dengan meletakkan fail skrip di folder permulaan, ia akan dijalankan setiap kali komputer dihidupkan semula sama ada disengajakan atau tidak. Oleh kerana saya hanya menggunakan ini sebagai alat diagnostik, alat ini tidak perlu dijadikan perkhidmatan untuk memulakan, dan saya tidak perlu memasukkannya ke dalam pendaftaran untuk memulakannya, jadi ini akan baik-baik saja. Setelah saya membetulkan komputer, saya dapat memadam fail dari folder permulaan dan tidak diperlukan pembersihan lain.

Langkah 12: Menjalankan Program

Apabila anda menjalankan fail vbscript sekarang akan A.) Periksa untuk melihat apakah folder C: / Catcher ada dan jika tidak membuatnya. B:) Periksa untuk melihat apakah fail Shutdown_catcher.txt ada dan jika tidak membuatnya. C:) Sekiranya ia dibuat sama ada folder atau fail atau kedua-duanya akan muncul mesej yang mengatakan ia membuatnya (Catatan: ia hanya perlu melakukan ini pada jalan pertama setelah itu ia sudah ada kecuali dipadamkan jadi anda hanya perlu melihat mesej itu sekali. Mungkin merupakan idea yang baik untuk menjalankan skrip ini sekali di bawah but semula yang dikawal sehingga anda boleh memintas pop timbul ini atau anda mungkin tidak menulis apa-apa ke fail kerana tidak akan memintas fail yang dibuat pop timbul.) D:) Tulis baris di dokumen teks Shutdown_Catcher.txt mengatakan bahawa komputer dimatikan pada tarikh tersebut dan pada tarikh tersebut dan pada masa itu. E:) Muncullah mesej yang mengatakan terdapat rebootF:) Buka fail untuk dilihat. Sekiranya anda melihat pada langkah seterusnya anda akan melihat kodnya seperti ditulis. Sekarang yang perlu saya buat hanyalah duduk dan tunggu. Setiap kali komputer dihidupkan semula, saya akan mempunyai rekodnya. Kemudian saya dapat menyemak rekodnya dan melihat apakah ada konsistensinya. Contohnya ialah reboot setiap setengah jam atau reboot setiap kali ada kenaikan atau 45 pada jam. Ini bukan satu-satunya cara saya memeriksa komputer, hanya untuk anda tahu. Saya juga mempunyai program penanda aras yang dijalankan untuk memeriksa suhu sehingga saya tahu betapa panasnya ketika mematikan, voltan jadi saya tahu jika bekalan kuasa gagal, dan beberapa perkara lain yang bermanfaat. Saya harap ini bermanfaat. Saya tahu saya menikmatinya jadi mungkin juga orang lain juga. Sekiranya anda mempunyai sebarang pertanyaan, sila bertanya. Saya mungkin tidak menghubungi mereka dengan segera tetapi akan berlalu sedikit dan saya akan menjawab anda. Bergantung pada bagaimana hari / minggu saya lakukan.

Langkah 13: Kodnya

Ini adalah kod yang ditulis tanpa semua petunjuk dan komen_Option ExplicitDim objFiSyOb, objSysFold, objShell, objFile, objTextFileDim strDir, strFile, strFileNamestrDir = "C: / Catcher" strFile = "\ Shutdown_catchert Const forReading = 1, forWriting = 2, ForAppending = 8Set objFiSyOb = CreateObject ("Scripting. FileSystemObject") Jika objFiSyOb. FolderExists (strDir) Kemudian Tetapkan objSysFold = objFiSyOb. GetFolder (strDirFySFRD) objFiSyOb. FileExists (strDir & strFile) Kemudian Tetapkan objSysFold = objFiSyOb. GetFolder (strDir) Else Set objFile = objFiSyOb. CreateTextFile (strDir & strFile) Wscript. Echo ("Kami telah membuat folder bernama" "& strFilename &" dan letakkan di direktori "& strDir & strFile &". ") Tamatkan IfEnd IfIf objFiSyOb. FileExists (strDir & strFile) Kemudian Tetapkan objSysFold = objFiSyOb. GetFolder (strDir) Else Set objFile = objFi strDir & strFile) Wscript. Echo ("Kami ada membuat fail bernama "& strFileName &" dalam folder fail "& strDir &". ") Akhir Ifset objFile = nothingset objSysFold = everythingSet objTextFile = objFiSyOb. OpenTextFile (strDir & strFile, ForAppending, True) objTextFile. WriteLine Matikan "& date &" at "& time) objTextFile. CloseWscript. Echo (" Komputer anda Matikan "& date &" at "& time) Jika err.number = vbEmpty kemudian Tetapkan objShell = CreateObject (" WScript. Shell ") objShell.run (" Explorer "&" "& strDir &" / shutdown_catcher.txt ") Else WScript.echo" Ralat VBScript: "& err.numberEnd IfWScript. Quit