Easy VBS менен кызыктуу !!!: 5 кадам

2024 Автор: John Day | [email protected]. Акыркы өзгөртүү: 2024-01-30 10:43

Жаңы баштагандар кызыктуу жана жөнөкөй визуалдык негизги сценарийди көрсөтүшөт. VSB кээ бирөөлөргө оор көрүнүшү мүмкүн, бирок чындыгында бул оңой. Windows аны компиляторсуз деле иштете алат! Эгерде сиз javascriptти билсеңиз, анда бул сиз үчүн чындап оңой болушу керек.

1 -кадам: Негизги билдирүү кутучалары

Макул, Basicsке өтөлү. Сиз төмөндөгүдөй билдирүү кутусун көрдүңүз беле? Бул колдонуучуларга эмнени айткыңыз келсе, ошонун бардыгын эскертүү үчүн колдонулат. Сиз Msgbox Функциясын колдонуу менен өзүңүздү өзүңүз түзө аласыз, андыктан салам мындай деген билдирүү кутусунун коду, Msgbox ("салам") Do, Loop командаларын колдонуу менен жөнөкөй цикл түзүү менен билдирүү кутусу

2 -кадам: Оюндар жана нерселер

Эгерде сиз текст оюндарын кантип жасоону ойлонсоңуз, андан ары карабаңыз. Мен жаңылышып жатам, бирок алар vbs колдонгонуна ишенем. Азыр vb скрипттеринин көбү компиляторду колдонушат, бирок терезелерге анын кереги жок. Жөн гана cscriptти файлдын жолуна чейин териңиз, эми эгер сиз бат файлдарды жасоону билсеңиз, анда сиз бул процессти автоматташтыра аласыз, бирок биз бул инструкцияга кирбейбиз.. Жазыңыз "Жагымдуу күн эмеспи?" Answer = Wscript. StdIn. ReadLine 'деп терсеңиз ооба tIf answer = "ооба" Андан кийин Wscript.echo ("Мен ушинтип калат деп үмүттөнөм")' Эгерде noElseIf деп жооп берсең = "жок" ThenWscript.echo ("Мен жакшы болот деп үмүттөнөм") 'else elseElseWscript. Echo ("GoodDay to you")' endEnd Ifnow негизинен муну.vbs катары сактап, аны иштетүүдөн мурун ыкманы колдонуңуз.

3 -кадам: Auto Typer

Бул бир нерсени кайра -кайра терүү үчүн код. Бул канчалык пайдалуу экенин билбейм, бирок эгер сиз аны иштетсеңиз, аны тапшырма тизмесинде өлтүрүүгө туура келет shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" doshellobj.sendkeys "Y" wscript.sleep 200Shellobj.sendkeys "o" wscript.sleep 200loop

4 -кадам: Matirx сизде бар

Сизди компьютер менен кантип сүйлөштүрүүнү ойлонуп көрдүңүз беле?

опция ачык "Катаны улантуу кийинки" wshshell, титул, mystring, узундук, позиция, tmp, loopA, loopB,linesToWrite, мамычалар, objUser, objSysInfo, myName, myNameLength, col1, col2, col3, col4, col5, максимум, wetshell = 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 = элементтер / циклдар үчүн loopA = бөлүнөт деп ойлойт. 1 линияларгаToWritefor loopB = 1 мамычаларга Case loopBCase 1 тандаңыз Эгерде col1 = true анда w shshell. SendKeys Int (Round (rnd ())) & "{TAB}" Башка wshshell. SendKeys "{TAB}" Case 2Эгер col2 = true Анда wshshell. SendKeys Int (Round (rnd ())) & "{TAB} "Башка wshshell. SendKeys" {TAB} "Case 3Эгер col3 = true Анда wshshell. SendKeys Int (Round (rnd ()))) &" {TAB} "Else wshshell. SendKeys" {TAB} "Case 4If col4 = true Анда wshshell. SendKeys Int (Round (rnd ())) & "{TAB}" Башка wshshell. SendKeys "{TAB}" Case 5If col5 = true Андан кийин wshshell. SendKeys Int (Round (rnd ())) & "{TAB}}" Болбосо wshshell. SendKeys "{TAB}" Selectwscript.sleep 5nextwscript. Echo 'Бул флип-флоптор мамычалардын 20 пайызын бири-биринен көз карандысыз көрсөтүү.maximum = 0.20Эгер rnd () <максимум ОшондоIf col1 = туура Анда col1 = жалган Else col1 = trueEnd IfIf rnd () <максимум ThenIf col2 = true Анда col2 = false Else col2 = trueEnd IfIf rnd () <максимум ThenIf col3 = true Анда col3 = false Else col3 = trueEnd IfIf rnd () <максималдуу ThenIf col4 = true Анда col4 = false Else col4 = trueEnd IfIf rnd () <максимум ThenIf col5 = true Анда col5 = false Else col5 = trueEnd Ifnextwscript. Echowscript. Echoend sub '--------------------------- суб баскычы (msg)' "матрицанын" басып чыгарылышын аткарат messages, and delete 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 '---------------------------' баштоо "негизги" аткарылышын күтөбүз (аталыш) Loop үчүн A = 1ден 4кө чейин Case loopAase 1 mystring = "ойгон, Нео…" Case 2mystring = "Матрица сенде…" Case 3mystring = "Ак коёнду ээрчиңиз …" Case 4mystring = "Тыкылдатыңыз…" Тандоону бүтүрүү 'эми туура stringkey (mystring) кийинки баскычын басып чыгарыңыз' _ _ _ _ _ _ _ _ _ _ wscript.quit () аны C: / temp катары сактаңыз matrix.vbs катары жарганат файлдарын түзүңүз@echo offcolor 0atitle matrixset /p matrix = | cscript /nologo (Муну vbs файлына жолуңуз менен алмаштырыңыз) exitset /p matrix = RabbitHole.bat деген ат. Анан чуркаңыз !! бул сонун, бирок эң сонун нерсе vbsI менен кылам, анткени ал укмуш

5 -кадам: Аяктоо

Мына сен бар

Асман сиз кыла турган нерсенин чеги