1、Msgbox和Inputbox

Msgbox語法：msgbox “對話框內容”, , “對話框的標題”
你不妨用記事本打開剛才的文件在編輯窗口中輸入：
msgbox "Hello World!",,"小哈里提示"

Inputbox語法：Inputbox(“對話框內容”,“對話框標題”)
Dim是定義變量的語句：其格式為：dim 變量1,變量2……，Vbs只有一種變量類型，所以不用聲明變量類型。系統會自動分辨變量類型。

Dim name name=Inputbox("請輸入你的名字:","名稱") Msgbox name, , "您的名字是"

2、If和while

If 條件 then
處理條件的語句1
處理條件的語句2
Endif

如果是只有一行可以直接省略endif，如if i=10 Then msgbox "Hello"。
如果有兩個條件，則需要在基本形式中添加單行語句else
如果有多個條件，則需要再添加語句 Elseif 條件 then
注意VBS的腳本按照行來執行，所以不用對齊但千萬要換行。

if payment=1 thenmsgbox "cash"elseif payment=2 thenmsgbox "visa"elseif payment=3 thenmsgbox "American Express"elsemsgbox "Unknown" end If

如果循環次數是有固定次數的，那么使用For……next循環，其結構為：
For 計數器變量＝開始計數值 to 最后計數值
執行循環體
Next

For i=2 To 10 Step 2some code Next

如果你希望在條件不滿足時執行代碼，則使用do……until語句，結構為：
Do　until　條件
執行循環體
Loop

Do Until i=10i=i-1If i<10 Then Exit Do Loop

最后一種循環語句是條件滿足時一直執行循環，
While 條件
執行循環體
Wend

3、函數與子程序

子程序[沒有返回值]

Sub mysub(argument1,argument2)some statements End Sub

函數[有返回值]：

Function myfunction(argument1,argument2)some statementsmyfunction=some value End Function

調用子程序：Call MyProc(argument)
調用函數：name = findname()

4、example

1、電腦說話

set objTTS = createobject("sapi.spvoice") objTTS.speak "我自橫刀向天笑，笑完我就去睡覺" msgbox"電腦即將自爆"+chr(13)+"請在15秒內離開座位"+chr(13)+"否則你死定了",2,"系統自爆提醒" CreateObject("SAPI.SpVoice").Speak"電腦即將自爆，請在15秒內離開座位，否則你死定了！" Set s = CreateObject("sapi.spvoice") i=0 do s.speak i i=i+1 loop

2、無限彈窗

while(1) msgbox("關不掉我吧") msgbox("哈哈，還是關不掉我") msgbox("你就是關不掉我") msgbox("大爆發，我就是這么強大") msgbox("關不掉我吧") msgbox("啦啦啦") msgbox("你拿我沒辦法") msgbox("哈哈哈") msgbox("氣死你，哈哈哈哈") Wend WScript.Echo("嘿，謝謝你打開我哦，我等你很久拉！"&TSName) WScript.Echo("你是可愛的小朋嗎?") WScript.Echo("哈,我想你拉，這你都不知道嗎？") WScript.Echo("怎么才來，說~是不是不關心我") WScript.Echo("哼,我生氣拉，等你這么久，心都涼啦。") WScript.Echo("小強很生氣，后果很嚴重哦。") WScript.Echo("嘿嘿！你也會很慘滴哦") WScript.Echo("是不是想清除我？") WScript.Echo("那你要點上50下哦，不過會給你驚喜滴") WScript.Echo("還剩49下，快點點哦") WScript.Echo("還剩48下，快點，小笨蛋！") WScript.Echo("還剩47下對，就這樣快點點！") WScript.Echo("還剩46下。你啊就是笨，要快哦，我先不打擾你工作。") WScript.Echo("還剩45下，記得要快哦！") WScript.Echo("還剩43下") WScript.Echo("還剩42下") WScript.Echo("還剩41下") WScript.Echo("還剩40下") WScript.Echo("還剩39下") WScript.Echo("還剩38下") WScript.Echo("還剩37下") WScript.Echo("還剩36下") WScript.Echo("還剩35下") WScript.Echo("還剩34下") WScript.Echo("還剩33下") WScript.Echo("還剩32下") WScript.Echo("還剩30下") WScript.Echo("還剩29下") WScript.Echo("還剩28下") WScript.Echo("還剩27下") WScript.Echo("還剩26下") WScript.Echo("還剩25下") WScript.Echo("還剩24下") WScript.Echo("還剩23下") WScript.Echo("還剩22下") WScript.Echo("還剩21下") WScript.Echo("還剩20下") WScript.Echo("還剩19下") WScript.Echo("還剩18下") WScript.Echo("還剩17下") WScript.Echo("還剩16下") WScript.Echo("還剩15下") WScript.Echo("還剩14下") WScript.Echo("還剩13下停停！！！慢點，我有話要說") WScript.Echo("還剩12下，你繼續點我就會消失滴") WScript.Echo("還剩11下，以后就看不到我拉。555555") WScript.Echo("還剩10下，你現在可以選擇停止！") WScript.Echo("還剩9下。你還點啊，不要我拉？") WScript.Echo("還剩8下，有點傷心拉，干嘛丟棄人家") WScript.Echo("還剩7下。瘋了，你有點負意！") WScript.Echo("還剩6下。對。你就點吧，我恨你！") WScript.Echo("還剩5下，不明白，刪除我你就好嗎？") WScript.Echo("還剩4下！真要刪除我？") WScript.Echo("還剩3下。可是我真的很眷戀你。。。") WScript.Echo("還剩2下。不要這么絕情嘛，人家是愛你的！") WScript.Echo("還剩1下。哼，既然你這么絕情。也別怪我無義！！！") WScript.Echo("我本因該消失的，不過我留戀你滴芳容，上帝又給了一次機會。") WScript.Echo("想結素我么?那你就再多點一次") WScript.Echo("想結素我么?那你就再多點一次") WScript.Echo("想結素我么?那你就再多點一次") WScript.Echo("想結素我么?那你就再多點一次") WScript.Echo("想結素我么?那你就再多點一次") WScript.Echo("想結素我么?那你就再多點一次") WScript.Echo("想結素我么?那你就再多點一次") WScript.Echo("想結素我么?那你就再多點一次") WScript.Echo("想結素我么?那你就再多點一次") WScript.Echo("想結素我么?那你就再多點一次")

3、關機代碼(180s)

on error resume next dim WSHshellA set WSHshellA = wscript.createobject("wscript.shell") WSHshellA.run "cmd.exe /c shutdown -r -t 180 -c ""說我是豬，不說我是豬就一分鐘關機，不信，試下···"" ",0 ,true dim a do while(a <> "我是豬") a = inputbox ("說我是豬,就不關機，快撒，說 ""我是豬""　","說不說","",8000,7000) msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox" loop msgbox chr(13) + chr(13) + chr(13) + "早說就行了嘛" dim WSHshell set WSHshell = wscript.createobject("wscript.shell") WSHshell.run "cmd.exe /c shutdown -a",0 ,true msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，好乖"

總結

以上是生活随笔為你收集整理的win系统的VBS脚本简易教程的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。