Panimula sa VB Script: isang Gabay sa Mga Nagsisimula: 11 Mga Hakbang

2024 May -akda: John Day | [email protected]. Huling binago: 2024-01-30 13:16

*** ((((ALERT: Bagaman maraming mga hakbang. Ito ay talagang medyo madali. Ipinapaliwanag ko lamang ang lahat nang detalyado para sa mga nagsisimula. Kung nais mo lamang ang code na tumalon sa huling hakbang at mahahanap mo ang buong code doon.)))) *** Nagpe-play ako ng maraming Xbox live at palaging kailangang hindi paganahin ang internet sa aking computer dahil ito ay hogs bandwidth. Pangunahin dahil sa pag-download o pag-upload ko ng mga bagay sa lahat ng oras. Ang problema ay hindi isinasara ito ngunit binabalik ito na nakakalimutan ko, na ginagawa kong saan ako maluwag sa lahat ng oras ng pag-upload / pag-download. Kaya't nagpasya akong lumikha ng isang programa upang magawa ito para sa akin. Isusulat ko ito sa Vb.net ngunit kailangan ko lamang i-nuke at i-aspar ang aking operating system sa aking computer dahil sa isang hindi magandang pagprito ng aking hard drive, at hindi ko pa nai-install muli ang VB.net kaya't naisip ko na bigyan mo ako ng isang dahilan upang maglaro sa vbscript. Gumawa rin ako ng isang imahe sa pintura upang ipakita sa likuran kaya alam kong tumatakbo ito.

Hakbang 1: Alamin Kung Ano ang Gusto Mong Gawin

Ang unang bagay na lagi kong ginagawa ay gumawa ng isang plano. Ano ang gusto kong gawin ng programa? A) Nais kong mabuksan ang script at awtomatiko nitong isara ang koneksyon. B) Nais kong ipakita ang isang higanteng display sa background upang walang pagkakamali na naka-off ang internet, sa ganitong paraan ay hindi ko nakakalimutang ibalik ito. C) Nais kong bigyan ako ng isang pagpipilian upang buksan ito bumalik at pagkatapos maghintay para sa isang tugon. D) Gusto kong tiyakin na ibalik ko ito upang hindi ko makalimutan. at pagkatapos isara ang background. F) Lumabas sa lahat.

Hakbang 2: Mga Bagay na Ginagamit Ko Ngunit Hindi Talagang Kailangan

Ang kailangan mo lang ay isang text editor tulad ng notepad. Ang lahat ng iba pa ay opsyonal. Gumagamit ako ng Notepad ++ kapag ginagawa ko ang VB script kaya't tinatrato ito tulad ng ginagawa ng vb.net sa mga kulay at alam ang wika. Nakakatulong ito upang maiwasan ang mga pagkakamali. Inilalagay din nito ang mga linya upang masuri mo kung ano ang problema kapag nakakuha ka ng isang error code. Maaari kang makuha mula rito notepad ++

Hakbang 3: Simulan ang Programming

Sa gayon ang unang bagay na nais mong gawin ay lumikha ng isang file ng teksto at i-save ito sa anumang nais mo na mapangalanan ito gamit ang file extension.vbsExample: NetworkShutOffScriptThatShutsOffTheInternetSoIcanPlayGamesOnMyXboxAndNotGetLag.vbsExample 2: games.vbsAng lahat ng mahalaga ay iyong pinangalanan ito kasama ang file Karaniwan kong ginagawa ito sa desktop dahil binubuksan ko ito ng halos isang milyong beses habang ginagawa ko ito. Ngayon ay i-click lamang ang file at pindutin ang i-edit o i-edit gamit ang notepad ++

Hakbang 4: Hakbang 1: Pagbubukas ng isang Window ng Prompt ng Command

Kaya't napagpasyahan kong gawin ang karamihan sa gawaing gagamitin ko lang na mga program na nakaimbak na sa computer upang gawin ang nais ko. Mas kaunting Coding at walang mga pag-download … Woohoo. Easiest ay prompt ng utos. Kaya nais naming buksan ang isang window ng command prompt upang gawin ito na nais naming bumuo ng isang objectto na gawin upang mag-type kami: set shellobj = CreateObject ("WScript. Shell") Ano ang ginagawa nito: Magtakda ng isang halimbawa ng shellobj upang maging pantay upang lumikha ng object w script shell. Sa ganitong paraan ang dapat lamang nating gawin ay i-type ang shellobj sa halip na LumikhaObject ("WScript. Shell") sa tuwing kailangan namin ng bagong utos. Ngayon na lumikha kami ng isang bagay na tinuturo namin sa bagay na buksan ang isang command prompt window. Upang gawin iyon ay nagta-type kami: shellobj.run "cmd" Ano ang ginagawa nito: Ito ay magiging katumbas ng pagta-type ng CMD sa run box sa start menu. Kung hindi namin naitakda ang variable na shellobject na sana ay na-type namin: LumikhaObject ("WScript. Shell"). Patakbuhin ang "cmd" … tingnan kung gaano kadali ito ngayon. Mas kaunting silid para sa mga pagkakamali. Mag-click sa file … pagkatapos ay I-save … pagkatapos ay pumunta sa desktop at i-double click ang vbsfile na ginawa mo dapat itong tumakbo Kung ang lahat ay tama dapat kang makakuha ng isang utos ng windows command upang magpakita …..yaaaaaa !!! kung hindi suriin ang iyong pag-coding, sa ngayon dapat mayroon ka: itakda ang shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" Maaari kang magdagdag ng mga komento sa iyong script upang maalala mo ang ginawa mo sa paglaon sa pamamagitan ng paglalagay ng isang kuwit sa harap ng linya tulad ng ito: 'ito ay upang buksan ang isang prompt ng utos Kapag nag-coding ako ng maraming beses ay gagawin ko ito upang maalala ko kung ano ang ginawa ko sa paglaon kapag tinitingnan ko ito. Hindi lamang pinapansin ng script ang linya na iyon at magpatuloy. Kung nakikita mo sila maaari mo ring gawin ang pareho.

Hakbang 5: Hakbang 2: Pag-set up ng Mga timer

Ok ngayon na mayroon kaming isang spiffy bagong window kailangan namin upang punan ito ng mga utos upang makagawa natin ito kung ano ang gusto natin. Ang problema ay mas matagal ang ilang mga computer kaysa sa iba pa upang buksan ang mga bintana kaya nais naming maghintay ng kaunti ang script kaunti upang magsimula. kung nagsisimula ito sa lalong madaling panahon ang computer ay punan ang blangko bago mo buksan ang window at makakakuha ka ng isang bahagyang utos o wala sa lahat. Kaya kailangan naming mag-set up ng isang timer. Upang magawa ito, nagta-type kami: wscript.s Sleep 200Ano ang ginagawa nito: Sinasabi nito sa script na maghintay ng isang X na oras bago ipatupad ang susunod na utos. Ang 1000 ay katumbas ng isang segundo kaya't ang minahan ay naghihintay ng ikalimang segundo. Maaari mong makita na ang iyong computer ay kailangang maghintay ng mas maraming oras o mas kaunti. Kung pinapanood mo ang computer at hindi nito na-type nang tama ang mga utos, baguhin ang numero sa isang mas mataas na numero tulad ng 2000 ay magiging 2 segundo at marahil maraming oras. I-save ang file ngayon ang iyong code sa puntong ito ay dapat: itakda ang shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" wscript.sulog 200

Hakbang 6: Hakbang 3: Gumawa ng Larawan

Binuksan ko lamang ang pintura at na-type ang "Internet Disconected" dito at ginawa itong 800x600 at nai-save ito bilang id.bmp at nai-save ito sa aking direktoryo ng ugat, sa aking kaso k: / ngunit ang sa iyo ay maaaring maging c:

Hakbang 7: Hakbang 4: Pagpapadala ng Mga Utos, Pagbukas ng Larawan

Ok ngayon na mayroon kaming isang window ng utos na naghihintay para sa mga utos ang dapat lamang gawin ay i-type ang mga utos sa window gamit ang sendkeys command. Kapag ginamit namin ang sendkeys command ito ay tulad ng pagta-type ngunit magta-type ito ng anumang nais naming i-type nito. Anumang maaari naming mai-type na maaari naming ipadala kasama ang mga enter key na kinakailangan upang magpatupad ng mga programa. Ngayong alam namin kung paano magpadala ng mga key ay binubuksan ang aming larawan na aming ginawa, pagkatapos ay ilagay sa isa pang timer afterword upang mabigyan nito ang oras ng larawan upang mai-load. Upang magawa ito, nagta-type kami: Dapat itong buksan ang iyong larawan sa default na manonood ng larawan para sa isang bmp … sa aking kaso ito ay windows picture at fax viewer ngunit karamihan sa mga tao ay nag-install pagkatapos ng mga programa sa merkado na ginagawa rin ito upang malaman kung ano ang magbubukas sa iyo. Ngayon i-save ang iyong file at patakbuhin ito. Dapat kang makakuha ng isang prompt ng utos at isang larawan upang mag-pop up. sa ngayon napakahusay !!! ang iyong code sa ngayon ay dapat na: itakda ang shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" wscript.sulog 200shellobj.sendkeys "k: / id.bmp {enter}" wscript. tulog 200

Hakbang 8: Hakbang 5: Pagpapadala ng Mga Utos, Patayin ang Internet

Sa puntong ito kung hindi mo pa nagagawa ito, i-download ang file na PDF sa dulo kaya't kung mag-screw up ka ay mayroon kang isang Na-download na tagubilin sa kung paano ito ayusin. Ngayon ay kung saan nagsisimula ang kasiyahan. Ok kaya gagamitin namin ang ipconfig upang palabasin ang aming IP address. Nang walang isang IP address hindi kami makakakuha ng anumang trapiko sa internet dahil hindi alam ng router kung saan ipadala ito sa computer. Upang magawa ito, nagta-type kami: sinasabi ng {enter} sa computer na na-hit mo ang enter key. ito ay magiging katulad ng pagta-type ipconfig / bitawan sa run window at pagpindot ng enter. Karaniwan pagkatapos mong gawin ito, kung nagpapatakbo ka ng ipconfig sasabihin nito sa iyo ang iyong IP address na 0.0.0.0 Ito ang nais namin. Nang walang isang IP address na hindi alam ng router na narito tayo at walang mga program na maaaring "mag-dial out" upang magsalita. Ngayon na matagumpay naming natapos ang pag-shut off ng IP na nais naming isara ang window. Maaari kaming magsulat ng isa pang linya na nagsasabing: shellobj.sendkeys "exit {enter}" Ngunit mas madali na i-edit lamang ang linya sa itaas at idagdag ito hanggang sa wakas upang magkaroon ka ng: shellobj.sendkeys "ipconfig / release {enter} exit {enter} "Ngayon i-save ito ngunit huwag patakbuhin ito dahil isasara mo ang iyong koneksyon sa internet. Kung patakbuhin mo ito, at ang iyong internet ay patayin, palitan lamang ang switch mula sa ipconfig / bitawan sa ipconfig / i-renew at patakbo itong muli at dapat itong buksan muli. At kung ang lahat ay nabigo sa pag-reboot at dapat kang maging maayos. Ang iyong code sa ngayon ay dapat na: itakda ang shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" wscript.s Sleep 200shellobj.sendkeys "k: / id.bmp { ipasok ang "wscript.s Sleep 200shellobj.sendkeys" ipconfig / release {enter} exit {enter}"

Hakbang 9: Hakbang 6: Paglikha ng Box ng Mensahe at Naghihintay para sa Sagot

Ok, ngayong matagumpay nating na-shut off ang internet at isinara ang window ng command prompt, nais namin ang isang kahon ng mensahe na mag-pop up na nagtatanong kung nais naming buksan muli ang internet. Ngunit narito kung saan nakakalito, nais naming maghintay ito para sa isang oo ngunit kung na-click namin ang hindi gusto namin itong mawala kaya gagamitin namin ang isang habang pahayag upang gawin ito. Una kailangan naming sukatin ang isang variable para sa messgebox upang maitalaga namin ito sa mga variable ng numero. Alam kong nakalilito ito ngunit hindi talaga. nagawa na namin ito nang isang beses sa linya: set shellobj = CreateObject ("WScript. Shell") ang isang ito ay mas madali pa ring i-set up na type lang namin: Dim MyVarAno ang ginagawa nito: Ngayon ay nag-dimension kami ng isang variable na nagngangalang MyVarKapag nakakuha ka ng isang "oo / hindi "pop-up ang kahon ng mensahe sa iyong screen isang pag-click sa mga pindutan na ito ay nagtatalaga ng isang halaga sa bawat pindutan, sa kasong ito" oo "ay 1 at" hindi "ay 2. Gusto naming magsimula ang variable sa isang" hindi "Kaya itinalaga namin ito sa numero 2 bilang default, sa ganitong paraan ito tumitigil hanggang ma-click ang isang pindutan Upang magawa ito i-type namin: myvar = 2Ano ang ginagawa nito: ngayon ang MyVar ay katumbas ng 2, sa ganitong paraan sa susunod na linya ay titigil ito at maghihintay para sa pag-input. Ngayon ay nais lamang namin itong umupo doon at maghintay hanggang sa handa kaming ibalik ang internet. Upang gawin ito ay nai-type namin: habang myvar = 2 Ano ang ginagawa nito: Sa paggawa nito sinabi namin sa script na hangga't ang halaga ng myvar = 2 pagkatapos ay panatilihin lamang ang pag-ikot ng messagebox hanggang sa makakuha kami ng anumang iba pang halaga kaysa sa 2, na sa kasong ito ay maaari lamang maging 1 Susunod na talagang nais naming gumawa ng isang kahon ng mensahe na mag-pop up ng oo / hindi mga pindutan. Upang gawin type namin ito: MyVar = MsgBox ("I-on ang koneksyon sa internet", 65, "I-on ang Koneksyon sa Internet") Ano ang ginagawa nito: Ngayon ang variable ng MyVar ay itatalaga kung anong halaga ang itinalaga sa pindutan na na-click sa kahon ng mensahe. ang unang bahagi sa mga quote ay kung ano ang talagang sasabihin ng messagebox. Itinalaga ito ng 65 bilang isang messagebox na Oo / Hindi. at ang huling bahagi sa mga quote ay ang lable ng messagebox. upang suriin upang makita kung anong halaga ang itinalaga nito kapag nag-click ka sa oo o hindi maaari kang magdagdag sa isang linya na nagsasabing msgbox (myVar) at mai-print nito ang anumang halaga na itinalaga sa myvar sa isang kahon ng mensahe.ngayon na mayroon kaming isang kahon ng mensahe na kailangan namin upang isara ang pahayag habang. Ang lahat na nasa pagitan ng bukas at pagsara ng habang pahayag ay tatakbo sa tuwing mag-click ka hindi, dahil kung nag-click ka ng hindi ito ay isang halaga pa rin ng 2 at mga loop pabalik sa unang bahagi. Upang wakasan ang uri ng pahayag habang: wendWhat it does: Kapag natapos mo na sa isang habang pahayag ito ay kumilos asa loop hanggang sa hindi na natagpuan ang pagtatalo. Kaya't kung magpatuloy kang mag-hit no ay mag-loop ito ngunit sa sandaling na-hit mo ang oo, mawawala ito sa loop at magpatuloy sa script. I-save ang file ngunit maghintay na patakbuhin ito hanggang sa susunod na hakbang. Ang iyong code sa ngayon ay dapat na: itakda ang shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" wscript.sulog 200shellobj.sendkeys "k: / id.bmp { ipasok ang} "wscript.s Sleep 200shellobj.sendkeys" ipconfig / release {enter} exit {enter} "Dim MyVarmyvar = 2 habang myvar = 2MyVar = MsgBox (" I-on ang koneksyon sa internet ", 65," Turn On Internet Connection ") wend

Hakbang 10: Hakbang 7: Pagbukas ng Internet

Ngayon na ang isang tao sa wakas ay nag-click sa oo at naipasa na nito ang habang pahayag, kailangan nating mag-urn sa internet. Karaniwan akong pop up ng isang kumpirmasyon upang malaman ng end user kung ano ang nangyayari ngunit ito ay pulos opsyonal. Upang mag-pop up ng isang uri ng kumpirmasyon: msgbox ("Bubuksan namin ngayon ang Koneksyon sa Internet !!!") Ano ang ginagawa nito: nagpapadala ito ng isang kahon ng mensahe na nagsasabing I-on namin muli ang Koneksyon sa Internet !!! at bibigyan ka ng isang ok na pindutan upang mag-click. Ngayon ang kailangan lang nating gawin ay buksan muli ang internet at at isara ang lahat. upang buksan muli ang internet binubuksan lamang namin ang isang prompt ng utos na itakda ang timer pagkatapos ay gamitin muli ang ipcionfig. upang gawin ito type: shellobj.run "cmd" wscript.s Sleep 200shellobj.sendkeys "ipconfig / renew {enter}" Ano ang ginagawa nito: binabaligtad nito ang pag-off ng utos mula dati at binabago ang iyong IP address. Sa sandaling na-update mo ang iyong IP address maaari ka na ulit makakuha ng mga koneksyon sa internet. Ngayon ang kailangan lang nating gawin ay linisin ang mga bukas na bintana. Muli maaari kaming gumamit ng isang sendkeys command ngunit idaragdag ko rin ang huling linya upang hawakan din ang mga paglilinis. Sa pagkakataong ito gagamitin ko ang programa ng taskkill upang patayin ang program na nagpapakita ng larawan. Sa kasong ito ito ay windows picture at fax viewer at ipinapakita bilang rundll32.exe sa tab na proseso ng task manager kaya't iyon ang kailangan nating pumatay. Kung magbubukas ang iyong larawan gamit ang isa pang programa, tulad ng irfanview, o acdsee, hanapin ang pangalang dumadaan nito sa tab na mga proseso at ilagay ang rundll32.exe na walang pangalan na makikita mo. Ang utos ay: taskkill / F / IM rundll32.exe Ano ito ang: ang taskkill ay ang pangalan ng programa na sinasabi ng switch na / F na pilitin ang isang pumatay at sinasabi ng switch ng / IM ang pangalan ng imahe Kaya't idinagdag namin iyon sa huling linya, idagdag sa isang ipasok upang maisagawa ang utos at pagkatapos ay isang exit command at isa pang ipasok at ganito ang hitsura: shellobj.sendkeys "ipconfig / renew {enter} taskkill / F / IM rundll32.exe {enter} exit {enter}" I-save ang iyong file.

Hakbang 11: Tapos na Produkto

Kung tama ang lahat ng iyong natapos na produkto ay dapat magmukhang ganito: itakda ang shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" wscript.sulog 200shellobj.sendkeys "k: / id.bmp {enter}" wscript.s Sleep 200shellobj.sendkeys "ipconfig / release {enter} exit {enter}" Dim MyVarmyvar = 2 habang myvar = 2MyVar = MsgBox ("I-on ang koneksyon sa internet", 65, "I-On ang Koneksyon sa Internet") wendmsgbox ("I-on na namin Ang Internet Bumalik ang koneksyon !!! ") shellobj.run" cmd "wscript.s Sleep 200shellobj.sendkeys" ipconfig / renew {enter} taskkill / F / IM rundll32.exe {enter} exit {enter} "_end of script_Now that the programming is tapos na maaari mong patakbuhin ang programa. Ano ang dapat mangyari: 1.) Dapat kang makakuha ng window ng CMD pop up para sa isang napakaikling oras pagkatapos isara2.) Ang iyong internet ay hindi na dapat gumana. ngunit hindi mo ito makikita3.) Ang iyong larawan ay dapat buksan. ikaw ngunit muling nagtataguyod ng pagtatanong kung nais mong i-on muli ang internet.6.) Sa sandaling na-click mo ang oo ang kahon ng mensahe ay dapat mawala at isang window ng CMD ay dapat na ipakita7.) Kapag na-update ang IP address sa CMD window at ang larawan dapat isara. Doon mayroon ka nito. Isang napakadaling VBscript upang i-on at i-off ang iyong internet. Sana magustuhan mo. Talagang gumawa ako ng isa pang script na halos magkapareho sa isang ito na nagsara sa mga adaptor ng network gamit ang isang program na tinatawag na DevCon, na tulad ng isang manager ng aparato ng linya ng utos. Gumagawa ng tunay na mabuti sa. Ang script ay magkapareho sa isang ito maliban kung saan sa isang ito mayroon itong mga commadns para sa ipconfig na ang isa ay may mga utos para sa DevCon.