Hyrje në VB Script: një udhëzues për fillestarët: 11 hapa

2025 Autor: John Day | [email protected]. E modifikuara e fundit: 2025-01-23 15:10

*** ((((ALERT: Edhe pse ka shumë hapa. Kjo është në të vërtetë mjaft e lehtë. Unë vetëm shpjegoj gjithçka në detaje për fillestarët. Nëse thjesht dëshironi që kodi të hidhet në hapin e fundit dhe do të gjeni të plotë kodi atje.)))) *** Unë luaj shumë Xbox drejtpërdrejt dhe gjithmonë më duhet të çaktivizoj internetin në kompjuterin tim sepse ai rrit gjerësinë e brezit. Kryesisht sepse unë jam duke shkarkuar ose ngarkuar gjëra gjatë gjithë kohës. Problemi nuk është mbyllja e tij, por po e kthen përsëri në atë që harroj, duke e bërë atë atje ku humbas gjatë gjithë kohës së ngarkimit/shkarkimit. Kështu që vendosa të krijoj një program për ta bërë atë për mua. Unë do ta shkruaja atë në Vb.net, por kohët e fundit më duhej të bëja nukle dhe të shtroja sistemin tim operativ në kompjuterin tim për shkak të një stuhie të keqe që më skuq hard diskun, dhe nuk e kam instaluar ende VB.net kështu që sapo kuptova se kjo do të ndodhte më jepni një arsye për të luajtur me vbscript. Unë gjithashtu bëra një imazh në bojë për ta shfaqur në sfond, kështu që e dija që po funksiononte.

Hapi 1: Zbuloni se çfarë doni të bëni

Gjëja e parë që bëj gjithmonë është të bëj një plan. Çfarë dua të bëjë programi? A) Dua të jem në gjendje të hap skenarin dhe ai automatikisht do të mbyllë lidhjen. B) Unë dua që ajo të shfaqë një ekran gjigant në sfond, kështu që nuk ka gabim që interneti është i fikur, në këtë mënyrë nuk harroj ta aktivizoj përsëri. C) Dua që të më japë një zgjedhje për ta ndezur kthehu dhe pastaj prit për një përgjigje. D) Unë dua që ajo të sigurohet që ta ndez përsëri në mënyrë që të mos harroj. E) Pastaj sapo të them po për ta ndezur përsëri, skenari e ndez përsëri dhe pastaj mbyll sfondin. F) Dilni nga gjithçka.

Hapi 2: Gjërat që përdor, por që nuk janë vërtet të nevojshme

E tëra që ju nevojitet vërtet është një redaktues teksti si fletore. Çdo gjë tjetër është opsionale. Unë përdor Notepad ++ kur bëj skrip VB kështu sepse e trajton atë si vb.net me ngjyrat dhe e njeh gjuhën. Ndihmon për të shmangur gabimet. Ai gjithashtu numëron linjat në mënyrë që të mund të diagnostikoni se cili është problemi kur merrni një kod gabimi. Mund të merret nga këtu fletore ++

Hapi 3: Filloni Programimin

Epo gjëja e parë që dëshironi të bëni është të krijoni një skedar teksti dhe ta ruani atë në çfarëdo që dëshironi të emërtohet me shtesën e skedarit.vbsShembull: NetworkShutOffScriptThatShutsOffTheInternetSoIcanPlayGamesOnMyXboxAndNotGetLag.vbsExample 2: shtojca lojra..vbsZakonisht e bëj këtë në desktop sepse e hap atë rreth një milion dollarë ndërsa jam duke punuar në të. Tani thjesht kliko me të djathtën mbi skedarin dhe goditi redakto ose redakto me fletoren ++

Hapi 4: Hapi 1: Hapja e një Dritareje të Komandës

Kështu që vendosa të bëj pjesën më të madhe të punës, thjesht do të përdor programe tashmë të ruajtura në kompjuter për të bërë atë që dua. Më pak Kodim dhe pa shkarkime … Woohoo. Easyest është komanda e shpejtë. Kështu që ne duam të hapim një dritare të shpejtë të komandës për ta bërë këtë, ne duam të ndërtojmë një objekt për ta bërë këtë, shkruajmë: set shellobj = CreateObject ("WScript. Shell") Çfarë bën: Vendosni një shembull të shellobj që të jetë i barabartë për të krijuar objektin me shell shell. Në këtë mënyrë gjithçka që duhet të bëjmë është të shkruajmë shellobj në vend të CreateObject ("WScript. Shell") sa herë që kemi nevojë për komandë të re. Tani që kemi krijuar një objekt, ne udhëzojmë objektin të hapë një dritare të shpejtë të komandës. Për ta bërë këtë, ne shtypim: shellobj.run "cmd" Çfarë bën: Kjo do të ishte ekuivalenti i shtypjes së CMD në kutinë e drejtimit në menunë e fillimit. Sikur të mos kishim vendosur shellobject të ndryshueshme, do të na duhej të kishim shtypur: CreateObject ("WScript. Shell"). Ekzekutoni "cmd" … shikoni sa më e lehtë është tani. Më pak hapësirë për gabime. Kliko skedarin … pastaj Ruaj … pastaj shkoni në desktop dhe klikoni dy herë në vbsfile që keni bërë duhet të funksionojë. Nëse gjithçka shkon mirë, duhet të merrni një komandë të Windows për t'u shfaqur …..aaaaaa !!! nëse jo kontrolloni kodimin tuaj, deri tani duhet të keni: vendosur shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" Mund të shtoni komente në skriptin tuaj në mënyrë që të mbani mend atë që keni bërë më vonë duke vënë një presje para rreshtit si kjo: 'kjo është për të hapur një komandë të shpejtë Kur jam duke koduar shumë herë do ta bëj këtë kështu që të mbaj mend atë që kam bërë më vonë kur po e shikoj. Skenari thjesht e injoron atë linjë dhe vazhdon. Nëse i shihni ato, mund të bëni të njëjtën gjë.

Hapi 5: Hapi 2: Vendosja e Kohëmatësve

Ok tani që kemi një dritare të re të ndezur, duhet ta mbushim atë me komanda në mënyrë që ta bëjmë atë të bëjë atë që duam. Problemi është se disa kompjuterëve u duhet më shumë kohë se të tjerët për të hapur dritaret, kështu që ne duam që skenari të presë pak pak për të filluar. nëse fillon shumë shpejt kompjuteri do të plotësojë boshllëkun para se të hapni dritaren dhe ose do të merrni një komandë të pjesshme ose asnjë fare. Pra, ne duhet të vendosim një kohëmatës. Për ta bërë këtë ne shtypim: wscript.sleep 200Çfarë bën: Ai i thotë skenarit të presë një sasi X para se të ekzekutojë komandën tjetër. 1000 është e barabartë me një sekondë, kështu që imja po pret një të pestën e sekondës. Ju mund të gjeni që kompjuteri juaj duhet të presë më shumë ose më pak kohë. Nëse shikoni kompjuterin dhe ai nuk i shkruan komandat si duhet, ndryshimi i numrit në një numër më të lartë si 2000 do të ishte 2 sekonda dhe ndoshta shumë kohë. Ruani skedarin tani kodi juaj në këtë pikë duhet të jetë: vendosni shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" wscript.sleep 200

Hapi 6: Hapi 3: Bëni një fotografi

Sapo hapa bojën dhe shtypa "Interneti u shkëput" në të dhe e bëra atë 800x600 dhe e ruaja si id.bmp dhe e ruaja në drejtorinë time rrënjësore, në rastin tim k: / por e juaja ndoshta do të jetë c:

Hapi 7: Hapi 4: Dërgimi i komandave, hapja e figurës

Ok tani që kemi një dritare komande që pret komandat e tëra çfarë duhet të bëjmë është të shtypim komandat në dritare duke përdorur komandën sendkeys. Kur përdorim komandën sendkeys është si të shtypim, por do të shkruajë çfarëdo që ne duam që ajo të shkruajë. Çdo gjë që mund të shkruajmë mund ta dërgojmë duke përfshirë çelësat e hyrjes të nevojshëm për të ekzekutuar programet. Tani që ne dimë si të dërgojmë çelësa na lejon të hapim foton tonë që sapo kemi bërë, pastaj të vendosim në një fjalor tjetër kohëmatës në mënyrë që t'i japë kohë fotografisë të ngarkohet. Për ta bërë këtë ne shkruajmë: shellobj.sendkeys "k: / id.bmp {enter}" wscript.sleep 200Çfarë bën: Kjo është e njëjtë me shtypjen e k: / id.bmp në kutinë e ekzekutimit. Ajo duhet të hapë foton tuaj në shikuesin e paracaktuar të fotografive për një bmp … në rastin tim është shikuesi i figurës dhe faksit në Windows, por shumica e njerëzve instalojnë programe të tregut që e bëjnë këtë gjithashtu, kështu që kush e di se çfarë do të hapet juaji. Tani ruani skedarin tuaj dhe ekzekutoni atë. Ju duhet të merrni një komandë të shpejtë dhe një fotografi që të shfaqet. deri tani mirë !!! kodi juaj deri më tani duhet të jetë: vendosur shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" wscript.sleep 200shellobj.sendkeys "k: / id.bmp {enter}" wscript. fle 200

Hapi 8: Hapi 5: Dërgimi i komandave, fikja e internetit

Në këtë pikë, nëse nuk e keni bërë ende, shkarkoni skedarin pdf në fund, kështu që nëse vidhosni, keni një Instructable të shkarkuar se si ta rregulloni atë. Tani këtu fillon argëtimi. Ok kështu që ne do të përdorim ipconfig për të lëshuar adresën tonë IP. Pa një adresë IP ne nuk mund të marrim asnjë trafik në internet sepse ruteri nuk e di se ku ta dërgojë atë në kompjuter. Për ta bërë këtë ne shkruajmë: shellobj.sendkeys "ipconfig /release {enter}" Çfarë bën: Kjo udhëzon programin IPCONFIG të lëshojë adresën IP. {enter} po i thotë kompjuterit që ju goditni tastin enter. kjo do të ishte si të shtypni ipconfig /release në dritaren e drejtimit dhe të godisni enter. Zakonisht pasi ta bëni këtë, nëse ekzekutoni ipconfig do t'ju tregojë se adresa juaj IP është 0.0.0.0 Kjo është ajo që ne duam. Pa një adresë IP ruteri nuk e di që ne jemi këtu dhe asnjë program nuk mund të "dial out" në mënyrë që të thuash. Tani që ne kemi përfunduar me sukses mbylljen e IP ne duam të mbyllim dritaren. Tani mund të shkruajmë një rresht tjetër që thotë: shellobj.sendkeys "exit {enter}" Por do të ishte më e lehtë thjesht të redaktoni rreshtin e mësipërm dhe ta shtoni deri në fund, kështu që të keni: shellobj.sendkeys "ipconfig /release {enter} exit {enter} "Tani ruajeni por mos e ekzekutoni sepse do të fikni lidhjen tuaj të internetit. Nëse e ekzekutoni dhe interneti juaj fiket, thjesht ndryshoni kalimin nga ipconfig /release në ipconfig /rinovim dhe ai e ekzekuton përsëri dhe duhet ta ndezë përsëri. Dhe nëse gjithçka tjetër dështon rindizni dhe duhet të jeni mirë. Kodi juaj deri më tani duhet të jetë: vendosni shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" wscript.sleep 200shellobj.sendkeys "k: / id.bmp { enter} "wscript.sleep 200shellobj.sendkeys" ipconfig /release {enter} exit {enter}"

Hapi 9: Hapi 6: Krijimi i Kutisë së Mesazheve dhe Pritja e Përgjigjes

Mirë, tani që kemi mbyllur me sukses internetin dhe kemi mbyllur dritaren e komandës, ne duam që të shfaqet një kuti mesazhi duke pyetur nëse duam ta ndezim përsëri internetin. Por këtu është ajo ku bëhet e ndërlikuar, ne duam që ajo të presë për një po, por nëse klikojmë jo, ne nuk duam që ajo të zhduket, kështu që ne do të përdorim një deklaratë while për ta bërë këtë. Së pari ne duhet të dimensionojmë një ndryshore për messgebox -in, në mënyrë që t'i caktojmë variabla numrash. E di që tingëllon konfuze, por me të vërtetë nuk është kështu. ne tashmë e kemi bërë një herë me linjën: set shellobj = CreateObject ("WScript. Shell") kjo është edhe më e lehtë për ta konfiguruar ne thjesht shkruajmë: Dim MyVarÇfarë bën: Tani ne kemi dimensionuar një ndryshore të quajtur MyVarKur të merrni një "po" /jo "kutia e mesazheve shfaqet në ekranin tuaj dhe ju klikoni butonat ajo i jep një vlerë secilit buton, në këtë rast" po "është 1 dhe" jo "është 2. Ne duam që ndryshorja të fillojë me një" jo "Pra ne i caktojmë atij numrin 2 si parazgjedhje, në këtë mënyrë ai ndalon derisa të klikohet një buton Për ta bërë këtë ne shkruajmë: myvar = 2Çfarë bën: tani MyVar është i barabartë me 2, në këtë mënyrë në rreshtin tjetër ai do të ndalet dhe do të presë për hyrje. Tani ne thjesht duam që ajo të ulet atje dhe të presë derisa të jemi gati për të ndezur përsëri internetin. Për ta bërë këtë ne shtypim: ndërsa myvar = 2Çfarë bën: Duke e bërë këtë ne i kemi thënë skenarit që për aq kohë sa vlera e myvar = 2 atëherë vetëm vazhdoni të lakoni kutinë e mesazheve derisa të marrim ndonjë vlerë tjetër se 2, e cila në këtë rast mund të jetë vetëm 1Tjetra ne në të vërtetë duam të bëjmë që një kuti mesazhi të shfaqet me butona po/jo. Për ta bërë këtë e shkruajmë: MyVar = MsgBox ("Aktivizo lidhjen e internetit", 65, "Aktivizo lidhjen në internet") Çfarë bën: Tani ndryshores MyVar do t'i caktohet çfarëdo vlere që i caktohet butonit që klikohet në kutinë e mesazheve. pjesa e parë në thonjëza është ajo që mesazhi në të vërtetë do të thotë. 65 e përcakton atë si një kuti mesazhi Po/Jo. dhe pjesa e fundit në thonjëza është tabela e kutisë së mesazheve. për të kontrolluar për të parë se çfarë vlere i jep kur klikoni po ose jo mund të shtoni në një rresht që thotë msgbox (myVar) dhe do të printojë çfarëdo vlere që i është caktuar myvar në një kuti mesazhesh.tani që ne kemi një kuti mesazhesh na duhet të mbyllim deklaratën while. Çdo gjë që është midis hapjes dhe mbylljes së deklaratës while do të funksionojë sa herë që klikoni jo, sepse nëse klikoni jo është ende një vlerë 2 dhe kthehet në pjesën e parë. Për të përfunduar llojin e deklaratës while: wend bën: Sapo t'i jepni fund një deklarate while do të veprojë si lak derisa argumenti të mos përmbushet më. Pra, nëse vazhdoni të godisni jo, do të lakohet, por sapo të godisni po, ai do të çlirohet nga laku dhe do të vazhdojë me skenarin. Ruani skedarin, por prisni për ta ekzekutuar atë deri në hapin tjetër. Kodi juaj deri më tani duhet të jetë: vendosni shellobj = KrijoObject ("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 ndërkohë myvar = 2MyVar = MsgBox (" Aktivizo lidhjen e internetit ", 65," Aktivizo lidhjen në internet ")

Hapi 10: Hapi 7: Aktivizimi i Internetit

Tani që dikush më në fund klikoi po dhe ka kaluar deklaratën while, ne duhet të përdorim internetin. Unë zakonisht shfaq një konfirmim në mënyrë që përdoruesi përfundimtar të dijë se çfarë po ndodh, por është thjesht opsional. Për të shfaqur një lloj konfirmimi: msgbox ("Tani do ta aktivizojmë lidhjen në internet !!!") Çfarë bën: ai dërgon një kuti mesazhesh që thotë Ne tani do ta aktivizojmë lidhjen e internetit përsëri !!! dhe ju jep një buton ok për të klikuar. Tani gjithçka që duhet të bëjmë është të ndizni internetin dhe të mbyllni gjithçka. për të ndezur internetin, ne thjesht hapim një komandë të shpejtë, vendosni kohëmatësin dhe përdorni përsëri ipcionfig. për ta bërë këtë lloji: shellobj.run "cmd" wscript.sleep 200shellobj.sendkeys "ipconfig /rinovo {enter}" Çfarë bën: ndryshon komandën e fikjes nga më parë dhe rinovon adresën tuaj IP. Pasi të keni rinovuar adresën tuaj IP, tani mund të merrni përsëri lidhje interneti. Tani gjithçka që duhet të bëjmë është të pastrojmë dritaret e hapura. Përsëri ne mund të përdorim një komandë sendkeys, por unë thjesht do të shtoj rreshtin e fundit për të mbajtur pastrimet gjithashtu. Në këtë rast unë do të përdor programin taskkill për të vrarë programin që shfaq fotografinë. Në këtë rast, është dritarja e figurës dhe faksit e Windows dhe shfaqet si rundll32.exe në skedën e proceseve të menaxherit të detyrave, kështu që kjo është ajo që duhet të vrasim. Nëse fotografia juaj hapet duke përdorur një program tjetër, si irfanview, ose acdsee, gjeni emrin që kalon në skedën e proceseve dhe zëvendësoni rundll32.exe me emrin që gjeni. Komanda do të ishte: taskkill /F /IM rundll32.exe bën: taskkill është emri i programit çelësi /F i thotë të detyrojë një vrasës dhe ndërprerësi /IM i tregon emrin e imazhit Kështu që tani e shtojmë atë në rreshtin e fundit, shtojmë një enter për të ekzekutuar komandën dhe më pas një komanda exit dhe një enter tjetër dhe duket kështu: shellobj.sendkeys "ipconfig /rinovo {enter} taskkill /F /IM rundll32.exe {enter} exit {enter}" Ruani skedarin tuaj.

Hapi 11: Produkt i përfunduar

Nëse gjithçka shkoi mirë produkti juaj i përfunduar duhet të duket diçka si kjo: vendosni 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 ndërkohë myvar = 2MyVar = MsgBox ("Aktivizo lidhjen e internetit", 65, "Aktivizo lidhjen në internet") wendmsgbox ("Tani do ta kthejmë internetin Lidhja përsëri! ") mbaruar ju mund të ekzekutoni programin. Çfarë duhet të ndodhë: 1.) Ju duhet të shfaqni dritaren CMD për një kohë shumë të shkurtër dhe pastaj mbyllni2.) Interneti juaj nuk duhet të funksionojë më. por ju nuk do ta shihni këtë.)) Fotografia juaj duhet të hapet. 4.) Ju duhet të shfaqeni në ekran duke ju pyetur nëse doni të ndizni përsëri internetin. 5.) Pavarësisht sa herë nuk klikoni asnjë kuti mesazhi nuk duhet ju, por veproni përsëri duke pyetur nëse doni të ndizni përsëri internetin. 6.) Pasi të klikoni po, kutia e mesazheve duhet të zhduket dhe një dritare CMD duhet të shfaqet përsëri.). Pasi të rinovohet adresa IP, dritarja CMD dhe fotografia duhet të mbyllet. Aty e keni. Një VBscript shumë e lehtë për të ndezur dhe fikur internetin tuaj. Shpresoj që ju pëlqen. Unë në fakt bëra një skenar tjetër që është pothuajse identik me atë që mbyll adaptorët e rrjetit duke përdorur një program të quajtur DevCon, i cili është si një menaxher i pajisjes së linjës komanduese. Punon vërtet mirë për. Skripti është identik me këtë përveç kur në këtë ai ka komandat për ipconfig që dikush ka komanda për DevCon.