Vui vẻ với VBS dễ dàng !!!: 5 bước

2024 Tác giả: John Day | [email protected]. Sửa đổi lần cuối: 2024-01-30 13:36

Hướng dẫn cho người mới bắt đầu về kịch bản cơ bản trực quan và dễ thực hiện. VSB có vẻ khó đối với một số người, nhưng thực tế thì rất dễ. Windows thậm chí có thể chạy nó mà không cần trình biên dịch! Nếu bạn biết javascript, nó sẽ thực sự dễ dàng cho bạn.

Bước 1: Hộp thư cơ bản

Được rồi, chúng ta hãy xem qua Khái niệm cơ bản. Chúng được sử dụng để thông báo cho người dùng về bất cứ điều gì bạn muốn nói. hộp thông báo bằng cách tạo một vòng lặp đơn giản bằng cách sử dụng lệnh Do, Loop.

Bước 2: Trò chơi và Nội dung

Nếu bạn từng tự hỏi làm thế nào để tạo trò chơi văn bản thì không cần tìm đâu xa. Tôi có thể sai, nhưng tôi tin rằng họ đã sử dụng vbs. Hiện nay rất nhiều vb script sử dụng một trình biên dịch, nhưng các cửa sổ không cần một trình biên dịch. Chỉ cần nhập cscript trước đường dẫn tệp, bây giờ nếu bạn biết cách tạo tệp dơi, thì bạn có thể tự động hóa quá trình này, nhưng chúng tôi sẽ không đi sâu vào điều đó trong hướng dẫn này. Đây là một trò chơi nhỏ tôi đã thực hiện.. Viết "Nice Day Isin't it?" Answer = Wscript. StdIn. ReadLine 'nếu bạn nhập yes tIf answer = "yes" Sau đó Wscript.echo ("Tôi hy vọng nó vẫn như vậy")' Nếu bạn nhập noElseIf answer = "no" ThenWscript.echo ("Tôi hy vọng nó sẽ tốt hơn") 'anything elseElseWscript. Echo ("GoodDay to you")' endEnd Ifnow về cơ bản lưu nó dưới dạng.vbs và sử dụng phương pháp trước đó để chạy nó.

Bước 3: Trình đánh máy tự động

Mã này nó để gõ một cái gì đó lặp đi lặp lại. Tôi không biết nó hữu ích như thế nào, nhưng nếu bạn chạy nó, bạn sẽ phải giết nó trong task listet shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" doshellobj.sendkeys "Y" wscript.sleep 200Shellobj.sendkeys "o" wscript.sleep 200loop

Bước 4: Matirx có bạn

Bạn đã bao giờ tự hỏi làm thế nào để khiến máy tính của bạn nói chuyện với bạn?

option explicitOn Error Resume Next 'khai báo các biếndim wshshell, title, mystring, length, position, tmp, loopA, loopB, linesToWrite, column, objUser, objSysInfo, myName, myNameLength, col1, col2, col3, col4, col5, Maximum, elementsset wshshell = wscript.createobject ("wscript.shell") title="the matrix" wshshell. SendKeys "{ALT}" + "{ENTER}" 'lấy thông tin người dùng, được sử dụng để lấy tên Đặt objSysInfo = CreateObject ("ADSystemInfo") Đặt objUser = GetObject ("LDAP: //" & objSysInfo. UserName) '--------------------------- sub waitfor (var)' set thiết lập cửa sổ, đặt tiêu đề, đợi nó hoàn thành xong = falsedo cho đến khi tmpwscript.sleep 1000tmp = wshshell.appactivate (var) loopend sub '---------------------- ----- ma trận con (các phần tử) 'in các số ngẫu nhiên để làm cho "ma trận" trông "giả sử các phần tử chia hết cho 5 cột = 5col1 = truecol2 = true col3 = truecol4 = truecol5 = truerandomize () linesToWrite = phần tử / cột cho vòng lặpA = 1 đến dòngToWritefor loopB = 1 đến cộtChọn trường hợp loopBCase 1Nếu col1 = true Sau đó w shshell. SendKeys Int (Round (rnd ())) & "{TAB}" Else wshshell. SendKeys "{TAB}" Case 2If col2 = true Thì wshshell. SendKeys Int (Round (rnd ())) & "{TAB} "Else wshshell. SendKeys" {TAB} "Case 3If col3 = true Thì wshshell. SendKeys Int (Round (rnd ())) &" {TAB} "Else wshshell. SendKeys" {TAB} "Case 4If col4 = true Thì wshshell. SendKeys Int (Round (rnd ())) & "{TAB}" Else wshshell. SendKeys "{TAB}" Case 5If col5 = true Thì wshshell. SendKeys Int (Round (rnd ())) & "{TAB}" Else wshshell. SendKeys "{TAB}" End Selectwscript.sleep 5nextwscript. Echo 'Cột flip-flops này hiển thị 20 phần trăm thời gian, độc lập với nhau. Maximum = 0,20If rnd () <Maximum ThenIf col1 = true Thì col1 = false Else col1 = trueEnd IfIf rnd () <Maximum ThenIf col2 = true Thì col2 = false Else col2 = trueEnd IfIf rnd () <Maximum ThenIf col3 = true Then col3 = false Else col3 = trueEnd IfIf rnd () <tối đa ThenIf col4 = true Thì col4 = false Else col4 = trueEnd IfIf rnd () <Maximum thenIf col5 = true Sau đó col5 = false Else col5 = trueEnd Ifnextwscript. Echowscript. Echoend sub '--------------------------- sub key (msg)' để in ra "ma trận" và xóa themwscript.sleep 1500length = len (msg) cho position = 1 thành lengthwshshell. SendKeys mid (msg, position, 1) wscript.sleep 250nextwscript.sleep 3000for position = 1 to lengthwshshell. SendKeys "{BACKSPACE}" wscript. sleep 75nextend sub '---------------------------' start "main" thực thi ở đây chờ (tiêu đề) For loopA = 1 To 4Select Case loopACase 1mystring = "thức dậy, Neo …" Trường hợp 2mystring = "Ma trận có bạn …" Trường hợp 3mystring = "Theo dõi con thỏ trắng …" Trường hợp 4mystring = "Knock knock…" Kết thúc Chọn 'bây giờ hãy in ra đúng chuỗi ký tự (mystring) tiếp theo' _ _ _ _ _ _ _ _ _ _ wscript.quit () lưu nó vào C: / temp dưới dạng matrix.vbs để tạo tệp dơi @ echo offcolor 0atitle ma trận matrixset / p = | cscript / nologo (Thay thế điều này bằng đường dẫn của bạn đến tệp vbs) exitset / p matrix = Đặt tên là RabbitHole.bat. Sau đó, chạy nó !!

Bước 5: Kết thúc

Đây bạn đi

Bầu trời giới hạn những gì bạn có thể làm