Masaya Sa Madaling VBS !!!: 5 Mga Hakbang

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

Isang gabay ng Mga Nagsisimula sa kasiyahan, at madaling gawin ang visual basic script. Ang VSB ay maaaring mahirap sa ilan, ngunit sa katunayan ito ay talagang madali. Maaari pa itong patakbuhin ng Windows nang walang isang tagatala! Kung alam mo ang javascript, dapat talaga itong madali para sa iyo.

Hakbang 1: Pangunahing Mga Kahon ng Mensahe

Ok so lets go over the Basics. Nakita mo na ba ang isang kahon ng mensahe tulad ng nasa ibaba, malamang na mayroon ka. Ginagamit ang mga ito upang alerto ang mga gumagamit ng anumang nais mong sabihin. Maaari kang lumikha ng iyong sarili sa pamamagitan ng paggamit ng Function Msgbox Kaya ang code sa isang kahon ng mensahe na nagsasabing hi ganito ang hitsura, Msgbox ("hi") Bilang kahalili maaari kang gumawa ng isang hindi mapatay kahon ng mensahe sa pamamagitan ng paggawa ng isang simpleng loop sa pamamagitan ng paggamit ng mga Do, Loop command. Ngayon na natakpan namin ang mga kahon ng mensahe, hinahayaan na lumipat sa mga mas advanced na kahon ng mensahe.

Hakbang 2: Mga Laro at Bagay-bagay

Kung naisip mo kung paano gumawa ng mga text game kaysa sa tumingin nang malayo. Maaaring mali ako, ngunit naniniwala ako na ginamit nila ang mga vbs. Ngayon maraming mga vb script ang gumagamit ng isang tagatala, ngunit hindi kailangan ng mga bintana. Mag-type lamang ng cscript bago ang path ng file, ngayon kung alam mo kung paano gumawa ng mga file ng bat, pagkatapos ay maaari mong i-automate ang prosesong ito, ngunit hindi namin nakukuha ito sa itinuturo na ito. Narito ang isang maliit na laro na ginawa koOption ExplicitDim Sagot. Isulat ang "Magandang Araw Hindi ba?" Sagot = Wscript. StdIn. ReadLine 'kung nagta-type ka ng oo tIf sagot = "oo" Pagkatapos Wscript.echo ("Inaasahan kong mananatili ito sa ganitong paraan")' Kung nagta-type ka ng noElseIf sagot = "hindi" ThenWscript.echo ("Umaasa ako na magiging mas mahusay") 'kahit ano paElseWscript. Echo ("GoodDay to you")' endEnd Ifnow karaniwang i-save ito bilang.vbs at gamitin ang pamamaraan bago ito patakbuhin.

Hakbang 3: Ang Auto Typer

Ang code na ito ito upang mai-type ang isang bagay nang paulit-ulit. Hindi ko alam kung paano ito kapaki-pakinabang, ngunit kung patakbuhin mo ito, papatayin mo ito sa task listset shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" doshellobj.sendkeys "Y" wscript.matulog 200Shellobj.sendkeys "o" wscript.sulog 200loop

Hakbang 4: Ang Matirx Ay Ikaw

Kailanman nagtaka kung paano ka makakausap sa iyo ng pc? Mabuti kopyahin ito

pagpipilian explicitOn Error Resume Susunod 'ideklara ang mga variabledim wshshell, pamagat, mystring, haba, posisyon, tmp, loopA, loopB, mga linyaToWrite, mga haligi, objUser, objSysInfo, myName, myNameLength, col1, col2, col3, col4, col5, maximum, elementset wshshell = wscript.createobject ("wscript.shell") title="the matrix" wshshell. SendKeys "{ALT}" + "{ENTER}" 'makakuha ng impormasyon ng gumagamit, ginamit upang makuha ang nameSet objSysInfo = LumikhaObject ("ADSystemInfo") Itakda objUser = GetObject ("LDAP: //" & objSysInfo. UserName) '--------------------------- set ng sub waitfor (var)' pataas na window, itakda ang pamagat, hintayin itong makumpleto = falsedo hanggang sa tmpwscript.s Sleep 1000tmp = wshshell.appactivate (var) loopend sub '---------------- ----- sub matrix (mga elemento) Ang 'naka-print na mga random na numero upang gawin ang "matrix" na hitsura ay ipinapalagay na ang mga elemento ay nahahati sa pamamagitan ng 5columns = 5col1 = truecol2 = true col3 = truecol4 = truecol5 = truerandomize () linesToWrite = elemento / columnsfor loopA = 1 sa mga linyaToWritefor loopB = 1 sa mga haligi Piliin ang loop ng KasoBCase 1Kung col1 = totoo Kung gayon w shshell. SendKeys Int (Round (rnd ())) & "{TAB}" Else wshshell. SendKeys "{TAB}" Kaso 2If col2 = totoo Pagkatapos wshshell. SendKeys Int (Round (rnd ())) & "{TAB} "Else wshshell. SendKeys" {TAB} "Kaso 3If col3 = totoo Pagkatapos wshshell. SendKeys Int (Round (rnd ())) &" {TAB} "Else wshshell. SendKeys" {TAB} "Case 4If col4 = true Pagkatapos wshshell. SendKeys Int (Round (rnd ())) & "{TAB}" Else wshshell. SendKeys "{TAB}" Kaso 5Kung col5 = totoo Pagkatapos wshshell. SendKeys Int (Round (rnd ())) & "{TAB}" Iba pa wshshell. SendKeys "{TAB}" Tapusin ang Selectwscript.sulog 5nextwscript. I-Echo 'Ang mga flip-flop na haligi na ito upang ipakita ang 20 porsyento ng oras, nang nakapag-iisa sa bawat isa. = false Else col1 = trueEnd IfIf rnd () <maximum ThenIf col2 = true Then col2 = false Else col2 = trueEnd IfIf rnd () <maximum ThenIf col3 = true Then col3 = false Else col3 = trueEnd IfIf rnd () <maximum ThenIf col4 = true Pagkatapos col4 = false Else col4 = trueEnd IfIf rnd () <maximum ThenIf col5 = true Then col5 = false Else col5 = trueEnd Ifnextwscript. Echowscript. Echoend sub '--------------------------- sub key (msg)' gawin ang mga printout ng "the matrix" ang mga mensahe, at burahin ang mga ito tulog 75nextend sub '---------------------------' simulan ang "pangunahing" pagpapatupad ditowaitfor (pamagat) Para sa loopA = 1 To 4Select Case loopACase 1mystring = "gumising ka, Neo …" Kaso 2mystring = "Sa iyo ang matrix …" Kaso 3mystring = "Sundin ang puting kuneho …" Case 4mystring = "Knock knock …" End Select 'now print out the correct stringkey (mystring) next' _ _ _ _ _ _ _ _ _ _ wscript.quit () i-save ito sa C: / temp bilang matrix.vbs ang likhain ang mga bat file @ echo offcolor 0gawin ang matrixset / p matrix = | cscript / nologo (Palitan ito ng iyong landas sa file ng vbs) exitset / p matrix = Pangalanan ang RabbitHole.bat. Pagkatapos ay patakbuhin ito !! ito ay isang cool, ngunit advanced na bagay na gagawin sa vbs inilagay ko lang ito dahil ito ay mahusay

Hakbang 5: Wakas

Ayan ka na

Ang langit ang hangganan sa kung ano ang maaari mong gawin