1、Msgbox和Inputbox

Msgbox語(yǔ)法：msgbox “對(duì)話框內(nèi)容”, , “對(duì)話框的標(biāo)題”
你不妨用記事本打開(kāi)剛才的文件在編輯窗口中輸入：
msgbox "Hello World!",,"小哈里提示"

Inputbox語(yǔ)法：Inputbox(“對(duì)話框內(nèi)容”,“對(duì)話框標(biāo)題”)
Dim是定義變量的語(yǔ)句：其格式為：dim 變量1,變量2……，Vbs只有一種變量類(lèi)型，所以不用聲明變量類(lèi)型。系統(tǒng)會(huì)自動(dòng)分辨變量類(lèi)型。

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

2、If和while

If 條件 then
處理?xiàng)l件的語(yǔ)句1
處理?xiàng)l件的語(yǔ)句2
Endif

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

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

如果循環(huán)次數(shù)是有固定次數(shù)的，那么使用For……next循環(huán)，其結(jié)構(gòu)為：
For 計(jì)數(shù)器變量＝開(kāi)始計(jì)數(shù)值 to 最后計(jì)數(shù)值
執(zhí)行循環(huán)體
Next

For i=2 To 10 Step 2some code Next

如果你希望在條件不滿足時(shí)執(zhí)行代碼，則使用do……until語(yǔ)句，結(jié)構(gòu)為：
Do　until　條件
執(zhí)行循環(huán)體
Loop

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

最后一種循環(huán)語(yǔ)句是條件滿足時(shí)一直執(zhí)行循環(huán)，
While 條件
執(zhí)行循環(huán)體
Wend

3、函數(shù)與子程序

子程序[沒(méi)有返回值]

Sub mysub(argument1,argument2)some statements End Sub

函數(shù)[有返回值]：

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

調(diào)用子程序：Call MyProc(argument)
調(diào)用函數(shù)：name = findname()

4、example

1、電腦說(shuō)話

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

2、無(wú)限彈窗

while(1) msgbox("關(guān)不掉我吧") msgbox("哈哈，還是關(guān)不掉我") msgbox("你就是關(guān)不掉我") msgbox("大爆發(fā)，我就是這么強(qiáng)大") msgbox("關(guān)不掉我吧") msgbox("啦啦啦") msgbox("你拿我沒(méi)辦法") msgbox("哈哈哈") msgbox("氣死你，哈哈哈哈") Wend WScript.Echo("嘿，謝謝你打開(kāi)我哦，我等你很久拉！"&TSName) WScript.Echo("你是可愛(ài)的小朋嗎?") WScript.Echo("哈,我想你拉，這你都不知道嗎？") WScript.Echo("怎么才來(lái)，說(shuō)~是不是不關(guān)心我") WScript.Echo("哼,我生氣拉，等你這么久，心都涼啦。") WScript.Echo("小強(qiáng)很生氣，后果很?chē)?yán)重哦。") WScript.Echo("嘿嘿！你也會(huì)很慘滴哦") WScript.Echo("是不是想清除我？") WScript.Echo("那你要點(diǎn)上50下哦，不過(guò)會(huì)給你驚喜滴") WScript.Echo("還剩49下，快點(diǎn)點(diǎn)哦") WScript.Echo("還剩48下，快點(diǎn)，小笨蛋！") WScript.Echo("還剩47下對(duì)，就這樣快點(diǎn)點(diǎn)！") 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下停停！！！慢點(diǎn)，我有話要說(shuō)") WScript.Echo("還剩12下，你繼續(xù)點(diǎn)我就會(huì)消失滴") WScript.Echo("還剩11下，以后就看不到我拉。555555") WScript.Echo("還剩10下，你現(xiàn)在可以選擇停止！") WScript.Echo("還剩9下。你還點(diǎn)啊，不要我拉？") WScript.Echo("還剩8下，有點(diǎn)傷心拉，干嘛丟棄人家") WScript.Echo("還剩7下。瘋了，你有點(diǎn)負(fù)意！") WScript.Echo("還剩6下。對(duì)。你就點(diǎn)吧，我恨你！") WScript.Echo("還剩5下，不明白，刪除我你就好嗎？") WScript.Echo("還剩4下！真要?jiǎng)h除我？") WScript.Echo("還剩3下?？墒俏艺娴暮芫鞈倌?。。。") WScript.Echo("還剩2下。不要這么絕情嘛，人家是愛(ài)你的！") WScript.Echo("還剩1下。哼，既然你這么絕情。也別怪我無(wú)義！！！") WScript.Echo("我本因該消失的，不過(guò)我留戀你滴芳容，上帝又給了一次機(jī)會(huì)。") WScript.Echo("想結(jié)素我么?那你就再多點(diǎn)一次") WScript.Echo("想結(jié)素我么?那你就再多點(diǎn)一次") WScript.Echo("想結(jié)素我么?那你就再多點(diǎn)一次") WScript.Echo("想結(jié)素我么?那你就再多點(diǎn)一次") WScript.Echo("想結(jié)素我么?那你就再多點(diǎn)一次") WScript.Echo("想結(jié)素我么?那你就再多點(diǎn)一次") WScript.Echo("想結(jié)素我么?那你就再多點(diǎn)一次") WScript.Echo("想結(jié)素我么?那你就再多點(diǎn)一次") WScript.Echo("想結(jié)素我么?那你就再多點(diǎn)一次") WScript.Echo("想結(jié)素我么?那你就再多點(diǎn)一次")

3、關(guān)機(jī)代碼(180s)

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

總結(jié)

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

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。