Easy VBS ашиглан хөгжилтэй !!!: 5 алхам

2024 Зохиолч: John Day | [email protected]. Хамгийн сүүлд өөрчлөгдсөн: 2024-01-30 11:05

Анхан шатны сурагчдыг хөгжилтэй, хийхэд хялбар харааны үндсэн скрипт. VSB нь зарим хүмүүст хэцүү мэт санагдаж болох ч үнэн хэрэгтээ энэ нь үнэхээр хялбар юм. Windows үүнийг хөрвүүлэгчгүйгээр ажиллуулж болно! Хэрэв та javascript мэддэг бол энэ нь танд үнэхээр хялбар байх болно.

Алхам 1: Үндсэн зурвасын хайрцгууд

За ингээд үндсэн ойлголтуудыг авч үзье. Та доорх шиг мессежийн хайрцгийг харж байсан уу? Эдгээр нь хэрэглэгчдэд таны хэлэхийг хүссэн бүх зүйлд анхааруулах зорилгоор ашиглагддаг. Та Msgbox функцийг ашиглан өөрөө үүсгэж болно. Сайн байна уу гэсэн мессежийн хайрцгийн кодыг Msgbox ("сайн уу") эсвэл өөрөөр хийх боломжтой. Do, Loop тушаалуудыг ашиглан энгийн давталт хийх замаар мессежийн хайрцаг. Одоо бид мессежийн хайрцгийг хамарсан тул илүү дэвшилтэт мессежийн хайрцаг руу шилжих боломжийг олгоно.

Алхам 2: Тоглоом ба эд зүйлс

Хэрэв та текст тоглоомыг хэрхэн яаж хийх талаар бодож байгаа бол өөр зүйл хайх хэрэггүй. Миний буруу байж магадгүй, гэхдээ тэд vbs ашигласан гэдэгт би итгэдэг. Одоо маш олон скриптүүд хөрвүүлэгч ашигладаг боловч цонхонд үүнийг хийх шаардлагагүй байдаг. Зүгээр л файлын замын өмнө cscript бичээрэй, хэрэв та сарьсан багваахай файлыг хэрхэн яаж хийхийг мэддэг бол энэ процессыг автоматжуулж болно, гэхдээ бид энэ зааварчилгаанд хамрагдахгүй.. "Таатай өдөр биш гэж үү?" Гэж хариулна уу = Wscript. StdIn. ReadLine 'гэж бичвэл tIf answer = "тийм" гэж бичээрэй Дараа нь Wscript.echo ("Энэ хэвээр байх болно гэж найдаж байна")' Хэрэв та noElseIf хариулт бичвэл = "үгүй" ThenWscript.echo ("Энэ нь сайжирна гэж найдаж байна") 'else elseElseWscript. Echo ("GoodDay for you")' endEnd Ifnow үүнийг үндсэндээ.vbs хэлбэрээр хадгалж, ажиллуулахын өмнө аргыг ашиглана уу.

Алхам 3: Автомашины дугуйчин

Энэ кодыг ямар нэг зүйлийг дахин дахин бичихийг хэлнэ. Энэ нь хэр ашигтай болохыг би мэдэхгүй, гэхдээ хэрэв та үүнийг ажиллуулбал, үүнийг жагсаалтын жагсаалтад устгах хэрэгтэй болно shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" doshellobj.sendkeys "Y" wscript.sleep 200Shellobj.sendkeys "o" wscript.sleep 200loop

Алхам 4: Matirx танд байна

Чамайг компьютертэй хэрхэн яаж ярих талаар бодож байсан уу? Үүнийг хуулж ав

Дараахь алдааг үргэлжлүүлэх алдаа "wshshell, title, mystring, length, position, tmp, loopA, loopB,linesToWrite, ustuns, objUser, objSysInfo, myName, myNameLength, col1, col2, col3, col4, col5, maximum, elementsset wshshell, = wscript.createobject ("wscript.shell") title="матриц" wshshell. SendKeys "{ALT}"+"{ENTER}" "-ийн хэрэглэгчийн мэдээллийг олж авах, nameSet objSysInfo = CreateObject (" ADSystemInfo ") багцыг авахад ашигладаг objUser = GetObject ("LDAP: //" & objSysInfo. UserName) '--------------------------- дэд хэсэг хүлээх (var)' цонх хүртэл, гарчгийг тохируулаад tmpwscript.sleep 1000tmp = wshshell.appactivate (var) loopend sub '---------------------- хүртэл дуусгахыг хүлээнэ үү. ----- дэд матриц (элементүүд) -ийн санамсаргүй тоог хэвлэх нь "матриц" харагдуулахын тулд элементүүдийг 5 багана = 5col1 = truecol2 = үнэн col3 = truecol4 = truecol5 = truerandomize () lineToWrite = давталтын элементүүд / баганаA = 1 мөрөнд ToWritefor loopB = 1 баганаCase loopBCase 1 сонгоно уу col1 = үнэн Дараа нь w shshell. SendKeys Int (Round (rnd ())) & "{TAB}" Else wshshell. SendKeys "{TAB}" Case 2Хэрэв col2 = үнэн Дараа нь wshshell. SendKeys Int (Дугуй (rnd ())) & "{TAB}} "Өөр wshshell. SendKeys" {TAB} "Тохиолдол 3Хэрэв col3 = үнэн Дараа нь wshshell. SendKeys Int (Round (rnd ())) &" {TAB} "Else wshshell. SendKeys" {TAB} "Case 4If col4 = true Дараа нь wshshell. SendKeys Int (Round (rnd ())) & "{TAB}" Else wshshell. SendKeys "{TAB}" Case 5Хэрэв col5 = үнэн Дараа нь wshshell. SendKeys Int (Round (rnd ())) & "{TAB}" " Үгүй бол wshshell. SendKeys "{TAB}" Selectwscript.sleep 5nextwscript. Echo 'Энэ баганууд нь цагийн 20 хувийг бие биенээсээ хамааралгүй харуулдаг.maximum = 0.20Хэрвээ rnd () <хамгийн их Дараа нь бол col1 = үнэн Дараа нь col1 = худал Else col1 = trueEnd IfIf rnd () <хамгийн их Дараа нь col2 = үнэн Дараа нь col2 = хуурамч Else col2 = trueEnd IfIf rnd () <хамгийн их Дараа нь col3 = үнэн Дараа нь col3 = хуурамч өөр El3 col3 = trueEnd IfIf rnd () <хамгийн дээд Дараа нь col4 = үнэн Дараа нь col4 = хуурамч өөр Col4 = үнэнEnd IfIf rnd () <хамгийн их Дараа нь бол col5 = үнэн Дараа нь col5 = хуурамч өөр col5 = trueEnd Ifnextwscript. Echowscript. Echoend sub '--------------------------- дэд түлхүүр (msg)' нь "матриц" -ын хэвлэмэлийг хийдэг. messages, and delete themwscript.sleep 1500length = len (msg) to position = 1 to lengthwshshell. SendKeys mid (msg, position, 1) wscript.sleep 250nextwscript.sleep 3000for position = 1 to lengthwshshell. SendKeys "{BACKSPACE}" wscript. sleep 75nextend sub '---------------------------' "үндсэн" гүйцэтгэлийг энд хүлээнэ үү (гарчиг) For loopA = 1 to 4 = "сэрээрэй, Нео …" Тохиолдол 2mystring = "Матриц танд байна …" Тохиолдол 3mystring = "Цагаан туулайг дагах …" Тохиолдол 4mystring = "Тогших …" End Select 'одоо зөв stringkey (mystring) хэвлэх дараагийн' _ _ _ _ _ _ _ _ _ _ wscript.quit () үүнийг C: / temp хэлбэрээр matrix.vbs хэлбэрээр хадгалж, цохиурын файлуудыг үүсгэнэ@echo offcolor 0 матрицет /p матриц = | cscript /nologo (Үүнийг vbs файл руу орох замаараа солино) exitset /p matrix = RabbitHole.bat -ийн нэр. Дараа нь үүнийг ажиллуулаарай !! энэ бол гайхалтай, гэхдээ vbs -тэй хийх дэвшилтэт зүйл юм

Алхам 5: Төгсгөл

Та тийшээ яв

Тэнгэрийн тэнгэр таны хийж чадах зүйлийн хязгаар юм