สนุกกับ VBS ง่าย ๆ !!!: 5 ขั้นตอน

2024 ผู้เขียน: John Day | [email protected]. แก้ไขล่าสุด: 2024-01-30 13:09

คู่มือเริ่มต้นสำหรับสคริปต์พื้นฐานแบบเห็นภาพที่สนุกและใช้งานง่าย VSB อาจดูยากสำหรับบางคน แต่ในความเป็นจริง มันง่ายมาก Windows สามารถรันได้โดยไม่ต้องใช้คอมไพเลอร์! หากคุณรู้จักจาวาสคริปต์ มันน่าจะง่ายสำหรับคุณ

ขั้นตอนที่ 1: กล่องข้อความพื้นฐาน

ตกลง มาดูข้อมูลพื้นฐานกันดีกว่า คุณเคยเห็นกล่องข้อความแบบด้านล่างนี้หรือไม่ คุณน่าจะเคยเห็น สิ่งเหล่านี้ใช้เพื่อเตือนผู้ใช้ถึงสิ่งที่คุณต้องการจะพูด คุณสามารถสร้างของคุณเองได้โดยใช้ Function Msgbox ดังนั้นรหัสไปยังกล่องข้อความที่บอกว่า hi จะมีลักษณะเช่นนี้ Msgbox("hi") อีกวิธีหนึ่งคุณสามารถสร้าง unkillable กล่องข้อความโดยการวนซ้ำอย่างง่ายโดยใช้คำสั่ง Do, Loop ตอนนี้เราพูดถึงกล่องข้อความแล้ว ให้ย้ายไปยังกล่องข้อความขั้นสูง

ขั้นตอนที่ 2: เกมและสิ่งของ

หากคุณเคยสงสัยว่าจะสร้างเกมข้อความได้อย่างไร ไม่ต้องมองหาที่ไหนอีกแล้ว ฉันอาจจะผิด แต่ฉันเชื่อว่าพวกเขาใช้ vbs ตอนนี้สคริปต์ vb จำนวนมากใช้คอมไพเลอร์ แต่ windows ไม่ต้องการมัน เพียงพิมพ์ cscript ก่อนพาธของไฟล์ ตอนนี้ ถ้าคุณรู้วิธีสร้างไฟล์ bat แล้ว คุณสามารถทำให้กระบวนการนี้เป็นแบบอัตโนมัติได้ แต่เราจะไม่เข้าไปในนั้นในคำแนะนำนี้ นี่คือเกมเล็กๆ ที่ฉันทำOption ExplicitDim Answer' พิมพ์ questionWscript. StdOut. Write "Nice Day Isin't it? "answer = Wscript. StdIn. ReadLine 'if you type yes tIf answer="yes" แล้วก็ Wscript.echo ("ฉันหวังว่ามันจะเป็นแบบนี้")' หากคุณพิมพ์ noElseIf answer= "ไม่" ThenWscript.echo ("ฉันหวังว่ามันจะดีขึ้น") 'สิ่งอื่นใดElseWscript. Echo ("GoodDay to you")'end Ifnow โดยพื้นฐานแล้วให้บันทึกสิ่งนี้เป็น.vbs และใช้วิธีนี้ก่อนเพื่อเรียกใช้

ขั้นตอนที่ 3: Auto Typer

รหัสนี้จะพิมพ์อะไรบางอย่างซ้ำแล้วซ้ำอีก ฉันไม่รู้ว่ามันมีประโยชน์อย่างไร แต่ถ้าคุณเรียกใช้ คุณจะต้องฆ่ามันใน task listset shellobj = CreateObject("WScript. Shell")shellobj.run "cmd"doshellobj.sendkeys "Y"wscript.sleep 200Shellobj.sendkeys "o "wscript.sleep 200loop

ขั้นตอนที่ 4: Matirx มีคุณ

เคยสงสัยไหมว่าจะทำให้พีซีคุยกับคุณได้อย่างไร คัดลอกสิ่งนี้

ตัวเลือกที่ชัดเจนเกี่ยวกับข้อผิดพลาด ดำเนินการต่อ ต่อไป' ประกาศตัวแปรdim wshshell, ชื่อ, mystring, ความยาว, ตำแหน่ง, tmp, loopA, loopB, linesToWrite, คอลัมน์, objUser, objSysInfo, myName, myNameLength, col1, col2, col3, col4, col5, สูงสุด, elementsset wshshell = wscript.createobject("wscript.shell")title = "the matrix"wshshell. SendKeys "{ALT}"+"{ENTER}"' รับข้อมูลผู้ใช้ ใช้เพื่อรับ nameSet objSysInfo = CreateObject("ADSystemInfo")Set objUser = GetObject("LDAP://" & objSysInfo. UserName)' ---------------------------- ชุดย่อย waitfor (var)' ขึ้นหน้าต่าง ตั้งชื่อ รอให้เสร็จสมบูรณ์tmp = falsedo จนกระทั่ง tmpwscript.sleep 1000tmp = wshshell.appactivate(var)loopend sub' ---------------------- ----- เมทริกซ์ย่อย (องค์ประกอบ) ' พิมพ์ตัวเลขสุ่มเพื่อให้ "เมทริกซ์" ดู 'ถือว่าองค์ประกอบถูกหารด้วย 5columns = 5col1 = truecol2 = true col3 = truecol4 = truecol5 = truerandomize ()linesToWrite = องค์ประกอบ / คอลัมน์สำหรับ loopA = 1 ถึง linesToWritefor loopB = 1 ถึงคอลัมน์ เลือก Case loopBCase 1 ถ้า col1 = true จากนั้น w shshell. SendKeys Int(Round(rnd())) & "{TAB}" Else wshshell. SendKeys "{TAB}"Case 2If col2 = true แล้ว wshshell. SendKeys Int(Round(rnd())) & "{TAB} " อื่น wshshell. SendKeys "{TAB}" กรณี 3If col3 = true แล้ว wshshell. SendKeys Int(Round(rnd())) & "{TAB}" อื่น wshshell. SendKeys "{TAB}"Case 4If col4 = true แล้ว wshshell. SendKeys Int(Round(rnd())) & "{TAB}" Else wshshell. SendKeys "{TAB}"Case 5If col5 = true แล้ว wshshell. SendKeys Int(Round(rnd())) & "{TAB}" อื่น wshshell. SendKeys "{TAB}"End Selectwscript.sleep 5nextwscript. Echo' คอลัมน์ flip-flop นี้จะแสดง 20 เปอร์เซ็นต์ของเวลาโดยอิสระจากกัน maximum = 0.20If rnd() < maximum ถ้า col1 = true แล้ว col1 = 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 ถ้า col4 = true แล้วก็ col4 = false Else col4 = trueEnd IfIf rnd() < maximum ThenIf col5 = true then col5 = false Else col5 = trueEnd Ifnextwscript. Echowscript. Echoend sub' ---------------------------- คีย์ย่อย (msg)' ทำการพิมพ์ของ "the matrix" ข้อความ และลบ themwscript.sleep 1500length = len(msg)for position = 1 to lengthwshshell. SendKeys mid(msg, position, 1)wscript.sleep 250nextwscript.sleep 3000for position = 1 to lengthwshshell. SendKeys "{BACKSPACE}"wscript sleep 75nextend sub' ----------------------------' เริ่มการทำงาน "main" here waitfor(title)For loopA = 1 To 4Select Case loopACase 1mystring = "wake up, Neo…"Case 2mystring = "The matrix has you…"Case 3mystring = "Follow the white rabbit…"Case 4mystring = "Knock knock…"End Select' ตอนนี้ พิมพ์ stringkey ที่ถูกต้อง (mystring) ถัดไป' _ _ _ _ _ _ _ _ _ _ wscript.quit() บันทึกไปที่ C:\temp เป็น matrix.vbs สร้าง bat files@echo offcolor 0atitle the matrixset /p matrix= | cscript /nologo (แทนที่ด้วยพา ธ ไปยังไฟล์ vbs) exitset /p matrix= ตั้งชื่อว่า RabbitHole.bat แล้วรันเลย!! อันนี้เจ๋ง แต่ขั้นสูงที่ต้องทำกับ vbs ฉันใส่มันเข้าไปเพราะมันยอดเยี่ยม

ขั้นตอนที่ 5: สิ้นสุด

มาแล้วจ้า

ท้องฟ้ามีขีดจำกัดในสิ่งที่คุณสามารถทำได้