Inleiding tot VB Script: 'n Beginnersgids: 11 stappe

2024 Outeur: John Day | [email protected]. Laas verander: 2024-01-30 07:28

*** ((((WAARSKUWING: Alhoewel daar baie stappe is. Dit is eintlik redelik maklik. Ek verduidelik alles in detail vir die beginners. As u net die kode wil hê, spring na die laaste stap, en u sal die volledige vind kode daar.))))) *** Ek speel baie Xbox live en moet altyd die internet op my rekenaar deaktiveer omdat dit bandwydte verhoog. Hoofsaaklik omdat ek die hele tyd dinge aflaai of oplaai. Die probleem is om dit nie af te skakel nie, maar ek draai dit terug, wat ek vergeet, en ek het besluit om 'n program op te laai/aflaai, en ek het besluit om 'n program te skep om dit vir my te doen. Ek sou dit in Vb.net skryf, maar ek moes onlangs my bedryfstelsel op my rekenaar skuur en baan as gevolg van 'n storm wat my hardeskyf braai, en ek het nog nie VB.net geïnstalleer nie, so ek het net gedink dit sou Gee my 'n rede om met vbscript te speel. Ek het ook 'n prentjie in verf gemaak om op die agtergrond te vertoon, sodat ek weet dat dit werk.

Stap 1: Ontdek wat u wil doen

Die eerste ding wat ek altyd doen, is om 'n plan te maak. Wat wil ek hê moet die program doen? A) Ek wil die script kan oopmaak en dit sal die verbinding outomaties afskakel. B) Ek wil hê dat dit 'n reuse -skerm op die agtergrond moet vertoon, sodat daar geen fout is dat die internet af is nie; ek vergeet nie om dit weer aan te skakel nie. C) Ek wil hê dat dit my 'n keuse kan gee om dit te skakel weer aan en wag dan op 'n antwoord. D) Ek wil hê dit moet seker maak dat ek dit weer aanskakel, sodat ek dit nie vergeet nie. E) As ek dan eers ja sê om dit weer aan te skakel, skakel die script dit weer aan en sluit dan die agtergrond. F) Verlaat alles.

Stap 2: Dinge wat ek gebruik, maar nie regtig nodig is nie

Al wat u regtig nodig het, is 'n teksredakteur soos notaboek. Al die ander is opsioneel. Ek gebruik Notepad ++ as ek VB -script doen, want dit behandel dit soos vb.net met kleure en die taal ken. Dit help om foute te vermy. Dit bevat ook die lyne, sodat u kan diagnoseer wat die probleem is as u 'n foutkode kry.

Stap 3: Begin met programmeer

Die eerste ding wat u wil doen, is om 'n tekslêer te maak en dit te stoor in wat u ook al wil he met die lêeruitbreiding.vbsExample: NetworkShutOffScriptThatShutsOffTheInternetSoIcanPlayGamesOnMyXboxAndNotGetLag.vbs Voorbeeld 2: games.vbs.vbs Ek doen dit gewoonlik op die lessenaar omdat ek dit ongeveer 'n duisend keer oopmaak terwyl ek daaraan werk. Klik nou met die rechtermuisknop op die lêer en klik op edit of edit met notepad ++

Stap 4: Stap 1: Maak 'n opdragpromptvenster oop

Daarom het ek besluit om die meeste werk te doen; ek sou net programme wat reeds op die rekenaar gestoor is, gebruik om te doen wat ek wil. Minder kodering en geen aflaaie nie … Woohoo. Easiest is command prompt.so we want a command prompt window to do so we want to build an objectto do so we type: set shellobj = CreateObject ("WScript. Shell") Wat dit doen: Stel 'n voorbeeld van shellobj gelyk om die voorwerp w script dop te skep. Op hierdie manier hoef ons net shellobj te tik in plaas van CreateObject ("WScript. Shell") elke keer as ons 'n nuwe opdrag nodig het. shellobj.run "cmd" Wat dit doen: Dit is die ekwivalent van die tik van CMD in die lopie -boks in die beginkieslys. As ons nie die veranderlike shellobject sou stel nie, sou ons moes tik: CreateObject ("WScript. Shell"). Run "cmd" … kyk hoeveel makliker is dit nou. Minder ruimte vir foute. Klik op lêer … dan Stoor … gaan dan na die lessenaar en dubbelklik op die vbs -lêer wat u gemaak het, moet loop As alles reg is, moet u 'n Windows -opdragprompt kry om op te daag ….. jaaaaaa !!! u kodering, tot dusver behoort u te hê: stel shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" in. U kan opmerkings in u script voeg sodat u kan onthou wat u later gedoen het deur 'n komma voor die reël te plaas, soos dit: 'dit is om 'n opdragprompt oop te maak As ek baie keer kodeer, sal ek dit doen, sodat ek onthou wat ek later gedoen het toe ek daarna kyk. Die skrif ignoreer net die reël en gaan voort. As u hulle sien, kan u dieselfde doen.

Stap 5: Stap 2: Stel tydopnemers in

Noudat ons 'n splinternuwe venster het, moet ons dit met opdragte invul, sodat ons dit kan doen wat ons wil. bietjie om te begin. As dit te gou begin, sal die rekenaar die leë venster invul voordat u die venster oopmaak, en u kry 'n gedeeltelike opdrag of glad nie, dus moet ons 'n timer opstel. Om dit te kan doen, tik ons: wscript.sleep 200 Wat dit doen: dit vertel die skrif om 'n X -lang tyd te wag voordat die volgende opdrag uitgevoer word. 1000 is gelyk aan een sekonde, so myne wag 'n vyfde van 'n sekonde. Miskien sal u rekenaar meer of minder tyd moet wag. As u na die rekenaar kyk en die opdragte nie korrek ingevoer word nie, verander die getal na 'n hoër getal, soos 2 000 sekondes en waarskynlik baie tyd. Stoor die lêer nou, u kode moet op hierdie punt wees: stel shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" wscript.sleep 200

Stap 6: Stap 3: Maak 'n prentjie

Ek het net verf oopgemaak en 'Internet Disconected' daarin ingetik en dit 800x600 gemaak en dit as id.bmp gestoor en in my wortelmap gestoor, in my geval k: / maar die uwe sal waarskynlik c wees:

Stap 7: Stap 4: Stuur opdragte, maak die prent oop

Nou dat ons 'n opdragvenster het wat op bevele wag, al wat ons hoef te doen, is om die opdragte in die venster in te tik met behulp van die sendkeys -opdrag. As ons die sendkeys -opdrag gebruik, is dit soos om te tik, maar dit tik wat ons wil tik. Alles wat ons kan tik, kan ons stuur, insluitend die enter -sleutels wat nodig is om programme uit te voer. Noudat ons weet hoe om sleutels te stuur, kan ons ons prentjie wat ons so pas gemaak het, oopmaak, en dan 'n ander tydswoord inskakel sodat dit die prentjie tyd gee om te laai. Om dit te doen, tik ons: shellobj.sendkeys "k: / id.bmp {enter}" wscript.sleep 200 Wat dit doen: Dit is dieselfde as om k: / id.bmp in die lopie -boks te tik. Dit moet u prentjie in die standaardbeeld -kyker vir 'n bmp oopmaak … in my geval is dit Windows -prent- en faks -kyker, maar die meeste mense installeer ook na -markprogramme wat dit ook doen, so wie weet wat die uwe sal oopmaak. Stoor nou u lêer en hardloop dit. U moet 'n opdragprompt kry en 'n prentjie verskyn. tot dusver so goed !!! u kode tot dusver behoort te wees: stel shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" wscript.sleep 200shellobj.sendkeys "k: / id.bmp {enter}" wscript. slaap 200

Stap 8: Stap 5: Opdragte stuur, internet afskakel

As u dit nog nie gedoen het nie, laai dan die pdf -lêer aan die einde af, so as u 'n fout maak, het u 'n instruksie afgelaai oor hoe om dit reg te stel. Dit is nou waar die pret begin. Ok, ons sal ipconfig gebruik om ons IP -adres bekend te maak. Sonder 'n IP -adres kan ons geen internetverkeer kry nie, want die router weet nie waarheen dit na die rekenaar gestuur moet word nie. Om dit te doen, tik ons: shellobj.sendkeys "ipconfig /release {enter}" Wat dit doen: Dit gee die program IPCONFIG opdrag om die IP -adres vry te stel. die {enter} sê vir die rekenaar dat u die enter -sleutel ingedruk het. dit sou wees soos om ipconfig /release in die venster te tik en enter te druk. Gewoonlik, nadat u dit gedoen het, as u ipconfig gebruik, sal dit u vertel dat u IP -adres 0.0.0.0 is. Dit is wat ons wil hê. Sonder 'n IP -adres weet die router nie dat ons hier is nie en geen programme kan so te sê "skakel" nie. Nou dat ons die IP -adres suksesvol afgeskakel het, wil ons die venster toemaak. Nou kan ons 'n ander reël skryf wat sê: shellobj.sendkeys "exit {enter}" Maar dit sou makliker wees om die reël hierbo te wysig en dit aan die einde toe te voeg, sodat u: shellobj.sendkeys "ipconfig /release {enter} exit {enter} "Stoor dit nou, maar moenie dit uitvoer nie, want u sal u internetverbinding afskakel. As u dit wel uitvoer en u internet afskakel, verander dan net die skakelaar van ipconfig /release na ipconfig /renew, en dan loop dit weer, en dit moet weer aangeskakel word. En as alles anders misluk, herlaai en u moet goed wees. U kode moet tot dusver wees: stel shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" wscript.sleep 200shellobj.sendkeys "k: / id.bmp { enter} "wscript.sleep 200shellobj.sendkeys" ipconfig /release {enter} exit {enter}"

Stap 9: Stap 6: Skep boodskapkassie en wag vir antwoord

Nou, nadat ons die internet suksesvol afgeskakel het en die opdragpromptvenster gesluit het, wil ons hê dat 'n boodskapkassie verskyn wat vra of ons die internet weer wil aanskakel. vir 'n ja, maar as ons op nee klik, wil ons nie hê dat dit moet verdwyn nie, dus sal ons 'n rukkie gebruik om dit te doen. Eerstens moet ons 'n veranderlike vir die messebox dimensioneer sodat ons dit getalveranderlikes kan toewys. Ek weet dit klink verwarrend, maar dit is regtig nie. ons het dit al een keer gedoen met die reël: set shellobj = CreateObject ("WScript. Shell") hierdie een is selfs makliker om dit op te stel, tik ons net: Dim MyVarWat dit doen: Nou het ons 'n veranderlike met die naam MyVar gedimensioneer As u 'ja' kry /nee "verskyn 'n boodskapblokkie op u skerm en u klik op die knoppies, dit gee 'n waarde aan elke knoppie, in hierdie geval is" ja "1 en" nee "2. Ons wil hê dat die veranderlike met 'nee' moet begin Ons gee dit standaard die nommer 2 toe, op hierdie manier word dit onderbreek totdat op 'n knoppie geklik word. Om dit te doen, tik ons: myvar = 2 Wat dit doen: nou is MyVar gelyk aan 2, so stop dit in die volgende reël en wag vir invoer. Nou wil ons net hê dat dit daar moet sit en wag totdat ons gereed is om die internet weer aan te skakel. Om dit te doen, tik ons: terwyl myvar = 2 Wat dit doen: Deur dit te doen, het ons aan die skrif gesê dat solank die waarde van myvar = 2, dan moet u die boodskapsboks net herhaal totdat ons 'n ander waarde as 2 kry, wat in hierdie geval slegs 1 kan wees. dit tik ons: MyVar = MsgBox ("Skakel internetverbinding aan", 65, "Skakel internetverbinding aan") Wat dit doen: Nou word die MyVar -veranderlike toegewys aan watter waarde ook al aan die knoppie wat op die boodskappliek geklik word, toegeken word. die eerste deel in die aanhalings is wat die boodskapsboks eintlik sal sê. Die 65 dui dit aan as 'n Ja/Nee boodskapsboks. en die laaste deel in aanhalings is die etiket van die boodskapsboks. om te kyk watter waarde dit toeken as u ja of nee klik, kan u byvoeg in 'n reël wat msgbox (myVar) sê, en dit sal die waarde wat aan myvar toegeken word, druk 'n boodskapkassie. noudat ons 'n boodskapkassie het, moet ons die while -verklaring sluit. Alles wat tussen die oop en toe van die terwyl -stelling is, word uitgevoer elke keer as u op nee klik, want as u op nee klik, is dit steeds 'n waarde van 2 en loop terug na die eerste deel. Om die terwyl -stellingstipe te beëindig: wendWhat it doen: sodra u 'n rukkie -stelling beëindig het, sal dit as 'n lus optree totdat die argument nie meer bereik word nie. As u dus aanhou om nee te slaan, sal dit loop, maar sodra u op ja klik, sal dit loskom en met die script aangaan. Stoor die lêer, maar wag totdat dit tot die volgende stap uitgevoer word. Jou kode tot dusver behoort te wees: stel 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 while myvar = 2MyVar = MsgBox (" Skakel internetverbinding aan ", 65," Skakel internetverbinding aan ") wend

Stap 10: Stap 7: Internet weer aanskakel

Noudat iemand uiteindelik ja geklik het en die stelling verby is, moet ons op die internet gaan. Ek verskyn gewoonlik 'n bevestiging sodat die eindgebruiker weet wat aan die gang is, maar dit is uitsluitlik opsioneel. Om 'n bevestigingstipe op te spoor: msgbox ("Ons sal nou die internetverbinding weer aanskakel !!!") Wat dit doen: dit stuur 'n boodskapkassie wat sê Ons sal nou die internetverbinding weer aanskakel !!! en ons gee u 'n ok -knoppie om te klik. Nou hoef ons net die internet weer aan te skakel en alles uit te sluit. om die internet weer aan te skakel, maak ons net 'n opdragprompt oop, stel die timer in en gebruik weer ipcionfig. om dit te doen tipe: shellobj.run "cmd" wscript.sleep 200shellobj.sendkeys "ipconfig /renew {enter}" Wat dit doen: dit keer die opskakelopdrag van voor af en hernu u IP -adres. Sodra u u IP -adres hernu het, kan u weer internetverbindings kry, en u hoef net die oop vensters skoon te maak. Weereens kan ons 'n sendkeys -opdrag gebruik, maar ek sal net die laaste reël byvoeg om ook die opruimings te hou. In hierdie geval gaan ek 'n taskkill -program gebruik om die program wat die prentjie vertoon, dood te maak. In hierdie geval is dit 'n windows picture en fax viewer en verskyn as rundll32.exe in die prosesse -oortjie van die taakbestuurder, wat ons moet doodmaak. As u prentjie oopmaak met 'n ander program, soos irfanview of acdsee, vind u die naam wat dit aandui in die prosesse -oortjie en vervang die rundll32.exe met die naam wat u vind. Die opdrag is: taskkill /F /IM rundll32.exe doen: die taskkill is die naam van die program, die /F -skakelaar sê dit moet 'n doodmaak dwing en die /IM -skakelaar gee dit die naam van die prentjie, dus voeg ons dit by die laaste reël, voeg 'n enter in om die opdrag uit te voer en dan 'n exit -opdrag en nog 'n enter en dit lyk so: shellobj.sendkeys "ipconfig /renew {enter} taskkill /F /IM rundll32.exe {enter} exit {enter}" Stoor u lêer.

Stap 11: Klaar produk

As alles reg verloop, moet u finale produk so lyk: 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 while myvar = 2MyVar = MsgBox ("Skakel internetverbinding aan", 65, "Skakel internetverbinding aan") wendmsgbox ("Ons skakel nou die internet Verbinding weer aan !!! ") shellobj.run" cmd "wscript.sleep 200shellobj.sendkeys" ipconfig /renew {enter} taskkill /F /IM rundll32.exe {enter} exit {enter} "_end of script_Now that the programming is As u klaar is, kan u die program laat loop. Wat moet gebeur: 1.) U moet 'n CMD -venster vir 'n baie kort tyd laat verskyn, dan sluit u. 2) U internet behoort nie meer te werk nie. maar u sal dit nie sien nie.). U prentjie moet oopmaak. maar u wil weer weet of u die internet weer wil aanskakel. moet sluit. Daar het jy dit. 'N Baie maklike VBscript om u internet aan en af te skakel. Hoop jy hou daarvan. Ek het eintlik 'n ander skrip gemaak wat byna identies is aan hierdie een wat die netwerkadapters afskakel met 'n program genaamd DevCon, wat soos 'n opdragreël -apparaatbestuurder is. Werk baie goed om. Die skrip is identies aan hierdie, behalwe waar dit kommando's vir ipconfig het wat opdragte vir DevCon het.