Ievads VB skriptā: iesācēju ceļvedis: 11 soļi

2024 Autors: John Day | [email protected]. Pēdējoreiz modificēts: 2024-01-30 10:59

***** kods.)))) *** Es spēlēju daudz Xbox tiešraides, un man vienmēr ir jāatspējo internets datorā, jo tas palielina joslas platumu. Galvenokārt tāpēc, ka es visu laiku lejupielādēju vai augšupielādēju lietas. Problēma nav tā izslēgšana, bet tā atkal tiek ieslēgta, un es aizmirstu, padarot to tur, kur es zaudēju visu augšupielādes/lejupielādes laiku. Tāpēc es nolēmu izveidot programmu, lai to izdarītu manā vietā. Es gatavojos to rakstīt vietnē Vb.net, bet nesen man nācās kodolieročus un bruģēt operētājsistēmu savā datorā, jo slikta vētra apcep manu cieto disku, un vēl neesmu pārinstalējis VB.net, tāpēc es tikai sapratu, ka tas notiks dod man iemeslu spēlēties ar vbscript. Es arī izveidoju attēlu krāsā, lai to parādītu fonā, tāpēc es zināju, ka tas darbojas.

1. darbība: izdomājiet, ko vēlaties darīt

Pirmā lieta, ko es vienmēr daru, ir izveidot plānu. Ko es vēlos, lai programma darītu? A) Es vēlos, lai varētu atvērt skriptu, un tas automātiski izslēgs savienojumu. B) Es vēlos, lai fonā tiktu parādīts milzīgs displejs, tāpēc nav kļūdas, ka internets ir izslēgts, tāpēc es neaizmirstu to atkal ieslēgt. C) Es vēlos, lai tas man dotu iespēju to ieslēgt ieslēdziet un pēc tam gaidiet atbildi. D) Es vēlos, lai es to atkal ieslēdzu, lai neaizmirstu. E) Tad, kad es tiešām saku jā, lai to atkal ieslēgtu, skripts to atkal ieslēdz un pēc tam aizver fonu. F) Iziet no visa.

2. darbība. Lietas, kuras es izmantoju, bet nav īsti vajadzīgas

Viss, kas jums patiešām nepieciešams, ir teksta redaktors, piemēram, piezīmju grāmatiņa. Viss pārējais nav obligāts. Es izmantoju Notepad ++, kad veicu VB skriptu, jo tas izturas tāpat kā vb.net ar krāsām un zina valodu. Tas palīdz izvairīties no kļūdām. Tas arī numurē rindas, lai jūs varētu diagnosticēt, kāda ir problēma, kad saņemat kļūdas kodu. Var iegūt no šejienes piezīmju grāmatiņu ++

3. darbība: sāciet programmēšanu

Pirmā lieta, ko vēlaties darīt, ir izveidot teksta failu un saglabāt to jebkurā vietā, kurā vēlaties to nosaukt, izmantojot faila paplašinājumu.vbsPiemērs: NetworkShutOffScriptThatShutsOffTheInternetSoIcanPlayGamesOnMyXboxAndNotGetLag.vbs.vbs

4. darbība: 1. darbība. Komandu uzvednes loga atvēršana

Tāpēc es nolēmu paveikt lielāko daļu darba un izmantot tikai datorā jau saglabātās programmas, lai darītu to, ko es vēlos. Mazāk kodēšanas un bez lejupielādes… Woohoo. Vienkāršākā ir komandu uzvedne. Tāpēc mēs vēlamies atvērt komandu uzvednes logu, lai to izdarītu, mēs vēlamies izveidot objektu, lai to izdarītu, ierakstām: set shellobj = CreateObject ("WScript. Shell") Ko tas dara: Iestatiet shellobj gadījumu līdzvērtīgu, lai izveidotu objektu w skripta apvalks. Tādā veidā viss, kas mums jādara, ir rakstīt shellobj, nevis CreateObject ("WScript. Shell") katru reizi, kad mums ir nepieciešama jauna komanda. Tagad, kad esam izveidojuši objektu, mēs uzdodam objektam atvērt komandu uzvednes logu. Lai to izdarītu, mēs ierakstām: shellobj.run "cmd" Ko tas dara: tas būtu līdzvērtīgi ierakstīšanai CMD sākuma izvēlnes darbības lodziņā. Ja mēs nebūtu iestatījuši mainīgo shellobject, mums būtu bijis jāievada: CreateObject ("WScript. Shell"). Palaist "cmd" … redziet, cik daudz vieglāk ir tagad. Mazāk vietas kļūdām. Noklikšķiniet uz faila… un pēc tam uz Saglabāt… pēc tam dodieties uz darbvirsmu un veiciet dubultklikšķi uz vbsfile, kuru izveidojāt, ja tā darbojas jūsu kodēšana, līdz šim jums vajadzētu būt: set shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" Jūs varat pievienot komentārus savam skriptam, lai atcerētos, ko darījāt vēlāk, ievietojot komatu rindas priekšā, piemēram, šis: "tas ir, lai atvērtu komandu uzvedni. Kodējot daudzas reizes, es to darīšu, lai atcerētos to, ko darīju vēlāk, kad to meklēju. Skripts vienkārši ignorē šo līniju un virzās tālāk. Ja redzat tos, varat darīt to pašu.

5. darbība: 2. darbība: taimeru iestatīšana

Labi, tagad, kad mums ir jauns logs, mums tas jāaizpilda ar komandām, lai mēs varētu darīt to, ko vēlamies. Problēma ir tā, ka dažiem datoriem logu atvēršana prasa ilgāku laiku nekā citiem, tāpēc vēlamies, lai skripts nedaudz pagaidītu mazliet, lai sāktu. ja tas sākas pārāk ātri, dators aizpildīs tukšo vietu, pirms atverat logu, un jūs saņemsiet daļēju komandu vai nevienu. Tātad mums ir jāiestata taimeris. Lai to izdarītu, mēs ierakstām: wscript.sleep 200Ko tas dara: tas liek skriptam nogaidīt X laiku pirms nākamās komandas izpildes. 1000 ir vienāds ar vienu sekundi, tāpēc mans gaida piekto sekundi. Iespējams, datoram būs jāgaida vairāk laika vai mazāk. Ja skatāties datoru un tas neievada komandas pareizi, mainiet skaitli uz lielāku skaitli, piemēram, 2000, tas būtu 2 sekundes un, iespējams, daudz laika. Saglabājiet failu tagad, jūsu kodam šajā brīdī vajadzētu būt: set shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" wscript.sleep 200

6. darbība: 3. darbība: izveidojiet attēlu

Es tikko atvēru krāsu un ierakstīju tajā "Internet Disconected" un padarīju to 800x600 un saglabāju to kā id.bmp un saglabāju savā saknes direktorijā, manā gadījumā k: / bet jūsu, iespējams, būs c:

7. darbība: 4. darbība: komandu sūtīšana, attēla atvēršana

Labi, tagad, kad mums ir komandu logs, kas gaida komandas, viss, kas mums jādara, ir ierakstīt komandas logā, izmantojot komandu sendkeys. Kad mēs izmantojam komandu sendkeys, tā ir tāda pati kā rakstīšana, bet tā ierakstīs visu, ko mēs vēlamies. Viss, ko mēs varam ierakstīt, mēs varam nosūtīt, ieskaitot ievades taustiņus, kas nepieciešami programmu izpildei. Tagad, ka mēs zinām, kā nosūtīt atslēgas, tiek atvērts mūsu tikko izveidotais attēls, pēc tam ievietojiet citu taimera pēcvārdu, lai tas dotu attēla ielādes laiku. Lai to izdarītu, mēs ierakstām: shellobj.sendkeys "k: / id.bmp {enter}" wscript.sleep 200Kas tas notiek: Tas ir tas pats, kas ierakstīt k: / id.bmp izpildes lodziņā. Tam vajadzētu atvērt jūsu attēlu noklusējuma attēlu skatītājā bmp … manā gadījumā tas ir Windows attēlu un faksa skatītājs, bet lielākā daļa cilvēku instalē pēcpārdošanas programmas, kas arī to dara, lai kas zina, kas tiks atvērts jūsu. Tagad saglabājiet savu failu un palaidiet to. Jums vajadzētu saņemt komandu uzvedni un uznirstošu attēlu. līdz šim tik labi !!! jūsu kodam līdz šim vajadzētu būt: set shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" wscript.sleep 200shellobj.sendkeys "k: / id.bmp {enter}" wscript. gulēt 200

8. darbība: 5. darbība: komandu sūtīšana, interneta izslēgšana

Šajā brīdī, ja vēl neesat to izdarījis, beigās lejupielādējiet pdf failu, tāpēc, ja jūs uzskrūvējat, jums ir lejupielādēts Instructable, kā to labot. Tagad šeit sākas jautrība. Labi, tāpēc mēs izmantosim ipconfig, lai atbrīvotu mūsu IP adresi. Bez IP adreses mēs nevaram iegūt nekādu interneta trafiku, jo maršrutētājs nezina, kur to nosūtīt uz datoru. Lai to izdarītu, mēs ierakstām: shellobj.sendkeys "ipconfig /release {enter}" Ko tas dara: Tas uzdod programmai IPCONFIG atbrīvot IP adresi. {enter} norāda datoram, ka jūs nospiedāt ievadīšanas taustiņu. tas būtu tāpat kā ierakstīt ipconfig /release izpildes logā un nospiest taustiņu Enter. Parasti pēc tam, kad esat to izdarījis, ja palaižat ipconfig, tas jums pateiks, ka jūsu IP adrese ir 0.0.0.0 Tas ir tas, ko mēs vēlamies. Bez IP adreses maršrutētājs nezina, ka mēs esam šeit, un neviena programma nevar tā teikt "izsaukt". Tagad, kad esam veiksmīgi pabeiguši IP izslēgšanu, vēlamies aizvērt logu. Tagad mēs varētu uzrakstīt citu rindu, kurā teikts: shellobj.sendkeys "exit {enter}" Bet būtu vieglāk vienkārši rediģēt iepriekš minēto rindu un pievienot to līdz galam, lai jums būtu: shellobj.sendkeys "ipconfig /release {enter} exit {enter} "Tagad saglabājiet to, bet nepalaidiet to, jo jūs izslēgsit interneta savienojumu. Ja jūs to palaižat un jūsu internets tiek izslēgts, vienkārši nomainiet slēdzi no ipconfig /release uz ipconfig /atnauj, un tas tiek palaists vēlreiz, un tam vajadzētu atkal ieslēgties. Un, ja nekas cits neizdodas, atsāknējiet un jums vajadzētu būt kārtībā. Jūsu kodam līdz šim vajadzētu būt: set shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" wscript.sleep 200shellobj.sendkeys "k: / id.bmp { enter} "wscript.sleep 200shellobj.sendkeys" ipconfig /release {enter} iziet {enter}"

9. darbība: 6. darbība: ziņojumu lodziņa izveide un atbildes gaidīšana

Labi, tagad, kad mēs esam veiksmīgi izslēguši internetu un aizvēruši komandu uzvednes logu, mēs vēlamies, lai tiktu parādīts ziņojuma lodziņš ar jautājumu, vai mēs vēlamies atkal ieslēgt internetu. Bet šeit tas ir sarežģīti, mēs vēlamies, lai tas pagaidītu jā, bet, ja mēs noklikšķinām uz nē, mēs nevēlamies, lai tas pazustu, tāpēc, lai to izdarītu, mēs izmantojam paziņojumu. Es zinu, ka tas izklausās mulsinoši, bet patiesībā tā nav. mēs to jau izdarījām vienu reizi ar rindu: set shellobj = CreateObject ("WScript. Shell"), šo ir pat vieglāk iestatīt, vienkārši ierakstot: Dim MyVar /nē "ekrānā tiek parādīts ziņojuma lodziņš un jūs noklikšķināt uz pogām, kas piešķir katrai pogai vērtību, šajā gadījumā" jā "ir 1 un" nē "ir 2. Mēs vēlamies, lai mainīgais sāktos ar" nē "Tātad mēs pēc noklusējuma piešķiram tam numuru 2, šādā veidā tas tiek apturēts, līdz tiek noklikšķināts uz pogas Tagad mēs tikai vēlamies, lai tas tur sēž un gaida, līdz būsim gatavi atkal ieslēgt internetu. Lai to izdarītu, mēs ierakstām: kamēr myvar = 2 Ko tas dara: To darot, mēs esam pateikuši skriptam, ka tik ilgi, kamēr vērtība myvar = 2, tad vienkārši turpiniet ziņotnes cilpu, līdz iegūstam jebkuru citu vērtību, nevis 2, kas šajā gadījumā varētu būt tikai 1. Tālāk mēs patiešām vēlamies parādīt ziņojumu lodziņu ar pogām jā/nē. mēs to ierakstām: MyVar = MsgBox ("Ieslēgt interneta savienojumu", 65, "Ieslēgt interneta savienojumu") Ko tas dara: Tagad mainīgajam MyVar tiks piešķirta jebkura vērtība, kas piešķirta pogai, uz kuras tiek noklikšķināts uz ziņojumu lodziņa. citātu pirmā daļa ir tas, ko īsti pateiks ziņu kastīte. 65 to apzīmē kā Jā/Nē ziņojumu lodziņu. pēdiņā pēdiņās ir ziņojuma lodziņa apakšdaļa. lai pārbaudītu, vai vērtība tiek piešķirta, noklikšķinot uz jā vai nē, varat pievienot rindiņu, kurā teikts msgbox (myVar), un tā izdrukās visu vērtību, kas myvar ir piešķirta ziņojumu lodziņš. tagad, kad mums ir ziņojumu lodziņš, mums ir jāaizver paziņojums while. Viss, kas atrodas laikā, kad paziņojums ir atvērts un aizvērts, tiks izpildīts katru reizi, kad noklikšķināsit uz nē, jo, noklikšķinot uz nē, tā joprojām ir vērtība 2 un atgriežas pirmajā daļā. Lai izbeigtu paziņojuma veidu: wendWhat dara: Kad jūs izbeidzat kādu brīdi, tas darbosies kā cilpa, līdz arguments vairs netiks izpildīts. Tātad, ja jūs turpināsit nospiest “nē”, tas atkārtosies, bet, kad noklikšķināsit “jā”, tas atbrīvosies no cilpas un turpinās ar skriptu. Saglabājiet failu, bet pagaidiet, līdz tas tiks palaists līdz nākamajai darbībai. Jūsu kodam līdz šim vajadzētu būt: 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 (" Ieslēgt interneta savienojumu ", 65," Ieslēgt interneta savienojumu ") wend

10. darbība: 7. darbība: interneta ieslēgšana

Tagad, kad kāds beidzot noklikšķināja uz “Jā” un ir pagājis paziņojums “Kamēr”, mums ir jāmeklē internets. Es parasti parādīju apstiprinājumu, lai galalietotājs zinātu, kas notiek, bet tas ir tikai pēc izvēles. Lai parādītu apstiprinājuma veidu: msgbox ("Mēs tagad atkal ieslēgsim interneta savienojumu !!!") Ko tas dara: tas nosūta ziņojumu lodziņu, kurā teikts, ka mēs tagad atkal ieslēgsim interneta savienojumu !!! un dod jums OK pogu, lai noklikšķinātu. Tagad viss, kas mums jādara, ir atkal ieslēgt internetu un aizvērt visu. lai atkal ieslēgtu internetu, mēs vienkārši atveram komandu uzvedni, iestatiet taimeri un pēc tam vēlreiz izmantojiet ipcionfig. lai to izdarītu tips: shellobj.run "cmd" wscript.sleep 200shellobj.sendkeys "ipconfig /atnauj {enter}" Ko tas dara: tas apgriež izslēgšanas komandu no iepriekšējās un atjauno jūsu IP adresi. Kad esat atjaunojis savu IP adresi, tagad varat atkal iegūt interneta savienojumus. Tagad viss, kas mums jādara, ir notīrīt atvērtos logus. Atkal mēs varētu izmantot komandu sendkeys, bet es tikai pievienošu pēdējo rindiņu, lai noturētu arī tīrīšanu. Šajā gadījumā es izmantošu programmu Taskkill, lai nogalinātu programmu, kas parāda attēlu. Šajā gadījumā tas ir Windows attēlu un faksa skatītājs, un uzdevumu pārvaldnieka procesu cilnē tas tiek parādīts kā rundll32.exe, tāpēc mums tas ir jānogalina. Ja jūsu attēls tiek atvērts, izmantojot citu programmu, piemēram, irfanview vai acdsee, cilnē Procesi atrodiet tā nosaukumu un aizstājiet rundll32.exe ar atrasto vārdu. Komanda būtu šāda: taskkill /F /IM rundll32.exe dara: taskkill ir tās programmas nosaukums, kuram slēdzis /F liek piespiest nogalināt, un /IM slēdzis norāda attēla nosaukumu. Tātad tagad mēs to pievienojam pēdējai rindai, pievienojiet enter, lai izpildītu komandu, un pēc tam iziešanas komanda un vēl viena ievadīšana, un tas izskatās šādi: shellobj.sendkeys "ipconfig /uuenda {enter} taskkill /F /IM rundll32.exe {enter} iziet {enter}" Saglabājiet failu.

11. darbība. Gatavs produkts

Ja viss notika pareizi, gatavajam produktam vajadzētu izskatīties apmēram šādi: 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 ("Ieslēgt interneta savienojumu", 65, "Ieslēgt interneta savienojumu") wendmsgbox ("Mēs tagad ieslēgsim internetu Savienojums atkal ieslēgts! darīts, jūs varat palaist programmu. Kas jānotiek: 1.) Jums vajadzētu saņemt CMD logu uznirstošu ļoti īsu laiku, pēc tam aizvērt2.) Jūsu internetam vairs nevajadzētu darboties. 3.) Jūsu attēlam vajadzētu atvērties. 4.) Jums vajadzētu saņemt uznirstošo logu, kurā jautās, vai vēlaties atkal ieslēgt internetu. 6.)) Noklikšķinot uz jā, ziņojuma lodziņam vajadzētu pazust un CMD logam atkal parādīties 7.) Pēc IP adreses atjaunošanas CMD logs un attēls vajadzētu aizvērt. Tur jums tas ir. Ļoti vienkāršs VBscript, lai ieslēgtu un izslēgtu internetu. Ceru, ka jums patīk. Es faktiski izveidoju citu skriptu, kas ir gandrīz identisks šim, kas izslēdz tīkla adapterus, izmantojot programmu DevCon, kas ir kā komandrindas ierīču pārvaldnieks. Darbojas patiešām labi. Skripts ir identisks šim, izņemot gadījumus, kad šajā ir ipconfig commadns, kam ir komandas DevCon.