გართობა მარტივი VBS– ით!: 5 ნაბიჯი

2024 ავტორი: John Day | [email protected]. ბოლოს შეცვლილი: 2024-01-30 10:21

დამწყებთათვის გასართობი და მარტივი ვიზუალური ძირითადი სკრიპტი. VSB შეიძლება ვინმეს რთულად მოეჩვენოს, მაგრამ სინამდვილეში ეს მართლაც ადვილია. Windows- ს შეუძლია მისი შემუშავების გარეშეც კი! თუ იცით javascript, ეს ნამდვილად ადვილი უნდა იყოს თქვენთვის.

ნაბიჯი 1: ძირითადი შეტყობინებების ყუთები

კარგი, მოდით გადავიდეთ საფუძვლებზე. ოდესმე გინახავთ შეტყობინების ყუთი, როგორც ქვემოთ მოცემულია, თქვენ ალბათ გქონდათ. ეს გამოიყენება მომხმარებლების გასაფრთხილებლად იმის შესახებ, რისი თქმაც გსურთ. თქვენ შეგიძლიათ შექმნათ თქვენი საკუთარი ფუნქცია Msgbox– ის გამოყენებით. ასე რომ, კოდი შეტყობინებების ყუთში, რომელშიც ნათქვამია, რომ ასე გამოიყურება, Msgbox („გამარჯობა“). შეტყობინებების ყუთი მარტივი მარყუჟის გაკეთებით Do, Loop ბრძანებების გამოყენებით. ახლა რომ ჩვენ დაფარული გზავნილების ყუთები, მოდით გადავიდეთ უფრო მოწინავე შეტყობინებების ყუთებზე.

ნაბიჯი 2: თამაშები და პერსონალი

თუ ოდესმე გაინტერესებთ როგორ გააკეთოთ ტექსტური თამაშები, არ გამოიყურებოდეთ. შეიძლება ვცდები, მაგრამ მე მჯერა, რომ მათ გამოიყენეს vbs. ახლა ბევრი vb სკრიპტი იყენებს შემდგენელს, მაგრამ Windows- ს არ სჭირდება. უბრალოდ ჩაწერეთ cscript ფაილის ბილიკამდე, ახლა თუ იცით როგორ გააკეთოთ bat ფაილები, მაშინ შეგიძლიათ ამ პროცესის ავტომატიზაცია, მაგრამ ჩვენ ამას არ ჩავწვდებით ამ ინსტრუქციურად. აქ არის პატარა თამაში, რომელიც გავაკეთე ვარიანტი ExplicitDim პასუხი. დაწერე "კარგი დღეა არა?" პასუხი = Wscript. StdIn. ReadLine 'თუ აკრიფებთ დიახ tIf პასუხი = "დიახ" მაშინ Wscript.echo ("იმედი მაქვს ასე დარჩება") "თუ აკრიფეთ noElseIf პასუხი = არა

ნაბიჯი 3: ავტო აკრეფა

ეს კოდით აკრიფებს რაღაცას ისევ და ისევ. არ ვიცი რამდენად სასარგებლოა, მაგრამ თუ გაუშვებ, მოგიწევს მისი მოკვლა ამოცანების ჩამონათვალში shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" doshellobj.sendkeys "Y" wscript. მძინავს 200

ნაბიჯი 4: მატირქს თქვენ გაქვთ

ოდესმე გიფიქრიათ იმაზე, თუ როგორ აიძულოთ კომპიუტერი დაგელაპარაკოს? კარგად დააკოპირეთ ეს

ვარიანტი expplicOn შეცდომის განახლება შემდეგი 'გამოაცხადე ცვლადი დიმის wshshell, სათაური, mystring, სიგრძე, პოზიცია, tmp, loopA, loopB, linesToWrite, სვეტები, objUser, objSysInfo, myName, myNameLength, col1, col2, col3, col4, col5sh max, elementsset = wscript.createobject ("wscript.shell") title="მატრიცა" wshshell. SendKeys "{ALT}"+"{ENTER}" 'მიიღეთ მომხმარებლის ინფორმაცია, რომელიც გამოიყენება nameSet objSysInfo = CreateObject ("ADSystemInfo") კომპლექტი objUser = GetObject ("LDAP: //" & objSysInfo. UserName) '--------------------------- sub waitfor (var)' კომპლექტი ფანჯარა, მითითებული სათაური, დაელოდეთ სანამ დასრულდება tmpwscript.sleep 1000tmp = wshshell.appactivate (var) loopend sub ----- ქვე მატრიცა (ელემენტები) 'დაბეჭდე შემთხვევითი რიცხვები, რათა "მატრიცა" გამოიყურებოდეს' ვარაუდობს, რომ ელემენტები იყოფა 5 სვეტზე = 5 კოლო 1 = truecol2 = ჭეშმარიტი col3 = truecol4 = truecol5 = truerandomize () ხაზებიToWrite = ელემენტები / სვეტები loopA = 1 to linesToWritefor loop B = 1 სვეტებისთვის Case loopBCase 1 თუ col1 = true მაშინ w shshell. SendKeys Int (მრგვალი (rnd ())) & "{TAB}" სხვა wshshell. SendKeys "{TAB}" Case 2If col2 = true მაშინ wshshell. SendKeys Int (რაუნდი (rnd ())) & "{TAB} "სხვა wshshell. SendKeys" {TAB} "Case 3If col3 = true მაშინ wshshell. SendKeys Int (მრგვალი (rnd ())) &" {TAB} "სხვა wshshell. SendKeys" {TAB} "Case 4If col4 = true მაშინ wshshell. SendKeys Int (მრგვალი (rnd ())) & "{TAB}" სხვა wshshell. SendKeys "{TAB}" Case 5If col5 = true მაშინ wshshell. SendKeys Int (მრგვალი (rnd ()))) & "{TAB}" სხვა wshshell. SendKeys "{TAB}" End Selectwscript.sleep 5nextwscript. Echo 'ეს სვეტები გადაფურცლულია, რომ აჩვენოს დროის 20 პროცენტი ერთმანეთისგან დამოუკიდებლად. მაქსიმუმი = 0.20 თუ rnd () <მაქსიმალური მაშინ თუ col1 = ჭეშმარიტი მაშინ col1 = ყალბი სხვა col1 = trueEnd IfIf rnd () <მაქსიმალური thenIf col2 = true მაშინ col2 = false Else col2 = trueEnd IfIf rnd () <მაქსიმუმი thenIf col3 = true მაშინ col3 = ყალბი სხვა col3 = trueEnd IfIf rnd () <მაქსიმალური მაშინIf col4 = ჭეშმარიტი მაშინ col4 = ყალბი სხვა col4 = ჭეშმარიტი დასასრულს თუ rnd () <მაქსიმუმ მაშინ თუ col5 = ჭეშმარიტი მაშინ col5 = ყალბი სხვა col5 = trueEnd Ifnextwscript. Echowscript. Echoend sub '------------------------------- sub key (msg)' "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. ძილი 75 გაახანგრძლივეთ ქვე '' ------------------------------- 'დაიწყეთ აქ "მთავარი" შესრულება (სათაური) მარყუჟისთვის A = 1-დან 4-მდე აირჩიეთ საქმის მარყუჟი კაზუსი 1 სტრიქონი = "გაიღვიძე, ნეო …" Case 2mystring = "მატრიცა გყავს …" საქმე 3mystring = "მიყევით თეთრ კურდღელს …" Case 4mystring = "დააკაკუნეთ …" დასრულება აირჩიეთ "ახლავე დაბეჭდე სწორი stringkey (mystring) შემდეგი" _ _ _ _ _ _ _ _ _ _ wscript.quit () შეინახეთ C: / temp როგორც matrix.vbs, შექმენით bat ფაილები@echo offcolor 0atitle matrixset /p matrix = | cscript /nologo (შეცვალეთ ეს თქვენი გზებით vbs ფაილისკენ) exitset /p matrix = დაასახელეთ RabbitHole.bat. შემდეგ გაუშვით !! ეს არის მაგარი, მაგრამ მოწინავე საქმე vbs– სთან ერთად მე უბრალოდ ჩავწერე, რადგან გასაოცარია

ნაბიჯი 5: დასასრული

Ესეც ასე

ცა ზღუდავს იმას, რისი გაკეთებაც შეგიძლია