Pengenalan Skrip VB: Panduan Pemula: 11 Langkah

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

*** ((((ALERT: Walaupun ada banyak langkah. Ini sebenarnya agak mudah. Saya hanya menerangkan semuanya secara terperinci untuk pemula. Sekiranya anda mahu kod melonjak ke langkah terakhir dan anda akan dapati yang lengkap kod di sana.)))) *** Saya bermain banyak Xbox secara langsung dan selalu perlu melumpuhkan internet di komputer saya kerana menggandakan lebar jalur. Terutama kerana saya memuat turun atau memuat naik barang sepanjang masa. Masalahnya tidak mematikannya tetapi membalikkannya sehingga saya lupa, menjadikannya di mana saya melepaskan semua masa memuat naik / memuat turun. Oleh itu, saya memutuskan untuk membuat program untuk melakukannya untuk saya. Saya akan menuliskannya di Vb.net tetapi baru-baru ini saya perlu membuat dan mengoperasikan sistem operasi saya di komputer saya kerana ribut buruk menggoreng cakera keras saya, dan belum memasang semula VB.net jadi saya fikir ini akan berlaku beri saya alasan untuk bermain dengan vbscript. Saya juga membuat gambar dalam cat untuk dipaparkan di latar belakang sehingga saya tahu ia sedang berjalan.

Langkah 1: Ketahui Apa Yang Anda Mahu Lakukan

Perkara pertama yang selalu saya lakukan ialah membuat rancangan. Apa yang saya mahu program ini dilakukan? A) Saya mahu dapat membuka skrip dan ia akan memutuskan sambungan secara automatik. B) Saya mahu ia memaparkan paparan raksasa di latar belakang sehingga tidak ada kesalahan bahawa internet mati, dengan cara ini saya tidak lupa menghidupkannya kembali. C) Saya mahu ia memberi saya pilihan untuk menghidupkannya hidupkan semula dan kemudian tunggu jawapan. D) Saya mahu ia memastikan saya menghidupkannya semula supaya saya tidak lupa. E) Kemudian setelah saya benar-benar mengatakan ya untuk menghidupkannya semula, skrip menghidupkannya semula dan kemudian menutup latar belakang. F) Keluar semuanya.

Langkah 2: Perkara yang Saya Gunakan Tetapi Tidak Perlu

Yang anda perlukan hanyalah penyunting teks seperti notepad. Semua yang lain adalah pilihan. Saya menggunakan Notepad ++ ketika saya melakukan skrip VB kerana ia memperlakukannya seperti yang dilakukan oleh vb.net dengan warna dan mengetahui bahasanya. Ia membantu mengelakkan kesilapan. Ini juga memberi nombor sehingga anda dapat mendiagnosis apa masalahnya apabila anda mendapat kod ralat. Boleh dapatkan dari sini notepad ++

Langkah 3: Mulakan Pengaturcaraan

Perkara pertama yang anda ingin lakukan ialah membuat fail teks dan menyimpannya pada apa sahaja yang anda mahukan untuk dinamakan dengan sambungan fail.vbsContoh: NetworkShutOffScriptThatShutsOffTheInternetSoIcanPlayGamesOnMyXboxAndNotGetLag.vbsContoh 2: games.vbsApa yang penting ialah anda memberi nama pada fail itu..vbsSaya biasanya melakukan ini di desktop kerana saya membukanya kira-kira zillion kali semasa saya mengusahakannya. Sekarang klik kanan fail dan tekan edit atau edit dengan notepad ++

Langkah 4: Langkah 1: Membuka Tetingkap Prompt Perintah

Oleh itu, saya memutuskan untuk melakukan sebahagian besar kerja, saya hanya akan menggunakan program yang sudah disimpan di komputer untuk melakukan apa yang saya mahukan. Kurang Pengekodan dan tiada muat turun… Woohoo. Paling mudah adalah command prompt. Jadi kami ingin membuka tetingkap command prompt untuk melakukannya kami ingin membina objek untuk melakukannya kami taip: set shellobj = CreateObject ("WScript. Shell") Apa yang dilakukannya: Tetapkan contoh shellobj agar sama dengan membuat shell skrip objek. Dengan cara ini yang harus kita lakukan adalah ketik shellobj dan bukannya CreateObject ("WScript. Shell") setiap kali kita memerlukan perintah baru. Sekarang kita telah membuat objek, kita mengarahkan objek untuk membuka tetingkap command prompt. Untuk melakukan itu kita ketik: shellobj.run "cmd" Apa yang dilakukannya: Ini sama dengan menaip CMD ke dalam kotak larian pada menu mula. Sekiranya kita tidak menetapkan shellobject pemboleh ubah, kita harus mengetik: CreateObject ("WScript. Shell"). Jalankan "cmd" … lihat betapa mudahnya sekarang. Kurang ruang untuk kesilapan. Klik fail … kemudian Simpan … kemudian pergi ke desktop dan klik dua kali vbsfile yang anda buat seharusnya berjalan. Sekiranya semuanya berjalan dengan betul, anda harus mendapatkan arahan arahan windows untuk muncul …..yaaaaaa !!! jika tidak periksa pengekodan anda, setakat ini anda harus: set shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" Anda boleh menambahkan komen ke dalam skrip anda sehingga anda ingat apa yang anda lakukan kemudian dengan meletakkan koma di hadapan baris seperti ini: 'ini adalah untuk membuka command prompt Ketika saya membuat pengekodan berkali-kali saya akan melakukannya sehingga saya ingat apa yang saya buat kemudian ketika saya mencarinya. Skrip hanya mengabaikan garis itu dan terus berjalan. Sekiranya anda melihatnya, anda boleh melakukan perkara yang sama.

Langkah 5: Langkah 2: Menyiapkan Pemasa

Baiklah, sekarang kita mempunyai tetingkap baru yang spiffy, kita perlu mengisi dengan perintah supaya kita dapat melakukan apa yang kita inginkan. Masalahnya ialah sebilangan komputer memerlukan masa lebih lama daripada yang lain untuk membuka tingkap sehingga kita ingin skrip menunggu sedikit sedikit untuk memulakan. jika ia dimulakan tidak lama lagi komputer akan mengisi tempat kosong sebelum anda membuka tetingkap dan anda akan mendapat arahan separa atau tidak sama sekali. Oleh itu, kita perlu menyediakan pemasa. Untuk melakukan ini, kami taip: wscript.sleep 200Apa yang dilakukannya: Ini memberitahu skrip untuk menunggu jumlah masa X sebelum melaksanakan perintah seterusnya. 1000 sama satu saat, jadi saya menunggu kelima saat. Anda mungkin mendapati komputer anda perlu menunggu lebih banyak masa atau kurang. Sekiranya anda menonton komputer dan tidak menaip perintah dengan betul, ubah nombor ke nombor yang lebih tinggi seperti 2000 akan menjadi 2 saat dan mungkin banyak masa. Simpan fail sekarang kod anda pada tahap ini: set shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" wscript.sleep 200

Langkah 6: Langkah 3: Buat Gambar

Saya baru saja membuka cat dan menaip "Internet Disconected" ke dalamnya dan menjadikannya 800x600 dan menyimpannya sebagai id.bmp dan menyimpannya di direktori root saya, dalam kes saya k: / tetapi anda mungkin akan menjadi c:

Langkah 7: Langkah 4: Menghantar Perintah, Membuka Gambar

Ok sekarang kita mempunyai tetingkap perintah yang menunggu perintah yang harus kita lakukan adalah memasukkan perintah ke dalam tetingkap menggunakan perintah sendkeys. Apabila kita menggunakan perintah sendkeys seperti menaip tetapi ia akan menaip apa sahaja yang kita mahukan untuk menaip. Apa sahaja yang boleh kita taipkan boleh kita hantar termasuk kunci enter yang diperlukan untuk melaksanakan program. Sekarang kita tahu bagaimana menghantar kunci membolehkan membuka gambar kita yang baru kita buat, kemudian masukkan kata pemasa yang lain sehingga memberi masa gambar untuk dimuat. Untuk melakukan ini, kami taip: shellobj.sendkeys "k: / id.bmp {enter}" wscript.sleep 200Apa yang dilakukannya: Ini sama dengan menaip k: / id.bmp ke dalam kotak larian. Ia harus membuka gambar anda dalam penampil gambar lalai untuk bmp … dalam kes saya ini adalah paparan gambar windows dan faks tetapi kebanyakan orang memasang program selepas pasar yang melakukan ini juga sehingga siapa yang tahu apa yang akan anda buka. Sekarang simpan fail anda dan jalankan. Anda harus mendapatkan command prompt dan gambar untuk muncul. setakat ini !!! kod anda setakat ini mestilah: set shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" wscript.sleep 200shellobj.sendkeys "k: / id.bmp {enter}" wscript. tidur 200

Langkah 8: Langkah 5: Menghantar Perintah, Matikan Internet

Pada ketika ini jika anda belum melakukannya, muat turun fail pdf pada akhir jadi jika anda mengacaukannya, anda akan memuat turun Instructable mengenai cara memperbaikinya. Sekarang di sinilah keseronokan bermula. Ok jadi kami akan menggunakan ipconfig untuk melepaskan alamat IP kami. Tanpa alamat IP, kami tidak akan mendapat lalu lintas internet kerana penghala tidak tahu ke mana harus menghantarnya ke komputer. Untuk melakukan ini, kami taip: shellobj.sendkeys "ipconfig / release {enter}" Apa yang dilakukannya: Ini mengarahkan program IPCONFIG untuk melepaskan alamat IP. {enter} memberitahu komputer bahawa anda menekan butang enter. ini seperti menaip ipconfig / release ke dalam window run dan menekan enter. Biasanya setelah anda melakukan ini, jika anda menjalankan ipconfig, ia akan memberitahu anda alamat IP anda adalah 0.0.0.0 Inilah yang kami mahukan. Tanpa alamat IP, penghala tidak tahu kita ada di sini dan tidak ada program yang boleh "dial out". Sekarang kita telah berjaya mematikan IP kita mahu menutup tingkap. Sekarang kita dapat menulis baris lain yang mengatakan: shellobj.sendkeys "exit {enter}" Tetapi lebih mudah untuk hanya mengedit baris di atas dan menambahkannya hingga akhir sehingga anda mempunyai: shellobj.sendkeys "ipconfig / release {enter} exit {enter} "Sekarang simpan tetapi jangan jalankan kerana anda akan mematikan sambungan internet anda. Sekiranya anda menjalankannya, dan internet anda dimatikan, ubah saja suis dari ipconfig / release ke ipconfig / renew dan jalankan semula dan ia harus menghidupkannya semula. Dan jika semua yang lain gagal reboot dan anda semestinya baik. Kod anda setakat ini: set shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" wscript.sleep 200shellobj.sendkeys "k: / id.bmp { masukkan} "wscript.sleep 200shellobj.sendkeys" ipconfig / release {enter} keluar {enter}"

Langkah 9: Langkah 6: Membuat Kotak Mesej dan Menunggu Jawapan

Ok, sekarang setelah kita berjaya mematikan internet dan menutup tetingkap arahan, kita mahu kotak mesej muncul dan bertanya sama ada kita mahu menghidupkan semula internet. Tetapi di sinilah ia menjadi sukar, kita mahu menunggu untuk ya tetapi jika kita klik tidak, kita tidak mahu ia hilang, jadi kita akan menggunakan pernyataan sementara untuk melakukan ini. Pertama kita perlu memodifikasi pemboleh ubah untuk kotak pesan supaya kita dapat memberikannya pemboleh ubah nombor. Saya tahu kedengarannya membingungkan tetapi sebenarnya tidak. kita sudah melakukannya sekali dengan baris: set shellobj = CreateObject ("WScript. Shell") yang satu ini bahkan lebih mudah untuk siapkan, kita hanya ketik: Dim MyVar / tidak "kotak mesej muncul di skrin anda dan anda mengklik butang yang memberikan nilai untuk setiap butang, dalam hal ini" ya "adalah 1 dan" tidak "adalah 2. Kami mahu pemboleh ubah dimulakan dengan" tidak "Jadi kami memberikannya nombor 2 secara lalai, dengan cara ini berhenti sehingga butang diklik Untuk melakukan ini kami taip: myvar = 2Apa yang dilakukannya: sekarang MyVar sama dengan 2, dengan cara ini pada baris seterusnya ia akan berhenti dan menunggu input. Sekarang kita hanya mahu ia duduk di sana dan menunggu sehingga kita bersedia untuk menghidupkan kembali internet. Untuk melakukan ini kita menaip: while myvar = 2Apa yang dilakukannya: Dengan melakukan ini kita telah memberitahu skrip bahawa selagi nilai myvar = 2 maka terus gelung kotak mesej sehingga kita mendapat nilai lain daripada 2, yang dalam kes ini hanya boleh menjadi 1Seterusnya kita benar-benar mahu membuat kotak mesej muncul dengan butang ya / tidak. ini kami taip: MyVar = MsgBox ("Hidupkan sambungan internet", 65, "Hidupkan Sambungan Internet") Apa yang dilakukannya: Sekarang pemboleh ubah MyVar akan diberikan apa sahaja nilai yang diberikan pada butang yang diklik pada kotak mesej. bahagian pertama dalam petikan adalah apa yang sebenarnya akan dinyatakan oleh kotak mesej. 65 menetapkannya sebagai kotak mesej Ya / Tidak. dan bahagian terakhir dalam tanda kutip adalah label kotak mesej. untuk memeriksa untuk melihat nilai apa yang diberikan ketika anda mengklik ya atau tidak, anda boleh menambah baris yang mengatakan msgbox (myVar) dan ia akan mencetak apa sahaja nilai yang diberikan kepada myvar di kotak mesej. sekarang bahawa kita mempunyai kotak mesej kita perlu menutup pernyataan sementara. Semua yang ada di antara pernyataan buka dan tutup sementara akan berjalan setiap kali anda mengklik tidak, kerana jika anda mengklik tidak, ia masih bernilai 2 dan kembali ke bahagian pertama. Untuk mengakhiri jenis pernyataan sementara: wend Adakah: Setelah anda menghentikan pernyataan sementara, ia akan bertindak sebagai gelung sehingga hujah tidak lagi dipenuhi. Oleh itu, jika anda terus menekan tidak, ia akan melambung tetapi setelah anda menekan ya, ia akan bebas dari gelung dan teruskan dengan skrip. Simpan fail tetapi tunggu untuk menjalankannya sehingga langkah seterusnya. Kod anda setakat ini: set shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" wscript.sleep 200shellobj.sendkeys "k: / id.bmp { enter} "wscript.sleep 200shellobj.sendkeys" ipconfig / release {enter} exit {enter} "Dim MyVarmyvar = 2 Sementara myvar = 2MyVar = MsgBox (" Hidupkan sambungan internet ", 65," Hidupkan Sambungan Internet ")

Langkah 10: Langkah 7: Menghidupkan Internet Kembali

Sekarang seseorang akhirnya mengeklik ya dan telah melewati pernyataan sementara, kita perlu menggunakan internet. Saya biasanya membuat pengesahan sehingga pengguna akhir tahu apa yang sedang berlaku tetapi itu adalah pilihan. Untuk memunculkan jenis pengesahan: msgbox ("Kami sekarang akan menghidupkan semula Sambungan Internet !!!") Apa yang dilakukannya: ia menghantar kotak mesej yang mengatakan bahawa Kami sekarang akan menghidupkan kembali Sambungan Internet !!! dan memberi anda butang ok untuk mengklik. Sekarang yang perlu kita lakukan ialah menghidupkan kembali internet dan menutup semuanya. untuk menghidupkan semula internet kita hanya membuka command prompt tetapkan pemasa kemudian gunakan ipcionfig lagi. untuk melakukan ini taip: shellobj.run "cmd" wscript.sleep 200shellobj.sendkeys "ipconfig / renew {enter}" Apa yang dilakukannya: ia membalikkan perintah mematikan dari sebelumnya dan memperbaharui alamat IP anda. Setelah memperbaharui alamat IP anda, anda kini boleh mendapatkan sambungan internet sekali lagi. Sekarang yang perlu kita lakukan hanyalah membersihkan tingkap yang terbuka. Sekali lagi kita boleh menggunakan perintah sendkeys tetapi saya hanya akan menambahkan baris terakhir untuk melakukan pembersihan juga. Dalam contoh ini saya akan menggunakan program taskkill untuk membunuh program yang memaparkan gambar. Dalam kes ini, ia adalah paparan gambar windows dan faks dan muncul sebagai rundll32.exe di tab proses pengurus tugas sehingga itulah yang perlu kita bunuh. Sekiranya gambar anda dibuka menggunakan program lain, seperti irfanview, atau acdsee, cari nama yang dilaluinya di tab proses dan letakkan rundll32.exe dengan nama yang anda dapati. Perintahnya adalah: taskkill / F / IM rundll32.exeApa itu melakukan: taskkill adalah nama program yang suis / F memberitahunya untuk memaksa membunuh dan suis / IM memberitahunya nama gambarJadi sekarang kita menambahkannya ke baris terakhir, tambahkan enter untuk melaksanakan perintah dan kemudian perintah keluar dan masukkan yang lain dan kelihatan seperti ini: shellobj.sendkeys "ipconfig / renew {enter} taskkill / F / IM rundll32.exe {enter} exit {enter}" Simpan fail anda.

Langkah 11: Produk Selesai

Sekiranya semuanya berjalan lancar, produk siap anda akan kelihatan seperti ini: set shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" wscript.sleep 200shellobj.sendkeys "k: / id.bmp {enter}" wscript.sleep 200shellobj.sendkeys "ipconfig / release {enter} exit {enter}" Dim MyVarmyvar = 2 sementara myvar = 2MyVar = MsgBox ("Hidupkan sambungan internet", 65, "Hidupkan Sambungan Internet") wendmsgbox ("Kami sekarang akan Menghidupkan Internet Sambungan kembali !!! ") shellobj.run" cmd "wscript.sleep 200shellobj.sendkeys" ipconfig / renew {enter} taskkill / F / IM rundll32.exe {enter} exit {enter} "_end of script_Now bahawa pengaturcaraannya selesai anda boleh menjalankan program. Apa yang harus berlaku: 1.) Anda harus membuka tetingkap CMD untuk waktu yang sangat singkat kemudian ditutup 2.) Internet anda tidak lagi berfungsi. tetapi anda tidak akan melihat ini anda tetapi sekali lagi bertanya apakah anda mahu menghidupkan kembali internet.6.) Setelah anda klik ya kotak mesej akan hilang dan tetingkap CMD akan muncul kembali7.) Setelah alamat IP diperbaharui tetingkap CMD dan gambar harus ditutup. Di sana anda memilikinya. Skrip VB yang sangat mudah untuk menghidupkan dan mematikan internet anda. Harap awak suka. Saya sebenarnya membuat skrip lain yang hampir sama dengan skrip ini yang mematikan penyesuai rangkaian menggunakan program bernama DevCon, yang seperti pengurus peranti baris perintah. Berfungsi dengan baik untuk. Skrip sama dengan yang ini kecuali di mana ia mempunyai perintah untuk ipconfig yang mempunyai perintah untuk DevCon.