Intro to VB Script: Phau Ntawv Qhia Pib: 11 Kauj Ruam

2024 Tus sau: John Day | [email protected]. Kawg hloov kho: 2024-01-30 09:31

*** (((ALERT: Txawm hais tias muaj ntau qib. Qhov no yog qhov yooj yim heev. Kuv tsuas yog piav qhia txhua yam hauv kev nthuav dav rau cov pib. chaws nyob ntawd.)))) *** Kuv ua si ntau Xbox nyob thiab ib txwm yuav tsum tau xiam internet hauv kuv lub khoos phis tawj vim nws hogs bandwidth. Feem ntau vim tias kuv tab tom rub tawm lossis rub khoom txhua lub sijhawm. Qhov teeb meem tsis tau kaw nws tab sis nws tau tig rov qab uas kuv hnov qab, ua rau qhov uas kuv xoob tawm ntawm txhua qhov upload/rub lub sijhawm. Yog li kuv txiav txim siab los tsim qhov program los ua rau kuv. Kuv tab tom yuav sau nws hauv Vb.net tab sis kuv nyuam qhuav nyuam qhuav yuav tsum tau nkees thiab txhim kho kuv lub tshuab ua haujlwm ntawm kuv lub khoos phis tawj vim muaj cua daj cua dub kib kuv lub hard drive, thiab tsis tau rov nruab VB.net dua li ntawd kuv tsuas xav tias qhov no yuav muab qhov laj thawj rau kuv ua si nrog vbscript. Kuv tseem ua cov duab hauv xim los tso rau tom qab yog li kuv paub tias nws tau ua haujlwm.

Kauj Ruam 1: Txheeb Xyuas Yam Koj Xav Ua

Thawj qhov kuv ib txwm ua yog ua daim phiaj. Kuv xav kom qhov program ua dab tsi? B) Kuv xav kom nws ua kom pom cov duab loj hauv keeb kwm yav dhau yog li tsis muaj qhov yuam kev uas internet raug kaw, txoj kev no kuv tsis hnov qab tig nws rov qab. C) Kuv xav kom nws muab qhov kev xaiv rau kuv tig nws. rov qab thiab tom qab ntawd tos rau cov lus teb D) Kuv xav kom ntseeg tau tias kuv tig nws rov qab yog li kuv tsis hnov qab. E) Tom qab ntawv ib zaug kuv tau hais tias yog los qhib nws rov qab, tsab ntawv tig rov qab thiab tom qab ntawd kaw qhov keeb kwm yav dhau. F) Tawm txhua yam.

Kauj Ruam 2: Yam Kuv Siv Tab sis Tsis Xav Tau

Txhua yam koj xav tau tiag tiag yog cov ntawv nyeem zoo li notepad. Txhua yam ntxiv yog nyob ntawm yeem. Kuv siv Notepad ++ thaum kuv ua VB tsab ntawv vim tias nws kho nws zoo li vb.net ua nrog cov xim thiab paub cov lus. Nws pab kom zam kev ua yuam kev. Nws kuj suav cov kab kom koj tuaj yeem kuaj pom tias muaj teeb meem dab tsi thaum koj tau txais tus lej yuam kev. Koj tuaj yeem tau txais los ntawm no notepad ++

Kauj ruam 3: Pib Programming

Zoo thawj qhov koj xav ua yog tsim cov ntawv sau thiab khaws nws rau txhua yam uas koj xav kom nws muaj npe nrog cov ntawv txuas ntxiv.vbsExample: NetworkShutOffScriptThatShutsOffTheInternetSoIcanPlayGamesOnMyXboxAndNotGetLag.vbsExample 2: games.vbsTxhua yam tseem ceeb yog koj lub npe.vbsI Kuv feem ntau ua qhov no ntawm lub desktop vim tias kuv qhib nws txog zillion zaug thaum kuv tab tom ua haujlwm rau nws tam sim no tsuas yog nyem rau ntawm cov ntawv thiab ntaus ntawv hloov lossis kho nrog notepad ++

Kauj Ruam 4: Kauj Ruam 1: Qhib Qhov Chaw Hais Kom Nkag Siab

Yog li kuv txiav txim siab ua feem ntau ntawm cov haujlwm kuv tsuas yog siv cov program uas twb tau khaws cia hauv computer los ua qhov kuv xav tau. Tsawg Coding thiab tsis muaj rub tawm… Woohoo. Easiest yog hais kom sai.so peb xav qhib qhov hais kom ua qhov rai kom ua li ntawd peb xav tsim lub objectto ua li ntawd peb ntaus: teeb shellobj = CreateObject ("WScript. Shell") Nws ua dab tsi: Teeb ib qho piv txwv ntawm shellobj kom sib npaug los tsim cov khoom w tsab ntawv plhaub. Txoj kev no txhua yam peb yuav tsum ua yog ntaus shellobj hloov chaw ntawm CreateObject ("WScript. Shell") txhua lub sijhawm peb xav tau cov lus txib tshiab tam sim no peb tau tsim cov khoom peb qhia cov khoom kom qhib qhov hais kom ua qhov rai.to ua li peb ntaus: shellobj.run "cmd" Nws ua dab tsi: Qhov no yuav yog qhov sib npaug ntawm kev ntaus CMD rau hauv lub thawv khiav ntawm cov ntawv qhia zaub mov pib. Yog tias peb tsis teeb tsa qhov sib txawv shellobject peb yuav tsum tau sau: CreateObject ("WScript. Shell"). Khiav "cmd" … pom yooj yim npaum li cas tam sim no. Tsawg chav rau qhov ua yuam kev. Click cov ntaub ntawv … ces Txuag … tom qab ntawd mus rau lub desktop thiab ob npaug nias rau vbsfile koj tau ua nws yuav tsum khiav Yog txhua yam mus zoo koj yuav tsum tau txais lub qhov rai hais kom sai kom pom …..yaaaaaa !!! yog tias tsis kos koj tus lej, kom deb li deb koj yuav tsum muaj: teeb tsa shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" Koj tuaj yeem ntxiv cov lus rau hauv koj tsab ntawv kom koj nco qab tias koj tau ua dab tsi tom qab los ntawm kev sau tus lej ua ntej ntawm kab qhov no: 'qhov no yog kom qhib qhov hais kom saiThaum kuv sau ntau zaus kuv yuav ua qhov no yog li kuv nco qab qhov kuv tau ua tom qab thaum kuv tab tom saib nws rau dab tsi. Tsab ntawv tsuas yog tsis quav ntsej cov kab ntawd thiab txav mus ntxiv. Yog koj pom lawv koj tuaj yeem ua tau ib yam.

Kauj Ruam 5: Kauj Ruam 2: Teeb Timers

Tam sim no tias peb muaj lub qhov rai tshiab tshiab peb xav tau sau nws nrog cov lus txib kom peb tuaj yeem tau txais nws los ua qhov peb xav tau. me ntsis pib. yog tias nws pib sai dhau lub khoos phis tawj yuav sau rau hauv qhov khoob ua ntej koj qhib lub qhov rai thiab koj yuav tau txais qee cov lus txib lossis tsis muaj ib qho hlo li. Yog li peb yuav tsum teeb tsa lub sijhawm. Txhawm rau ua qhov no peb ntaus: wscript.sleep 200What nws ua: Nws qhia cov ntawv kom tos X lub sijhawm ua ntej ua tiav cov lus txib tom ntej. 1000 sib npaug ib pliag yog li kuv tab tom tos ib feem tsib ntawm ob. Tej zaum koj yuav pom koj lub khoos phis tawj xav tau sijhawm ntau dua lossis tsawg dua. Yog tias koj saib lub computer thiab nws tsis ntaus cov lus txib kom raug, hloov tus lej mus rau tus lej siab dua li 2000 yuav yog 2 vib nas this thiab tej zaum yuav muaj sijhawm ntau. Txuag cov ntawv tam sim no koj cov lej ntawm qhov no yuav tsum yog: teeb shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" wscript.sleep 200

Kauj Ruam 6: Kauj Ruam 3: Ua Duab

Kuv nyuam qhuav qhib xim thiab ntaus "Internet Disconected" rau hauv nws thiab ua rau nws 800x600 thiab khaws nws li id.bmp thiab khaws nws hauv kuv cov npe hauv paus, hauv kuv cov ntaub ntawv k: / tab sis koj li tej zaum yuav yog c:

Kauj Ruam 7: Kauj Ruam 4: Xa Cov Lus txib, Qhib Daim Duab

Ok tam sim no uas peb muaj lub qhov rai hais kom ua tos cov lus txib txhua yam peb yuav tsum ua yog ntaus cov lus txib rau hauv lub qhov rais siv cov lus txib sendkeys. Thaum peb siv cov lus txib sendkeys nws zoo li ntaus ntawv tab sis nws yuav ntaus yam peb xav kom nws ntaus. Txhua yam peb tuaj yeem ntaus peb tuaj yeem xa nrog rau cov yuam sij nkag mus rau qhov ua haujlwm cov cuab yeej. Ntawm no peb paub yuav xa cov yuam sij li cas qhib peb daim duab peb nyuam qhuav ua, tom qab ntawd muab tso rau lwm lub sijhawm tom qab lo lus kom nws muab lub sijhawm thauj khoom. Txhawm rau ua qhov no peb ntaus: shellobj.sendkeys "k: / id.bmp {enter}" wscript.sleep 200What nws ua: Qhov no zoo ib yam li ntaus k: / id.bmp rau hauv lub thawv khiav. Nws yuav tsum qhib koj daim duab nyob rau hauv lub xub ntiag saib daim duab rau bmp… hauv kuv qhov xwm txheej nws yog daim duab windows thiab fax tus saib tab sis cov neeg feem ntau teeb tsa tom qab cov phiaj xwm kev lag luam uas ua qhov no ib yam nkaus li leej twg paub dab tsi koj li yuav qhib rau hauv.now txuag koj cov ntaub ntawv thiab khiav nws. Koj yuav tsum tau txais qhov hais kom ua sai sai thiab daim duab yuav tshwm tuaj. kom deb li deb tau zoo !!! koj cov cai kom deb yuav tsum yog: teeb shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" wscript.sleep 200shellobj.sendkeys "k: / id.bmp {enter}" wscript. loj 200

Kauj Ruam 8: Kauj Ruam 5: Xa Cov Lus txib, Kaw Hauv Is Taws Nem

Txij ntawm no mus yog tias koj tseem tsis tau ua tiav, rub tawm cov ntawv pdf thaum kawg yog li yog koj ntsia hlau koj muaj Cov Lus Qhia rub tawm yuav kho li cas tam sim no qhov no yog qhov pib lom zem. Ok yog li peb yuav siv ipconfig tso peb tus IP chaw nyob. Tsis muaj tus IP chaw nyob peb tsis tuaj yeem tau txais kev siv internet vim hais tias lub router tsis paub xa mus rau lub khoos phis tawj twg. Txhawm rau ua qhov no peb ntaus: shellobj.sendkeys "ipconfig /release {enter}" Nws ua dab tsi: Qhov no qhia txoj haujlwm IPCONFIG kom tso tus IP chaw nyob. tus {enter} tab tom qhia rau lub khoos phis tawj tias koj ntaus tus yuam sij nkag. qhov no yuav zoo li ntaus ipconfig /tso rau hauv lub qhov rais khiav thiab ntaus nkag. Feem ntau tom qab koj ua qhov no, yog tias koj khiav ipconfig nws yuav qhia koj tus IP chaw nyob yog 0.0.0.0 Qhov no yog qhov peb xav tau. Tsis muaj tus IP chaw nyob router tsis paub peb nyob ntawm no thiab tsis muaj cov program twg tuaj yeem "hu tawm" yog li tham. Tam sim no peb tuaj yeem sau lwm kab uas hais tias: shellobj.sendkeys "exit {enter}" Tab sis nws yuav yooj yim dua tsuas yog kho kab ntawv saum toj no thiab txuas nws mus rau qhov kawg kom koj muaj: shellobj.sendkeys "ipconfig /release {enter} exit {enter} "Tam sim no txuag nws tab sis tsis txhob khiav nws vim tias koj yuav kaw koj li internet txuas. Yog tias koj ua nws, thiab koj lub internet kaw, tsuas yog hloov qhov hloov los ntawm ipconfig /tso rau ipconfig /txuas ntxiv thiab nws rov ua haujlwm dua thiab nws yuav tsum tig rov qab. Thiab yog tias txhua yam ua tsis tiav rov pib dua thiab koj yuav tsum zoo.your code kom deb li deb yuav tsum yog: teeb shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" wscript.sleep 200shellobj.sendkeys "k: / id.bmp { nkag mus "wscript.sleep 200shellobj.sendkeys" ipconfig /tso tawm {enter} tawm {enter}"

Kauj Ruam 9: Kauj Ruam 6: Tsim Lub Thaj Tsam Xov Xwm thiab Tos Txais Lus Teb

Ok, tam sim no peb tau ua tiav kaw lub internet thiab kaw qhov hais kom ua qhov rai, peb xav kom lub npov lus kom tshwm tuaj nug yog tias peb xav tig lub internet rov qab rau tab sis ntawm no yog qhov uas nws tau lo qhia, peb xav kom nws tos rau qhov yog tab sis yog peb nyem tsis yog peb tsis xav kom nws ploj mus yog li peb yuav siv nqe lus ib ntus los ua qhov no. Ua ntej tshaj peb yuav tsum ntsuas qhov sib txawv rau lub messgebox yog li peb tuaj yeem muab nws tus lej sib txawv. Kuv paub nws suab tsis meej pem tab sis nws tsis yog. peb twb tau ua nws ib zaug nrog kab: teeb shellobj = CreateObject ("WScript. Shell") qhov no txawm tias yooj yim los teeb tsa nws peb tsuas yog ntaus: Dim MyVarWhat nws ua: Tam sim no peb tau dimensioned qhov sib txawv hu ua MyVarWhen koj tau txais "yog /tsis muaj "lub npov lus nthuav tawm ntawm koj lub vijtsam koj nyem lub pob nws muab tus nqi rau txhua lub pob, qhov no" yog "yog 1 thiab" tsis yog "2. Peb xav kom qhov sib txawv pib nrog" tsis "Yog li peb muab nws tus lej 2 los ntawm lub neej ntawd, txoj hauv kev no nws ncua mus txog thaum lub pob nyem los ua qhov no peb ntaus: myvar = 2 Nws ua dab tsi: tam sim no MyVar yog sib npaug rau 2, txoj hauv kev no hauv kab tom ntej nws yuav nres thiab tos rau kev nkag. Tam sim no peb tsuas yog xav kom nws zaum ntawm no thiab tos kom txog thaum peb npaj tig tig internet rov qab los.to ua qhov no peb ntaus: thaum myvar = 2What nws ua: Los ntawm kev ua qhov no peb tau hais rau tsab ntawv tias ntev npaum li tus nqi ntawm myvar = 2 tsuas yog khaws cov lus hauv kab ntawv kom txog thaum peb tau txais lwm yam txiaj ntsig ntau dua 2, qhov twg hauv qhov no tuaj yeem tsuas yog 1Ntxiv peb tiag tiag xav ua lub thawv ntawv pop nrog nrog/tsis khawm. qhov no peb ntaus: MyVar = MsgBox ("Qhib internet txuas", 65, "Qhib Kev Sib Txuas Hauv Internet") Nws ua dab tsi: Tam sim no MyVar qhov sib txawv yuav raug muab rau tus nqi twg yog muab rau lub pob uas tau nyem rau ntawm kab lus. thawj ntu hauv kab lus yog dab tsi lub thawv ntawv yuav hais tiag. Tus 65 xaiv nws raws li Yog/Tsis yog xa xov. thiab ntu kawg hauv nqe lus yog tus lej ntawm lub xov tooj. txhawm rau txheeb xyuas seb nws muaj nqis npaum li cas thaum koj nyem yog lossis tsis yog koj tuaj yeem ntxiv kab uas hais tias msgbox (myVar) thiab nws yuav luam tawm tus nqi twg yog muab rau myvar hauv ib lub thawv ntawv. Ntawm ntawd peb muaj lub npov lus peb yuav tsum kaw lub sijhawm cov lus. Txhua yam uas nyob nruab nrab ntawm kev qhib thiab kaw ntawm lub sijhawm cov lus yuav ua haujlwm txhua lub sijhawm koj nyem tsis tau, vim tias yog koj nyem tsis yog nws tseem yog tus nqi ntawm 2 thiab rov rov qab mus rau thawj ntu.to xaus lub sijhawm hom lus: wendWhat nws ua: Thaum koj tso qhov kawg ntawm nqe lus ib ntus nws yuav ua raws li lub voj kom txog thaum kev sib cav tsis tau ntsib dua. Yog li yog tias koj tseem ntaus tsis tau nws yuav voj tab sis thaum koj tsoo yog, nws yuav tawg ntawm lub voj thiab txuas ntxiv nrog tsab ntawv. Txuag cov ntaub ntawv tab sis tos kom khiav nws mus txog qib tom ntej. Koj cov cai kom deb li deb yuav tsum: teeb shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" wscript.sleep 200shellobj.sendkeys "k: / id.bmp { nkag mus "wscript.sleep 200shellobj.sendkeys" ipconfig /tso tawm {nkag} tawm {enter} "Dim MyVarmyvar = 2 lub sijhawm myvar = 2MyVar = MsgBox (" Qhib internet txuas ", 65," Qhib Kev Sib Txuas Internet ")

Kauj ruam 10: Kauj Ruam 7: Tig Internet Rov Qab

Tam sim no tias ib tus neeg thaum kawg nyem yog thiab nws tau dhau lub sijhawm hais tawm, peb yuav tsum tau tso quav hauv is taws nem. Kuv ib txwm pom qhov kev lees paub yog li cov neeg siv kawg paub dab tsi tab tom tshwm sim tab sis nws yog qhov kev xaiv dawb huv. Txhawm rau nthuav tawm hom kev lees paub: msgbox ("Peb tam sim no yuav qhib Kev Sib Txuas Internet rov qab rau !!!") Nws ua dab tsi: nws xa ib lub npov lus uas hais tias Peb yuav tam sim no Qhib Kev Sib Txuas Internet rov qab !!! thiab muab koj lub pob nyem rau nyem. Tam sim no txhua yam peb yuav tsum tau ua yog qhib lub internet rov qab thiab kaw txhua yam tawm.to tig lub Is Taws Nem rov qab rau peb tsuas yog qhib qhov hais kom ua sai sai teeb lub timer ces siv ipcionfig dua.to ua qhov no hom: shellobj.run "cmd" wscript.sleep 200shellobj.sendkeys "ipconfig /renew {enter}" Nws ua dab tsi: nws thim rov qab qhov hais kom ua ua ntej thiab txuas ntxiv koj tus IP chaw nyob. Thaum koj rov ua dua koj tus IP chaw tam sim no koj tuaj yeem tau txais kev sib txuas hauv is taws nem dua tam sim no txhua yam peb yuav tsum tau ua yog ntxuav lub qhov rais qhib. Ib zaug ntxiv peb tuaj yeem siv cov lus txib sendkeys tab sis kuv tsuas yog txuas kab kawg los tuav kev ntxuav kom zoo ib yam. Hauv qhov piv txwv no kuv tab tom yuav siv txoj haujlwm ua haujlwm kom tua lub program tso saib daim duab. Hauv qhov no nws yog daim duab windows thiab fax tus saib thiab pom zoo li rundll32.exe hauv cov txheej txheem tab ntawm tus thawj tswj haujlwm yog li ntawd yog yam peb yuav tsum tau tua. Yog tias koj daim duab qhib siv lwm txoj haujlwm, zoo li irfanview, lossis acdsee, nrhiav lub npe nws mus los ntawm cov txheej txheem tab thiab hloov lub rundll32.exe nrog nws nws lub npe koj pom. Cov lus txib yuav yog: taskkill /F /IM rundll32.exeWhat nws ua: cov haujlwm ua haujlwm yog lub npe ntawm txoj haujlwm program /F hloov qhia nws kom yuam kev tua thiab /IM hloov qhia nws lub npe duab Yog li tam sim no peb ntxiv qhov ntawd mus rau kab kawg, ntxiv rau hauv kev nkag mus rau qhov ua tiav cov lus txib thiab tom qab ntawd tawm lus txib thiab lwm tus nkag thiab nws zoo li qhov no: shellobj.sendkeys "ipconfig /txuas ntxiv {nkag mus} taskkill /F /IM rundll32.exe {nkag} tawm {nkag}" Txuag koj cov ntaub ntawv.

Kauj Ruam 11: Ua tiav Cov Khoom

Yog tias txhua yam ua tiav koj cov khoom tiav yuav tsum zoo li qhov no: teeb tsa 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 = 2while myvar = 2MyVar = MsgBox ("Turn on internet connection", 65, "Turn On Internet Connection") wendmsgbox ("Peb yuav tam sim no Tig Internet) Kev sib txuas rov qab rau !!! ") shellobj.run" cmd "wscript.sleep 200shellobj.sendkeys" ipconfig /txuas ntxiv {nkag mus} taskkill /F /IM rundll32.exe {nkag} tawm {enter} "_end ntawm script_Now tias qhov program yog ua tiav koj tuaj yeem khiav qhov program. Qhov yuav tsum tshwm sim li cas: 1.) Koj yuav tsum tau txais CMD qhov rai qhib rau lub sijhawm luv luv ces kaw2.) Koj li internet yuav tsum tsis ua haujlwm ntxiv lawm. tab sis koj yuav tsis pom qhov no. koj tab tom ua haujlwm dua nug yog tias koj xav tig lub Is Taws Nem rov qab. 6.) Thaum koj nyem yog lub thawv lus yuav tsum ploj thiab lub qhov rai CMD yuav tsum rov tshwm sim dua. yuav tsum kaw. Yog koj muaj nws. Ib qho yooj yim heev VBscript tig koj lub internet rau thiab tawm. Vam tias koj nyiam. Kuv tau ua lwm tsab ntawv uas yuav luag zoo ib yam rau qhov no uas kaw lub network hloov khoom siv siv qhov program hu ua DevCon, uas zoo li cov kab hais kom ua tus thawj tswj ntaus ntawv. Ua haujlwm tiag tiag rau. Tsab ntawv zoo ib yam rau qhov no tshwj tsis yog qhov twg hauv qhov no nws muaj cov cim rau ipconfig uas ib tus muaj lus txib rau DevCon.