網(wǎng)站制作NEWS
vbs代碼舉例
矩形面積計(jì)算器代碼如下：
dim a,b,s
a=inputbox("請(qǐng)輸入矩形的長(zhǎng):")
b=inputbox("請(qǐng)輸入矩形的寬:");
s=a*b
msgbox (s)
結(jié)束圓面積計(jì)算器代碼如下：
dim a，s
a=inputbox("請(qǐng)輸入圓的半徑");
s=a*a*3.14
msgbox(s)
其他計(jì)算器，如圓周長(zhǎng)計(jì)算器和長(zhǎng)方體體積計(jì)算器等，大家可以參考這些代碼自行編寫(xiě)。
惡作劇代碼示例：
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.EXE /c shutdown -r -t 60 -c ""叫你不說(shuō)，知道厲害了吧！"" ",0 ,true
dim a
do while(a > "我是豬")
a = inputbox ("說(shuō)我是豬,就不關(guān)機(jī)，快撒，說(shuō) ""我是豬"" ","說(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) + "哈哈哈哈，真過(guò)癮"
擴(kuò)展資料
VBScript(Microsoft Visual Basic Script Editon).，微軟公司可視化BASIC腳本版). 正如其字面所透露的信息， VBS(VBScript的進(jìn)一步簡(jiǎn)寫(xiě))是基于Visual Basic的腳本語(yǔ)言。 我進(jìn)一步解釋一下， Microsoft Visual Basic是微軟公司出品的一套可視化編程工具， 語(yǔ)法基于Basic. 腳本語(yǔ)言， 就是不編譯成二進(jìn)制文件, 直接由宿主(host)解釋源代碼并執(zhí)行， 簡(jiǎn)單點(diǎn)說(shuō)就是你寫(xiě)的程序不需要編譯成。exe, 而是直接給用戶(hù)發(fā)送。vbs的源程序， 用戶(hù)就能執(zhí)行了。
多重隨機(jī)標(biāo)簽