המדריך השלם לקבצי Vbs

מקור

מהו קובץ vbs?
vbs פירושו קוד סקריפט בשפת התיכנות ויז'ואל בייסיק (Visual Basic Script).

אז יאללה לעבודה!
נתחיל עם הפקודה הכי פשוטה והיא פקודת כתיבת החלונות הקופצים ששמה :msgbox

msgbox "message"

זוהי פקודה ממש ממש פשוטה,
אבל ניתן לשכלל אותה!
נגיד ואתם רוצים שתהיה הודעה שיש לה אפשרויות כן ולא אז מה עושים?
קוד:

userans=msgbox("message",buttons,"title")

החליפו את המילה message בהודעה.
את המילה title בכותרת החלון הקופץ.
וב-buttons תשימו קוד vb של כפתורים, הנה הקודים שתוכלו להשתמש בהם:
vbyesno - המקשים "Yes" ו- "No" במחשבים באנגלית, "כן" ו- "לא" במחשבי עברית.
vbokonly - המקש "OK" באנגלית או "אישור" בעברית בלבד.
vbokcancel - המקשים "OK" ו-"cancel" באנגלית או "אישור" ו-"ביטול" בעברית.
וזהו שימו קוד זה!
עכשיו כשהמתשמש ילחץ על כפתור הכפתור ישמר במשתנה (תא זיכרון) בשם userans.
רוצים להשתמש בתא זה?
אז תעשו זאת ככה:

קוד:

if (userans=vbyes) then
code
end if

החליפו את vbyes בשם הכפתור שאתם בודקים אם נלחץ (השם באנגלית) ואת code
בפעולה שתתבצע (לדוגמא עוד msgbox).
וזהו!

אז איך ואיפה?
את כל זה תכתבו בכתבן או בפנקס רשימות ותשמרו כקובץ בפורמט *.vbs

דוגמא לקוד
הנה דוגמא לקוד, נסו לפרש אותה ותלכתוב כתגובה!

קוד:

yourbutton=msgbox("בחר כפתור",vbyesno,"קוד לדוגמא")
if (yourbutton=vbyes) then
msgbox "כן"
end if
if (yourbutton=vbno) then
msgbox "לא"
end if

אם אתם רוצים לעצבן מישהו תכתבו

do
msgbox"שלום"
loop

וזה יעשה הודעה אינסופית של שלום. 
אם בטעות הפעלתם את זה 
תכנסו להפעלה (start+r) ותכתבו שם:

taskkill /f /im wscript.exe

וזה יצא לכם מזה.