VB skriptiga kirish: yangi boshlanuvchilar uchun qo'llanma: 11 qadam

2024 Muallif: John Day | [email protected]. Oxirgi o'zgartirilgan: 2024-01-30 13:29

*** ((((OGOHLANTIRISH: Garchi ko'p qadamlar bo'lsa ham, bu juda oson. Men yangi boshlanuvchilar uchun hamma narsani batafsil tushuntirib beraman. Agar siz kodni oxirgi bosqichga o'tishni xohlasangiz, to'liq topasiz) U erda kod.)))) *** Men juda ko'p Xbox -ni o'ynayman va har doim kompyuterimda Internetni o'chirib qo'yishga to'g'ri keladi, chunki u tarmoqli kengligini ushlab turadi. Asosan, men har doim narsalarni yuklayman yoki yuklayman. Muammo uni o'chirib qo'ymaydi, lekin men uni unutib qo'yaman va uni yuklash/yuklash vaqtini yo'qotib qo'yaman, shuning uchun men o'zim uchun dastur yaratishga qaror qildim. Men buni Vb.net -da yozmoqchi edim, lekin yaqinda qattiq diskda bo'ron bo'lgani uchun operatsion tizimimni kompyuterimga o'rnatib qo'yishim kerak edi va VB.net -ni qayta o'rnatmaganman, shuning uchun men buni o'ylardim Menga vbscript bilan o'ynashga sabab bering. Men ham fonda ko'rsatish uchun bo'yalgan rasmni yaratdim, shuning uchun u ishlayotganini bilardim.

1 -qadam: Nima qilishni xohlayotganingizni aniqlang

Men har doim qiladigan birinchi narsa - bu reja tuzish, men nima qilishni xohlayman? A) Men skriptni ochishni xohlayman va u avtomatik ravishda ulanishni to'xtatadi. B) Men ulkan displeyni orqa fonda ko'rsatishini xohlayman, shuning uchun Internet o'chirilgan bo'lsa xato bo'lmaydi, shuning uchun men uni qayta yoqishni unutmayman. C) Menga uni yoqish imkoniyatini berishini xohlayman. Qayta yoqing va keyin javobni kuting. D) Men uni qayta yoqganimga ishonch hosil qilmoqchiman, shuning uchun men unutmayman. va keyin fonni yopadi. F) Hamma narsadan chiqish.

2 -qadam: Men foydalanadigan, lekin kerak bo'lmagan narsalar

Sizga faqat bloknot kabi matn muharriri kerak. Qolganlarning hammasi ixtiyoriydir, men VB skriptini bajarayotganda Notepad ++ dan foydalanaman. Bu xatolardan qochishga yordam beradi. Shuningdek, u xato kodini olganingizda qanday muammo borligini aniqlash uchun chiziqlarni raqamlaydi.

3 -qadam: Dasturlashni boshlang

Siz qilmoqchi bo'lgan birinchi narsa - bu matnli faylni yaratish va uni fayl kengaytmasi bilan nomlanishini xohlagan narsangizga saqlash.vbsExample: NetworkShutOffScriptThatShutsOffTheInternetSoIcanPlayGamesOnMyXboxAndNotGetLag.vbsExampe 2: games.vbsAl fayl bilan bog'liq bo'lgan hamma narsa muhim. Men odatda ish stolida buni qilaman, chunki men ishlayotganda uni taxminan million marta ochaman, endi faylni o'ng tugmasini bosing va notepad ++ yordamida tahrir qiling yoki tahrir qiling.

4 -qadam: 1 -qadam: Buyruqlar satri oynasini ochish

Shunday qilib, men xohlagan narsani qilish uchun kompyuterda saqlangan dasturlardan foydalanadigan ko'p ishlarni qilishga qaror qildim. Kamroq kodlash va yuklamaslik … Woohoo. Easyest - buyruq irodasi, shuning uchun biz buyruq irodasi oynasini ochmoqchimiz, shuning uchun biz ob'ektni yaratmoqchimiz, shunday yozamiz: set shellobj = CreateObject ("WScript. Shell") U nima qiladi?: Shellobj misolini w skript qobig'ini yaratish uchun teng qilib o'rnating. Shunday qilib, har safar bizga yangi buyruq kerak bo'lganda CreateObject ("WScript. Shell") o'rniga shellobj yozish kifoya. Endi biz ob'ekt yaratganimizdan so'ng, biz ob'ektga buyruq satri oynasini ochishni ko'rsatamiz. shellobj.run "cmd" Nima qiladi: Bu boshlang'ich menyusidagi ishga tushirish maydoniga CMD yozishga teng bo'ladi. Agar biz shellobject o'zgaruvchisini o'rnatmaganimizda, quyidagilarni yozishimiz kerak bo'lardi: CreateObject ("WScript. Shell"). "Cmd" ni ishga tushirish … hozir qanchalik oson ekanligini ko'ring. Xato uchun joy kam. Faylni bosing … keyin Saqlash … keyin ish stoliga o'ting va u bajarilgan bo'lishi kerak bo'lgan vbs faylini ikki marta bosing, agar hamma narsa to'g'ri ketsa, siz Windows buyruq satrini ko'rsatishingiz kerak …..yaaaaaa !!! agar tekshirilmasa Sizning kodlashingizda hozircha quyidagilar bo'lishi kerak: shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" Siz skriptingizga sharhlar qo'shishingiz mumkin, shunda keyin nima qilganingizni eslab qolasiz. Bu: "bu buyruq satrini ochishdir. Men tez -tez kodlashda buni qilaman, shuning uchun men keyinroq nima qilganimni eslayman. Skript bu satrni e'tiborsiz qoldiradi va davom etadi. Agar siz ularni ko'rsangiz, xuddi shunday qilishingiz mumkin.

5 -qadam: 2 -qadam: Taymerlarni sozlash

Endi bizda yangi oyna bor, biz uni buyruqlar bilan to'ldirishimiz kerak, shunda biz xohlagan narsani qila olamiz. Muammo shundaki, ba'zi kompyuterlar boshqalarga qaraganda oynalarni ochish uchun ko'proq vaqt talab qiladi, shuning uchun biz skriptni biroz kutib turishni xohlaymiz. boshlash uchun biroz. Agar u juda tez boshlasa, kompyuter oynani ochmasdan oldin bo'sh joyni to'ldiradi va siz qisman buyruq olasiz yoki umuman yo'q, shuning uchun taymerni sozlashimiz kerak. Buni amalga oshirish uchun biz quyidagilarni yozamiz: wscript.sleep 200Nima qiladi: u skriptga keyingi buyruqni bajarishdan oldin X vaqt kutishini aytadi. 1000 sekundga teng, shuning uchun meniki sekundning beshdan bir qismini kutmoqda. Ehtimol, sizning kompyuteringiz ko'proq vaqt kutishi kerak. Agar siz kompyuterni ko'rsangiz va u buyruqlarni to'g'ri yozmasa, raqamni 2000 kabi yuqori songa o'zgartiring - 2 soniya va ehtimol ko'p vaqt. Faylni hozir saqlang, bu vaqtda sizning kodingiz: set shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" wscript.sleep 200

6 -qadam: 3 -qadam: Rasm yarating

Men bo'yoqni ochdim va unga "Internet uzildi" deb yozdim va uni 800x600 qilib id.bmp sifatida saqladim va ildiz katalogimda saqladim, mening holatimda k: / lekin sizniki c:

7 -qadam: 4 -qadam: Buyruqlarni yuborish, rasmni ochish

Endi bizda buyruqlar oynasi bor, biz buyruqlarni kutamiz, faqat sendkeys buyrug'i yordamida buyruqlarni oynaga yozishimiz kerak. Sendkeys buyrug'idan foydalansak, bu yozishga o'xshaydi, lekin biz yozmoqchi bo'lgan hamma narsani yozadi. Biz yozishimiz mumkin bo'lgan har qanday narsani biz yuborishimiz mumkin, shu jumladan dasturlarni bajarish uchun zarur bo'lgan kirish tugmachalari. Endi biz kalitlarni qanday yuborishni bilamiz, biz hozirgina rasmimizni ochamiz, so'ngra boshqa taymerni qo'yamiz, shunda rasm yuklanishiga vaqt beradi. Buning uchun biz yozamiz: shellobj.sendkeys "k: / id.bmp {enter}" wscript.sleep 200 Bu nima qiladi: Bu ishga tushirish maydoniga k: / id.bmp yozish bilan bir xil. Bu sizning rasmingizni bmp uchun standart rasm ko'rish vositasida ochishi kerak … mening holimda bu Windows rasm va faks ko'rish vositasi, lekin ko'pchilik buni bozor dasturlaridan keyin o'rnatadi, shuning uchun kim sizniki ochilishini biladi. uni ishga tushiring. Sizga buyruq irodasi va rasm paydo bo'lishi kerak. Sizning kodingiz hozircha shunday bo'lishi kerak: shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" wscript.sleep 200shellobj.sendkeys "k: / id.bmp {enter}" wscript. uxlash 200

8 -qadam: 5 -qadam: Buyruqlarni yuborish, Internetni o'chirish

Agar siz hali buni qilmagan bo'lsangiz, oxirigacha pdf faylini yuklab oling, shuning uchun agar buzib tashlasangiz, uni tuzatish bo'yicha ko'rsatma yuklab olingan. OK, shuning uchun biz IP -manzilimizni chiqarish uchun ipconfig -dan foydalanamiz. IP -manzilsiz biz Internet -trafikka ega bo'la olmaymiz, chunki yo'riqnoma uni kompyuterga qayerga yuborishini bilmaydi. Buning uchun biz yozamiz: shellobj.sendkeys "ipconfig /release {enter}" Nima qiladi: Bu IPCONFIG dasturiga IP -manzilni chiqarishni ko'rsatma beradi. {enter} kompyuterga siz kiritish tugmachasini bosganingizni bildiradi. Bu ishga tushirish oynasiga ipconfig /release yozish va Enter ni bosish kabi bo'ladi. Odatda buni qilgandan so'ng, agar siz ipconfig -ni ishga tushirsangiz, u sizning IP -manzilingiz 0.0.0.0 ekanligini aytadi, bu biz xohlagan narsadir. IP -manzil bo'lmasa, yo'riqnoma bizning bu erda ekanligimizni bilmaydi va hech qanday dastur "qo'ng'iroq qila olmaydi". Endi biz IP -ni yopishni muvaffaqiyatli tugatdik, biz oynani yopmoqchimiz. Endi biz boshqa satrni yozishimiz mumkin: shellobj.sendkeys "exit {enter}" Lekin yuqoridagi satrni tahrir qilish va oxirigacha qo'shish osonroq bo'lar edi, shunda: shellobj.sendkeys "ipconfig /release {enter} chiqish {enter} "Endi saqlang, lekin ishga tushirmang, chunki siz internet aloqangizni uzib qo'yasiz. Agar siz uni ishga tushirsangiz va Internetingiz o'chib qolsa, ipconfig /release -dan ipconfig /yangilash -ni o'zgartiring va u yana ishga tushadi va u yana yoqiladi. Va agar hamma narsa qayta yuklanmasa va siz yaxshi bo'lishingiz kerak bo'lsa, sizning kodingiz hozircha shunday bo'lishi kerak: shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" wscript.sleep 200shellobj.sendkeys "k: / id.bmp { enter} "wscript.sleep 200shellobj.sendkeys" ipconfig /release {enter} chiqish {enter}"

9 -qadam: 6 -qadam: Xabar qutisini yaratish va javobni kutish

Xo'sh, endi biz Internetni muvaffaqiyatli o'chirib qo'ydik va buyruq satri oynasini yopdik, biz Internetni qayta yoqishni xohlaymizmi, degan xabar qutisi paydo bo'lishini xohlaymiz. ha, lekin agar biz "yo'q" tugmasini bossak, biz uning ketishini xohlamaymiz, shuning uchun biz buni amalga oshirish uchun vaqt iborasini ishlatamiz. Birinchidan, biz xabar almashish qutisi uchun o'zgaruvchini o'lchashimiz kerak, shunda biz unga raqam o'zgaruvchilarini tayinlashimiz mumkin. Bilaman, bu chalkash tuyuladi, lekin aslida unday emas. Biz buni bir marta chiziq bilan qildik: set shellobj = CreateObject ("WScript. Shell"), bu sozlash uchun ham oson, biz shunchaki yozamiz: Dim MyVarNima qiladi: Endi biz "ha /yo'q "xabar qutisi ekranda paydo bo'ladi va siz har bir tugmachaga qiymat beradigan tugmachalarni bosasiz, bu holda" ha "1 va" yo'q "2 bo'ladi. Biz o'zgaruvchining" yo'q "bilan boshlanishini xohlaymiz. biz unga sukut bo'yicha 2 raqamini beramiz, shu tarzda u tugma bosilguncha to'xtab qoladi Buning uchun biz yozamiz: myvar = 2 Nima qiladi: endi MyVar 2 ga teng, shu tarzda keyingi satrda u to'xtaydi va kirishni kutadi. Endi biz faqat u erda o'tirishni va Internetni qayta yoqishga tayyor bo'lguncha kutishni xohlaymiz. Buning uchun biz yozamiz: myvar = 2 Nima qiladi: Buni qilish orqali biz skriptga myvar qiymatini aytdik. = 2, keyin biz 2dan boshqa qiymatni olmagunimizcha, xabar qutisini aylanib turing, bu holda faqat 1 bo'lishi mumkin, keyin biz aslida "ha/yo'q" tugmachalari bilan xabar qutisini ochmoqchimiz. bu biz yozamiz: MyVar = MsgBox ("Internetga ulanishni yoqish", 65, "Internetga ulanishni yoqish") Nima qiladi: Endi MyVar o'zgaruvchisiga xabar qutisiga bosilgan tugmachaga qanday qiymat tayinlansa, tayinlanadi. tirnoqlarning birinchi qismi - bu xabar qutisi aslida nima deyishi. 65 uni "Ha/Yo'q" xabarlar qutisi sifatida belgilaydi. va tirnoqlarning oxirgi qismi - bu xabar qutisi. ha yoki yo'q tugmachasini bosganingizda, u qanday qiymatni belgilashini tekshirish uchun siz msgbox (myVar) deb yoziladigan qatorni qo'shishingiz mumkin va u myvar -ga tayinlangan qiymatni bosib chiqaradi. xabarlar qutisi. Endi bizda xabar qutisi bor ekan, biz while iborasini yopishimiz kerak. Vaqt iborasining ochilishi va yopilishi orasidagi hamma narsa har safar "Yo'q" tugmachasini bosganingizda ishlaydi, chunki "Yo'q" tugmasini bosganingizda u hali ham 2 qiymatini oladi va birinchi qismga qaytadi. qiladi: Agar siz vaqtinchalik bayonotga nuqta qo'ygan bo'lsangiz, u argument bajarilmaguncha loop vazifasini bajaradi. Shunday qilib, agar siz "Yo'q" tugmasini bosishni davom ettirsangiz, u aylanadi, lekin "Ha" ni bosganingizda, u pastadirdan chiqib ketadi va skriptni davom ettiradi. Faylni saqlang, lekin keyingi bosqichga qadar ishga tushishini kuting. Sizning kodingiz hozircha shunday bo'lishi kerak: shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" wscript.sleep 200shellobj.sendkeys "k: / id.bmp { enter} "wscript.sleep 200shellobj.sendkeys" ipconfig /release {enter} chiqish {enter} "Dim MyVarmyvar = 2 while myvar = 2MyVar = MsgBox (" Internetga ulanishni yoqish ", 65," Internetga ulanishni yoqish ")

10 -qadam: 7 -qadam: Internetni qayta yoqish

Endi kimdir nihoyat "ha" tugmasini bosdi va u "vaqt" bayonotidan o'tdi, biz Internetda yoqishimiz kerak. Men odatda tasdiqni ochaman, shuning uchun oxirgi foydalanuvchi nima bo'layotganini biladi, lekin bu ixtiyoriy. Tasdiqlash turini ochish uchun: msgbox ("Biz endi Internetga ulanishni qaytadan ishga tushiramiz !!!") Nima qiladi: u endi Internet aloqasini qayta yoqamiz degan xabar qutisini yuboradi !!! va tugmani bosish uchun sizga ok tugmachasini beradi. Endi biz faqat Internetni yoqishimiz va hamma narsani o'chirib qo'yishimiz kerak. Internetni qayta yoqish uchun biz faqat taymerni o'rnatgan buyruq satrini ochamiz, keyin ipcionfig -ni qayta ishlatamiz. yozing: shellobj.run "cmd" wscript.sleep 200shellobj.sendkeys "ipconfig /update {enter}" Nima qiladi: u avvaldan o'chirish buyrug'ini o'zgartiradi va IP manzilingizni yangilaydi. IP -manzilingizni yangilaganingizdan so'ng, siz yana Internetga ulanishingiz mumkin, endi biz faqat ochiq oynalarni tozalashimiz kerak. Yana biz sendkeys buyrug'idan foydalanishimiz mumkin edi, lekin men tozalashni ushlab turish uchun oxirgi qatorni qo'shaman. Bunday holda, men rasmni ko'rsatadigan dasturni o'ldirish uchun taskkill dasturidan foydalanmoqchiman. Bunday holda, bu rasm va faksni ko'rish oynasi va vazifalar menejerining jarayonlar ko'rinishida rundll32.exe sifatida ko'rsatiladi, shuning uchun biz o'ldirishimiz kerak. Agar sizning rasmingiz irfanview yoki acdsee kabi boshqa dastur yordamida ochilsa, jarayonlar yorlig'ida uning nomini toping va rundll32.exe -ni o'z nomingiz bilan almashtiring. Buyruq shunday bo'ladi: taskkill /F /IM rundll32.exe qiladi: taskkill - bu dasturning nomi /F tugmachasi uni o'ldirishga majbur qiladi va /IM tugmasi tasvir nomini aytadi Endi biz buni oxirgi qatorga qo'shamiz, buyruqni bajarish uchun kirishni qo'shamiz va keyin chiqish buyrug'i va boshqa kiriting va shunday ko'rinadi: shellobj.sendkeys "ipconfig /yangilash {enter} taskkill /F /IM rundll32.exe {enter} chiqish {enter}" Faylingizni saqlang.

11 -qadam: tayyor mahsulot

Agar hamma narsa to'g'ri bo'lsa, sizning tayyor mahsulotingiz shunday bo'lishi kerak: shellobj = CreateObject ("WScript. Shell") ni belgilang shellobj.run "cmd" wscript.sleep 200shellobj.sendkeys "k: / id.bmp {enter}" wscript.sleep 200shellobj.sendkeys "ipconfig /release {enter} chiqish {enter}" Dim MyVarmyvar = 2 while myvar = 2MyVar = MsgBox ("Internetga ulanishni yoqish", 65, "Internetga ulanishni yoqish") wendmsgbox ("Endi Internetni yoqamiz") Ulanish qayta yoqildi !!! ") shellobj.run" cmd "wscript.sleep 200shellobj.sendkeys" ipconfig /update {enter} taskkill /F /IM rundll32.exe {enter} chiqish {enter} "_end of script_Now to the programm Siz dasturni ishga tushirishingiz mumkin. Nima bo'lishi kerak: 1.) Siz CMD oynasini juda qisqa vaqt ichida ochib, keyin yopishingiz kerak. 2) Internetingiz endi ishlamasligi kerak. lekin siz buni ko'rmaysiz3.) Sizning rasmingiz ochilishi kerak. 4.) Siz Internetni qayta yoqishni xohlaysizmi, deb so'raladigan oyna paydo bo'lishi kerak. Siz Internetni qayta yoqishni xohlaysizmi, deb so'rayapsiz. 6.) Ha tugmasini bosganingizda, xabar qutisi yo'qoladi va CMD oynasi zaxiralanadi. Bu erda sizda bor. Internetni yoqish va o'chirish uchun juda oson VBscript. Umid qilamanki, sizga yoqadi. Men, aslida, DevCon deb nomlangan dastur yordamida tarmoq adapterlarini o'chirib qo'yadigan deyarli bir xil skript yaratdim, bu buyruq qatori qurilmasi menejeriga o'xshaydi. Haqiqatan ham yaxshi ishlaydi. Skript bu bilan bir xil, bundan tashqari, DevCon uchun buyruqlari bo'lgan ipconfig uchun buyruqlar mavjud.