כיף עם VBS קל !!!: 5 שלבים

2024 מְחַבֵּר: John Day | [email protected]. שונה לאחרונה: 2024-01-30 09:17

מדריך למתחילים לתסריט בסיסי ויזואלי מהנה וקל לביצוע. חלק אולי נראה קשה מול VSB, אבל למעשה זה ממש קל. Windows יכול אפילו להריץ אותו ללא מהדר! אם אתה יודע javascript, זה אמור להיות ממש קל עבורך.

שלב 1: תיבות הודעות בסיסיות

אוקיי אז בואו נעבור על היסודות. האם ראיתם פעם תיבת הודעות כמו זו שלמטה, כנראה שיש לכם. אלה משמשים כדי להתריע למשתמשים על כל מה שאתה רוצה להגיד. אתה יכול ליצור משלך באמצעות הפונקציה Msgbox אז הקוד לתיבת הודעות שאומר היי ייראה כך, Msgbox ("היי") לחילופין אתה יכול לעשות unkillable תיבת הודעות על ידי יצירת לולאה פשוטה באמצעות הפקודות Do, Loop. כעת, כאשר כיסינו את תיבות ההודעות, אפשר לעבור לתיבות הודעות מתקדמות יותר.

שלב 2: משחקים ודברים

אם אי פעם תוהים כיצד להכין משחקי טקסט, אל תסתכל עוד. יכול להיות שאני טועה, אבל אני מאמין שהם השתמשו ב- vbs. עכשיו הרבה סקריפטים של vb משתמשים בקומפיילר, אבל Windows לא צריך אחד. פשוט הקלד cscript לפני נתיב הקבצים, עכשיו אם אתה יודע כיצד להכין קבצי עטלף, תוכל להפוך את התהליך הזה לאוטומטי, אך לא נוכל להיכנס לזה במדריך זה. הנה משחק קטן שעשיתי Option ExplicitDim Answer הקלדת questionWscript. StdOut. כתוב "יום נחמד לא?" Answer = Wscript. StdIn. ReadLine 'אם אתה מקליד yes tIf answer = "yes" ואז Wscript.echo ("אני מקווה שזה יישאר כך")' אם אתה מקליד noElseIf answer = "לא" ThenWscript.echo ("אני מקווה שזה ישתפר") 'כל דבר אחרElseWscript. Echo (' יום טוב לך ')' endEnd Ifnow בעצם שמור את זה כ-.vbs והשתמש בשיטה לפני כדי להריץ אותו.

שלב 3: טייפר האוטומטי

קוד זה כדי להקליד משהו שוב ושוב. אני לא יודע איך זה שימושי, אבל אם תפעיל אותו, יהיה עליך להרוג אותו במערך רשימת המשימות shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" doshellobj.sendkeys "Y" wscript.sleep 200Shellobj.sendkeys "o" wscript.sleep 200loop

שלב 4: המטירקס יש לך

תהית אי פעם איך לגרום לך למחשב לדבר איתך? ובכן להעתיק את זה

option explicitOn Error Resume Next 'הכריז על משתנים dim wshshell, title, mystring, אורך, מיקום, tmp, loopA, loopB, linesToWrite, עמודות, 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") Set objUser = GetObject ("LDAP: //" & objSysInfo. UserName) '--------------------------- sub waitfor (var)' set חלון למעלה, הגדר כותרת, המתן עד להשלמתmp = falsedo עד tmpwscript.sleep 1000tmp = wshshell.appactivate (var) loopend sub '---------------------- ----- תת מטריצה (אלמנטים) 'הדפס מספרים אקראיים כדי ש"המטריצה "תראה' מניחה שהאלמנטים מתחלקים ב -5 עמודות = 5col1 = truecol2 = true col3 = truecol4 = truecol5 = truerandomize () linesToWrite = אלמנטים / עמודות ללולאה A = 1 לשורות ToWritefor loopB = 1 לעמודות בחר loop loopBCase 1 אם col1 = true ואז w shshell. SendKeys Int (Round (rnd ())) & "{TAB}" אחר wshshell. SendKeys "{TAB}" Case 2If col2 = true ואז wshshell. SendKeys Int (Round (rnd ()))) & "{TAB} "Else wshshell. SendKeys" {TAB} "Case 3If col3 = true Then wshshell. SendKeys Int (Round (rnd ())) &" {TAB} "Else wshshell. SendKeys" {TAB} "Case 4If col4 = true Then wshshell. SendKeys Int (Round (rnd ())) & "{TAB}" אחר wshshell. SendKeys "{TAB}" Case 5If col5 = true Then wshshell. SendKeys Int (Round (rnd ()))) & "{TAB}" אחרת wshshell. SendKeys "{TAB}" סיום Selectwscript.sleep 5nextwscript. Echo 'עמודות כפכפים אלה שיציגו 20 אחוז מהזמן, ללא תלות אחת בשניה. Max = 0.20If rnd () <maximum ThenIf col1 = true Then col1 = false Else col1 = trueEnd IfIf rnd () <maximum ThenIf col2 = true Then col2 = false Else col2 = trueEnd IfIf rnd () <maximum ThenIf col3 = true Then col3 = false Else col3 = trueEnd IfIf rnd () <maximum ThenIf col4 = true ואז col4 = false אחר col4 = trueEnd IfIf rnd () <מקסימום ThenIf col5 = true ואז col5 = false אחר col5 = trueEnd Ifnextwscript. Echowscript. Echoend sub '--------------------------- sub key (msg)' עשה הדפסים של "המטריצה" הודעות ומחק אותן wscript.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 בחר לולאה מקרה ACase 1mystring = "תתעורר, ניאו" _ _ _ _ _ _ _ _ _ _ wscript.quit () שמור אותו ב- C: / temp כ- matrix.vbs ליצור את קבצי העטלף@echo offcolor 0atitle matrixset /p matrix = | cscript /nologo (החלף זאת בנתיב שלך לקובץ vbs) exitset /p matrix = שם אותו RabbitHole.bat. אז תפעיל אותו !! זה דבר מגניב, אך מתקדם, לעשות עם vbs פשוט הכנסתי אותו כי הוא מדהים

שלב 5: סיום

הנה לך

שמים את הגבול למה שאתה יכול לעשות