Жеңіл VBS көмегімен көңілді !!!: 5 қадам

2024 Автор: John Day | [email protected]. Соңғы өзгертілген: 2024-01-30 10:27

Жаңадан бастаушыларға көңілді және қарапайым визуалды негізгі сценарий бойынша нұсқаулық. VSB кейбіреулерге қиын болып көрінуі мүмкін, бірақ іс жүзінде бұл өте оңай. Windows оны компиляторсыз да іске қоса алады! Егер сіз JavaScript білсеңіз, бұл сізге өте оңай болуы керек.

1 -қадам: Негізгі хабарламалар жәшіктері

Жарайды, сондықтан төмендегілер сияқты хабарлама терезесін көрген болсаңыз, сізде негіз бар. Бұл пайдаланушыларға не айтқыңыз келетіні туралы ескерту үшін пайдаланылады. Сіз Msgbox функциясын қолдана отырып, өзіңізді жасай аласыз, осылайша, сәлемдесу келесідей болады деген хабарлама терезесінің коды, Msgbox («сәлем»). Do, Loop пәрмендерін қолдана отырып, қарапайым цикл жасау арқылы хабарлама терезесі. Енді біз хабарлама ұяшықтарын қамтыдық, бұл неғұрлым жетілдірілген хабарламалық жәшіктерге көшуге мүмкіндік береді.

2 -қадам: ойындар мен заттар

Егер сіз мәтіндік ойындарды қалай жасау керектігін ойласаңыз, бұдан әріге қарамаңыз. Мен қателескен шығармын, бірақ олар vbs қолданғанына сенемін. Енді көптеген vb сценарийлері компиляторды пайдаланады, бірақ терезелерге қажет емес. Тек файл жолының алдында cscript теріңіз, енді егер сіз бат файлдарды қалай жасау керектігін білсеңіз, онда сіз бұл процесті автоматтандыра аласыз, бірақ біз бұл нұсқаулыққа кірмейміз.. «Жақсы күн емес пе?» Жауабын жазыңыз = Wscript. StdIn. ReadLine 'егер иә деп жазсаңыз tIf answer = «yes» Содан кейін Wscript.echo («Мен осылай қалады деп үміттенемін»)' Егер сіз noElseIf жауап = деп жазсаңыз «жоқ» ThenWscript.echo («Жақсырақ болады деп үміттенемін») 'elseElseWscript. Echo («GoodDay to 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, тақырып, mystring, ұзындық, позиция, tmp, loopA, loopB,linesToWrite, бағандар, objUser, objSysInfo, myName, myNameLength, col1, col2, col3, col4, col5, максимум, wshshell = wscript.createobject («wscript.shell») title=«wshshell. SendKeys матрицасы» {ALT} «+» {ENTER} «» атыSet objSysInfo = CreateObject («ADSystemInfo») жиынтығын алу үшін пайдаланушы ақпаратын алыңыз objUser = GetObject («LDAP: //» & objSysInfo. UserName) '--------------------------- (var)' күтетін ішкі күту жоғары терезе, тақырыпты орнатыңыз, tmpwscript.sleep 1000tmp = wshshell.appactivate (var) loopend sub '----------------------- дейін аяқталуын күтіңіз. ----- қосалқы матрицаның (элементтердің) «матрицаны» көрсетуге арналған кездейсоқ сандарды басып шығару элементтерді 5 бағанға = 5col1 = truecol2 = true col3 = truecol4 = truecol5 = truerandomize () lineToWrite = элементтер / циклдар үшін бағандарға бөлінетінін болжайды. 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} «3 -жағдайЕгер col3 = true болса wshshell. SendKeys Int (Round (rnd ()))) &» {TAB} «Басқа wshshell. SendKeys» {TAB} «4 -жағдайЕгер col4 = true Содан кейін wshshell. SendKeys Int (Round (rnd ())) & «{TAB}» Басқа wshshell. SendKeys «{TAB}» Case 5Егер col5 = true Содан кейін wshshell. SendKeys Int (Round (rnd ())) & «{TAB}}» Басқа wshshell. SendKeys «{TAB}» Stopwscript.sleep 5nextwscript. Echo 'Бұл бағандар уақыттың 20 пайызын бір-біріне тәуелсіз түрде көрсетеді. = жалған Else col1 = trueEnd IfIf rnd () <максималды ThenIf col2 = true Сонда col2 = жалған Else col2 = trueEnd IfIf rnd () <максимум ThenIf col3 = true Сонда col3 = жалған Else col3 = trueEnd IfIf rnd () <максималды ThenIf col4 = true Сонда col4 = жалған Else col4 = trueEnd IfIf rnd () <максимум ThenIf col5 = true Содан кейін col5 = жалған басқа col5 = trueEnd Ifnextwscript. Echowscript. Echoend ішкі '--------------------------- қосалқы кілт (msg)' «матрицаның» басып шығарылуын жасайды хабарларды жіберіп, 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 '---------------------------' осында «негізгі» орындауды бастау үшін күтіңіз (тақырып) Цикл үшінA = 1-ден 4-ге дейін Case циклін таңдаңызCase 1мәтін = «оян, Нео…» Case 2mystring = «Матрицаның сенде…» 3mystring жағдайы = «Ақ қоянға ер …» 4mystring = «Knock knock…» End Select 'енді дұрыс жолды (mystring) басып шығарады' _ _ _ _ _ _ _ _ _ _ wscript.quit () оны C: / temp күйіне matrix.vbs ретінде сақтаңыз, bat файлдарын жасаңыз@echo offcolor 0 матрицаның жиынтығы /p матрицасы = | cscript /nologo (Мұны vbs файлының жолымен ауыстырыңыз) exitset /p matrix = RabbitHole.bat атауы. Содан кейін оны іске қосыңыз !! бұл керемет, бірақ жетілдірілген нәрсе vbs мен оны жай ғана қойдым, себебі бұл керемет

5 -қадам: Аяқтау

Міне сен бар

Аспан сіз жасай алатын нәрсенің шегі