Kev Lom Zem Nrog Yooj Yim VBS !!!: 5 Kauj Ruam

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

Phau ntawv qhia pib rau kev lom zem, thiab yooj yim los ua cov ntawv yooj yim. VSB yuav zoo li nyuaj rau qee tus, tab sis qhov tseeb nws yooj yim heev. Windows tseem tuaj yeem ua haujlwm nws yam tsis muaj tus neeg sau ntawv! Yog tias koj paub javascript, nws yuav tsum yooj yim heev rau koj.

Kauj Ruam 1: Cov Ntawv Qhia Yooj Yim

Ok yog li cia mus hla Lub hauv paus. Koj puas tau pom dua ib lub npov lus zoo li qhov hauv qab no, koj yuav muaj. Cov no tau siv los ceeb toom cov neeg siv ntawm txhua yam koj xav hais. Koj tuaj yeem tsim koj tus kheej los ntawm kev siv Txoj Haujlwm Msgbox Yog li cov lej rau hauv lub thawv ntawv uas hais tias nyob zoo yuav zoo li qhov no, Msgbox ("nyob zoo") Hloov koj tuaj yeem ua tsis tau lub thawv ntawv los ntawm kev ua lub voj yooj yim los ntawm kev siv Do, Loop cov lus txib.

Kauj Ruam 2: Ua Si thiab Khoom

Yog tias koj puas xav paub yuav ua li cas ua cov ntawv ua si dua saib tsis muaj ntxiv lawm. Kuv yuav yuam kev, tab sis kuv ntseeg tias lawv siv vbs. Tam sim no ntau vb cov ntawv sau siv tus sau, tab sis windows tsis xav tau ib qho. Tsuas yog ntaus ntawv cscript ua ntej txoj kab ntawv, tam sim no yog tias koj paub yuav ua cov ntaub ntawv dab tsi, tom qab ntawd koj tuaj yeem siv tus txheej txheem no, tab sis peb yuav tsis nkag mus rau qhov ntawd hauv cov lus qhia no.. Write "Zoo Hnub Tsis Yog?" Teb = Wscript. StdIn. ReadLine 'yog koj ntaus yog tIf teb = "yog" Ces Wscript.echo ("Kuv vam tias nws nyob li no")' Yog koj ntaus noElseIf teb = "tsis yog" ThenWscript.echo ("Kuv vam tias nws yuav zoo dua") 'lwm yamElseWscript. Echo ("GoodDay rau koj")' endEnd Ifnow cia li txuag qhov no li.vbs thiab siv txoj hauv kev ua ntej los khiav nws.

Kauj Ruam 3: Auto Typer

Txoj cai no nws los ntaus ib yam dab tsi ntau thiab ntau dua. Kuv tsis paub tias nws muaj txiaj ntsig zoo li cas, tab sis yog tias koj khiav nws, koj yuav tsum tua nws hauv cov haujlwm teev npe shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" doshellobj.sendkeys "Y" wscript.sleep 200Shellobj.sendkeys "o" wscript.sleep 200loop

Kauj Ruam 4: Matirx Muaj Koj

Puas tau xav tsis thoob tias yuav ua li cas koj pc tham nrog koj? Zoo luam qhov no

xaiv qhov tsis meej pem Tom ntej Tom ntej 'tshaj tawm qhov txawv txav wshshell, npe, mystring, ntev, txoj haujlwm, tmp, loopA, loopB, kabToWrite, kab, obUser, objSysInfo, myName, myNameLength, col1, col2, col3, col4, col5, siab tshaj, ntsiab lus wshshell = wscript.createobject ("wscript.shell") title="matrix" wshshell. SendKeys "{ALT}"+"{ENTER}" 'tau txais cov ntaub ntawv siv, siv kom tau lub npeSet objSysInfo = CreateObject ("ADSystemInfo") Teeb objUser = GetObject ("LDAP: //" & objSysInfo. UserName) '--------------------------- sub tos rau (var)' teeb tsa nce lub qhov rais, teeb lub npe, tos kom nws ua kom tiav = falsedo kom txog thaum tmpwscript.sleep 1000tmp = wshshell.appactivate (var) loopend sub '---------------------- ----- sub matrix (ntsiab lus) 'luam cov lej tsis raug los ua "matrix" saib' xav tias cov ntsiab lus tau faib los ntawm 5column = 5col1 = truecol2 = true col3 = truecol4 = truecol5 = truerandomize () linesToWrite = ntsiab lus / kab rau looA = 1 rau kabToWritefor loopB = 1 rau kab ntawv Xaiv Case loopBCase 1If col1 = tseeb Tom qab ntawd w shshell. SendKeys Int (Round (rnd ())) & "{TAB}" Lwm wshshell. SendKeys "{TAB}" Case 2If col2 = true Then wshshell. SendKeys Int (Round (rnd ())) & "{TAB} "Lwm wshshell. SendKeys" {TAB} "Case 3If col3 = true Ces wshshell. SendKeys Int (Round (rnd ())) &" {TAB} "Else wshshell. SendKeys" {TAB} "Case 4If col4 = true Ces. SendKeys Int (Round (rnd ())) & "{TAB}" Else wshshell. SendKeys "{TAB}" Case 5If col5 = true Then wshshell. SendKeys Int (Round (rnd ())) & "{TAB}" Lwm qhov wshshell. SendKeys "{TAB}" Xeem Selectwscript.sleep 5nextwscript. Echo 'Cov kab ntawv flip-flops no los tso tawm 20 feem pua ntawm lub sijhawm, ntawm nws tus kheej ib leeg.maximum = 0.20If rnd () <siab kawg ThenIf col1 = tseeb Tom qab ntawd col1 = cuav 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 = muaj tseeb ces col4 = tsis tseeb Lwm col4 = trueEnd IfIf rnd () <siab kawg ThenIf col5 = muaj tseeb ces col5 = tsis tseeb col5 = trueEnd Ifnextwscript. Echowscript. Echoend sub '--------------------------- sub key (msg)' ua luam tawm ntawm "matrix" lus, thiab lwv themwscript.sleep 1500length = len (msg) rau txoj haujlwm = 1 rau lengthwshshell. SendKeys nruab nrab (msg, txoj haujlwm, 1) wscript.sleep 250nextwscript.sleep 3000for = 1 rau lengthwshshell. SendKeys "{BACKSPACE}" wscript. pw 75nextend sub '---------------------------' pib "qhov tseem ceeb" ua tiav herewaitfor (npe) Rau loopA = 1 Rau 4Select Case loopACase 1mystring = "sawv, Neo …" Case 2mystring = "Matrix muaj koj …" Case 3mystring = "Ua raws li tus luav dawb …" Case 4mystring = "Knock knock …" Xeem Xaiv 'tam sim no luam tawm cov hlua raug (mystring) tom ntej' _ _ _ _ _ _ _ _ _ _ _ _ wscript.quit () save it to C: / temp as matrix.vbs the create the bat files@echo offcolor 0atitle matrixset /p matrix = | cscript /nologo (Hloov qhov no nrog koj txoj hauv kev rau cov ntaub ntawv vbs) tawm /p matrix = Lub npe RabbitHole.bat. Tom qab ntawd khiav nws !! qhov no yog qhov txias, tab sis tshaj plaws ua nrog vbsI kuv tsuas yog muab tso rau hauv vim tias nws txaus

Kauj ruam 5: Xaus

Koj mus

Lub ntuj txwv qhov uas koj tuaj yeem ua tau