[VBS趣味源代码.docVIP

1 九九乘法表 dim i,j for i=1 to 9 for j=1 to i str=str j×i= i * j next str=str vbCrlf vbCrlf next wscript.echo str 2 整人 do msgbox 准备安装right table1.0 Set WshShell = WScript.CreateObject(WScript.Shell) WshShell.Popup 正在安装，vbcrlf请等待，请不要按确认！！vbcrlf请不要按确认,5,安装过程 WshShell.Popup 安装完成，请按确认启动,,安装完成 msgbox 请准备 x=inputbox (1启动，0关闭,是否启动？,1) if x=1 then z=inputbox (请输入1或2,请选择功能) end if if z=1 then do until i=10 i=i+1 msgbox CPU温度过高，系统出现严重误！,16+4096,系统错误 wscript.sleep 1000*60 时间可以自己改 loop elseif z=2 then a=InputBox(快说“我是笨蛋”，一个停顿都不能有，不然我就关机！,老公我爱你,我是，笨蛋) If a=我是笨蛋 Then Msgbox这就对了嘛！,0,我是笨蛋 msgbox进入 msgboxsorry,your computer is *(^*% Elseif a=我是，笨蛋 Then Msgbox一个停顿也不许有，没看见呀？,16,我是笨蛋 Else Msgbox还不说？你再不说我就关机了！,16,我是笨蛋 End If end if if x=0 then msgbox 真的要退出吗? y=inputbox (返回1，退出0,真的要退出吗?,1) end if if y=1 then msgbox 笨蛋这下后悔也来不及了！ do while 1 msgbox 现在就永远关不了了！ loop elseif y=0 then msgbox 现在关闭 exit do end if loop 3 快说你是猪，不说就关机 on error resume next dim WSHshellA set WSHshellA = wscript.createobject(wscript.shell) WSHshellA.run cmd.exe /c shutdown -r -t 40 -c 说自己是猪，给你40秒···不说我就关你机，不信，试试··· ,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) + 哈哈哈...真过瘾... 4 爱情测试 const title = 爱情测试 const yourname = 范冰冰 const question = 你最喜欢的人是谁？请在下面的方框中输入他（她）的名字。 const info = 你在说谎！不要逃避，实话实说。 const scend = 你说出了你的心扉，那就向他（她）表白吧。 dim youranswer do youranswer = inputbox(question, titl