Introduktion til VB Script: a Beginners Guide: 11 trin

2024 Forfatter: John Day | [email protected]. Sidst ændret: 2024-01-30 08:31

**** kode der.))))) *** Jeg spiller en masse Xbox live og skal altid deaktivere internettet på min computer, fordi det sviner båndbredde. Hovedsagelig fordi jeg downloader eller uploader ting hele tiden. Problemet lukker ikke det, men det tænder det igen, som jeg glemmer, og gør det der, hvor jeg mister alt det upload/download -tid. Så jeg besluttede mig for at oprette et program til at gøre det for mig. Jeg ville skrive det i Vb.net, men jeg var for nylig nødt til at nukle og bane mit operativsystem på min computer på grund af en dårlig storm, der stegte min harddisk, og har ikke geninstalleret VB.net endnu, så jeg regnede med, at dette ville giv mig en grund til at lege med vbscript. Jeg lavede også et billede i maling til visning i baggrunden, så jeg vidste, at det kørte.

Trin 1: Find ud af, hvad du vil gøre

Det første, jeg altid gør, er at lave en plan. Hvad vil jeg, at programmet skal gøre? A) Jeg vil kunne åbne scriptet, og det vil automatisk lukke forbindelsen. B) Jeg vil have det til at vise et kæmpe display i baggrunden, så der er ingen fejl ved, at internettet er slukket, på denne måde glemmer jeg ikke at tænde det igen. C) Jeg vil have det til at give mig et valg om at tænde det igen og derefter vente på et svar. D) Jeg vil have det til at sikre, at jeg tænder det igen, så jeg ikke glemmer det. E) Så når jeg faktisk siger ja for at tænde det igen, tænder scriptet det igen og derefter lukker baggrunden. F) Afslut alt.

Trin 2: Ting, jeg bruger, men ikke er virkelig nødvendig

Alt du virkelig har brug for er en tekstredigerer som notesblok. Alt andet er valgfrit. Jeg bruger Notepad ++ når jeg laver VB -script, så fordi det behandler det som vb.net gør med farver og kender sproget. Det hjælper med at undgå fejl. Det nummererer også linjerne, så du kan diagnosticere, hvad der er problemet, når du får en fejlkode. Kan hentes herfra notesblok ++

Trin 3: Start programmering

Det første, du vil gøre, er at oprette en tekstfil og gemme den i det, du vil have den navngivet med filtypen.vbsExample: NetworkShutOffScriptThatShutsOffTheInternetSoIcanPlayGamesOnMyXboxAndNotGetLag.vbsExample 2: games.vbsAlt, der betyder noget, er, at du navngiver det med filtypen Jeg plejer at gøre dette på skrivebordet, fordi jeg åbner det omkring en milliard gange, mens jeg arbejder på det. Nu skal du bare højreklikke på filen og trykke på rediger eller rediger med notesblok ++

Trin 4: Trin 1: Åbning af et kommandopromptvindue

Så jeg besluttede at gøre det meste af arbejdet, jeg ville bare bruge programmer, der allerede er gemt på computeren, til at gøre, hvad jeg vil. Mindre kodning og ingen downloads … Woohoo. Eniest er kommandoprompt. Så vi vil åbne et kommandopromptvindue for at gøre det, så vi vil bygge et objekt for at gøre det, så skriver vi: set shellobj = CreateObject ("WScript. Shell") Hvad det gør: Indstil en forekomst af shellobj til at være lig for at oprette objekt w script shell. På denne måde er alt, hvad vi skal gøre, at skrive shellobj i stedet for CreateObject ("WScript. Shell") hver gang vi har brug for ny kommando. Nu hvor vi har oprettet et objekt, instruerer vi objektet i at åbne et kommandopromptvindue. For at gøre det, skriver vi: shellobj.run "cmd" Hvad det gør: Dette ville svare til at skrive CMD i køreboksen på startmenuen. Havde vi ikke indstillet variablen shellobject havde vi været nødt til at have skrevet: CreateObject ("WScript. Shell"). Kør "cmd" … se hvor meget lettere det er nu. Mindre plads til fejl. Klik på fil … derefter Gem … derefter gå til skrivebordet og dobbeltklik på vbsfilen, du lavede den skulle køre Hvis alt går rigtigt, skal du få en Windows -kommandoprompt til at dukke op …..yaaaaaa !!! hvis ikke tjek din kodning, så langt skulle du have: sæt shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" Du kan tilføje kommentarer til dit script, så du kan huske, hvad du gjorde senere ved at sætte et komma foran linjen som dette: 'dette er for at åbne en kommandoprompt Når jeg koder mange gange, vil jeg gøre dette, så jeg husker, hvad jeg gjorde senere, da jeg kiggede på det. Scriptet ignorerer bare den linje og går videre. Hvis du ser dem, kan du gøre det samme.

Trin 5: Trin 2: Opsætning af timere

Ok nu, da vi har et nyt nyt vindue, skal vi udfylde det med kommandoer, så vi kan få det til at gøre, hvad vi vil. Problemet er, at nogle computere tager længere tid end andre for at åbne vinduer, så vi vil have scriptet til at vente lidt lidt at starte. Hvis det starter for tidligt, vil computeren udfylde det tomme felt, før du åbner vinduet, og du får enten en delvis kommando eller slet ingen. Så vi skal konfigurere en timer. For at gøre dette skriver vi: wscript.sleep 200 Hvad det gør: Det fortæller scriptet at vente et X -stykke tid, før den næste kommando udføres. 1000 er lig med et sekund, så min venter en femtedel af et sekund. Det kan være, at din computer skal vente mere eller mindre. Hvis du ser computeren, og den ikke skriver kommandoerne korrekt, skal du ændre tallet til et højere tal som 2000 ville være 2 sekunder og sandsynligvis masser af tid. Gem filen nu skal din kode på dette tidspunkt være: sæt shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" wscript.sleep 200

Trin 6: Trin 3: Lav et billede

Jeg åbnede lige maling og skrev "Internet Disconected" i den og lavede den 800x600 og gemte den som id.bmp og gemte den i min rodmappe, i mit tilfælde k: / men din vil sandsynligvis være c:

Trin 7: Trin 4: Afsendelse af kommandoer, åbning af billedet

Ok nu, hvor vi har et kommandovindue, der venter på kommandoer, skal vi bare skrive kommandoerne i vinduet ved hjælp af kommandoen sendkeys. Når vi bruger kommandoen sendkeys, er det som at skrive, men det vil skrive, hvad vi vil have det til at skrive. Alt, hvad vi kan skrive, kan vi sende, herunder indtastningstasterne, der er nødvendige for at udføre programmer. Nu, at vi ved, hvordan vi sender nøgler, kan åbne vores billede, vi lige har lavet, og derefter indsætte et andet timer efterord, så det giver billedet tid til at indlæse. For at gøre dette skriver vi: shellobj.sendkeys "k: / id.bmp {enter}" wscript.sleep 200Hvad det gør: Dette er det samme som at skrive k: / id.bmp i køringsboksen. Det skulle åbne dit billede i standardbilledfremviseren for en bmp … i mit tilfælde er det Windows -billed- og faxfremviser, men de fleste installerer eftermarkedsprogrammer også dette, så hvem ved, hvad dit vil åbne. Gem nu din fil og Kør det. Du skal få en kommandoprompt og et billede til at dukke op. så langt så godt !!! din kode hidtil skulle være: sæt shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" wscript.sleep 200shellobj.sendkeys "k: / id.bmp {enter}" wscript. sove 200

Trin 8: Trin 5: Afsendelse af kommandoer, lukning af internettet

På dette tidspunkt, hvis du ikke har gjort det endnu, skal du downloade pdf -filen i slutningen, så hvis du ødelægger, har du downloadet en instruks om, hvordan du løser det. Nu begynder det sjove. Ok, så vi vil bruge ipconfig til at frigive vores IP -adresse. Uden en IP -adresse kan vi ikke få nogen internettrafik, fordi routeren ikke ved, hvor den skal sendes til computeren. For at gøre dette skriver vi: shellobj.sendkeys "ipconfig /release {enter}" Hvad det gør: Dette instruerer programmet IPCONFIG om at frigive IP -adressen. {enter} fortæller computeren, at du trykker på enter -tasten. dette ville være som at skrive ipconfig /release i køringsvinduet og trykke på enter. Normalt efter at du har gjort dette, vil det, hvis du kører ipconfig, fortælle dig, at din IP -adresse er 0.0.0.0 Dette er, hvad vi ønsker. Uden en IP -adresse ved routeren ikke, at vi er her, og ingen programmer kan "ringe ud" så at sige. Nu hvor vi med succes har lukket IP'en af, vil vi lukke vinduet. Nu kunne vi skrive en anden linje, der siger: shellobj.sendkeys "exit {enter}" Men det ville være lettere at bare redigere ovenstående linje og tilføje den til enden, så du har: shellobj.sendkeys "ipconfig /release {enter} exit {enter} "Gem det nu, men lad det ikke køre, fordi du vil lukke din internetforbindelse. Hvis du kører det, og dit internet slukker, skal du bare skifte kontakten fra ipconfig /release til ipconfig /forny, og det kører det igen, og det skal tænde det igen. Og hvis alt andet mislykkes, skal du genstarte, og du skulle have det fint. Din kode indtil videre bør være: sæt shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" wscript.sleep 200shellobj.sendkeys "k: / id.bmp { enter} "wscript.sleep 200shellobj.sendkeys" ipconfig /release {enter} exit {enter}"

Trin 9: Trin 6: Oprettelse af meddelelsesboks og venter på svar

Ok, nu hvor vi med succes har lukket for internettet og lukket kommandopromptvinduet, vil vi have en meddelelsesboks til at dukke op, hvor vi spørger, om vi vil tænde internettet igen. Men det er her det bliver svært, vi vil have det til at vente for et ja, men hvis vi klikker nej, vil vi ikke have det til at gå væk, så vi vil bruge et stykke tid til at gøre dette. Først skal vi dimensionere en variabel til messgeboxen, så vi kan tildele den nummervariabler. Jeg ved, at det lyder forvirrende, men det er det virkelig ikke. vi gjorde det allerede en gang med linjen: set shellobj = CreateObject ("WScript. Shell") denne er endda lettere at konfigurere den, vi skriver bare: Dim MyVarHvad den gør: Nu har vi dimensioneret en variabel ved navn MyVarWhen du får et "ja /nej "meddelelsesboks dukker op på din skærm, og du klikker på knapperne, den tildeler en værdi til hver knap, i dette tilfælde er" ja "1 og" nej "er 2. Vi vil have variablen til at starte med et" nej "Så vi tildeler det nummer 2 som standard, på denne måde stopper det, indtil der klikkes på en knap For at gøre dette skriver vi: myvar = 2Hvad det gør: nu er MyVar lig med 2, på denne måde stopper det på den næste linje og venter på input. Nu vil vi bare have det til at sidde der og vente, indtil vi er klar til at tænde internettet igen. For at gøre dette skriver vi: mens myvar = 2Hvad det gør: Ved at gøre dette har vi fortalt scriptet, at så længe værdien af myvar = 2, så fortsæt bare med at loopke meddelelsesboksen, indtil vi får en anden værdi end 2, hvilket i dette tilfælde kun kunne være 1Næste vil vi faktisk få en meddelelsesboks til at dukke op med ja/nej -knapper. dette skriver vi: MyVar = MsgBox ("Tænd internetforbindelse", 65, "Tænd internetforbindelse") Hvad det gør: Nu vil MyVar -variablen blive tildelt den værdi, der er tildelt knappen, der klikkes på meddelelsesboksen. den første del i citaterne er, hvad meddelelsesboksen rent faktisk vil sige. 65 betegner det som en ja/nej -meddelelsesboks. og den sidste del i anførselstegn er meddelelsesboksens etiket. for at kontrollere, hvilken værdi den tildeler, når du klikker ja eller nej, kan du tilføje i en linje, der siger msgbox (myVar), og den udskriver den værdi, der er tildelt myvar i en meddelelsesboks. nu, at vi har en meddelelsesboks, skal vi lukke while -sætningen. Alt, hvad der er mellem åbning og lukning af while -sætningen, kører hver gang du klikker på nej, for hvis du klikker på nej, er det stadig en værdi på 2 og går tilbage til den første del. For at afslutte mens -sætningstypen: wendWhat it gør: Når du sætter en stopper for en while -sætning, fungerer den som en loop, indtil argumentet ikke længere er opfyldt. Så hvis du fortsætter med at slå nej, vil det gå i loop, men når du har trykket ja, vil det bryde fri af sløjfen og fortsætte med scriptet. Gem filen, men vent med at køre den til næste trin. Din kode indtil videre bør være: sæt 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 (" Tænd for internetforbindelse ", 65," Tænd for internetforbindelse ") wend

Trin 10: Trin 7: Tænd for internettet igen

Nu hvor nogen endelig klikker ja, og det har bestået while -erklæringen, skal vi urn på internettet. Jeg plejer at dukke en bekræftelse op, så slutbrugeren ved, hvad der foregår, men det er rent valgfrit. For at åbne en bekræftelsestype: msgbox ("Vi tænder nu internetforbindelsen igen !!!") Hvad den gør: den sender en meddelelsesboks, der siger, at vi nu vil tænde internetforbindelsen igen !!! og giver dig en ok -knap til at klikke. Nu skal vi bare tænde for internettet igen og lukke alt. for at tænde for internettet igen, åbner vi bare en kommandoprompt, indstil timeren, og brug derefter ipcionfig igen. for at gøre dette type: shellobj.run "cmd" wscript.sleep 200shellobj.sendkeys "ipconfig /forny {enter}" Hvad den gør: den vender slukkommandoen fra før og fornyer din IP -adresse. Når du har fornyet din IP -adresse, kan du nu få internetforbindelser igen. Nu skal vi bare rydde op i de åbne vinduer. Igen kunne vi bruge en sendkeys -kommando, men jeg tilføjer lige den sidste linje til også at holde oprydningerne. I dette tilfælde vil jeg bruge taskkill -program til at dræbe programmet, der viser billedet. I dette tilfælde er det windows picture og fax viewer og vises som rundll32.exe i procesfanen i task manager, så det er det, vi skal dræbe. Hvis dit billede åbnes ved hjælp af et andet program, f.eks. Irfanview eller acdsee, skal du finde det navn, det går under i fanen processer, og udskifte rundll32.exe med det navn, du finder. Kommandoen ville være: taskkill /F /IM rundll32.exe Hvad det gør: taskkill er navnet på programmet /F -kontakten fortæller det at tvinge et drab og /IM -kontakten fortæller det billednavnet Så nu tilføjer vi det til den sidste linje, tilføj en enter for at udføre kommandoen og derefter en exit -kommando og en anden enter, og det ser sådan ud: shellobj.sendkeys "ipconfig /renew {enter} taskkill /F /IM rundll32.exe {enter} exit {enter}" Gem din fil.

Trin 11: Færdig produkt

Hvis alt gik rigtigt, skulle dit færdige produkt se sådan ud: sæt 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 ("Tænd for internetforbindelse", 65, "Tænd for internetforbindelse") wendmsgbox ("Vi vil nu slå internettet til Tilslutning igen !!! ") shellobj.run" cmd "wscript.sleep 200shellobj.sendkeys" ipconfig /forny {enter} taskkill /F /IM rundll32.exe {enter} exit {enter} "_end af script_Now at programmeringen er kan du køre programmet. Hvad skal der ske: 1.) Du skal få CMD -vindue til at dukke op i meget kort tid og derefter lukke2.) Dit internet skal ikke længere fungere. men du ser det ikke3.) Dit billede skal åbne.4.) Du skal få en pop -up, der spørger dig, om du vil tænde for internettet igen. du åbner igen og spørger, om du vil tænde for internettet igen. skulle lukke. Der har du det. Et meget let VBscript til at tænde og slukke dit internet. Håber du kan lide det. Jeg lavede faktisk et andet script, der er næsten identisk med dette, der lukker netværksadapterne ved hjælp af et program kaldet DevCon, som er som en kommandolinjens enhedshåndtering. Fungerer rigtig godt til. Scriptet er identisk med dette, undtagen hvor det i denne har kommandoer til ipconfig, at man har kommandoer til DevCon.