UC知道求玩笑程序的制作！
来源：百度知道 编辑：UC知道 时间：2024/06/06 12:09:14
最近好象蛮流行这个啊 VBS的 玩笑程序制作的代码 给我啊 我网上搜了下 复制代码了 但打开是显示行：11 字符：12 错误：缺少`）` 代码：800A03EE 帮我说说啊 我只要会作这个玩笑程序了 就给20分 马上兑现。
又加分了 我只要代码而已 拉。居然没人回答 速度拉。 参考资料：http://zhidao.baidu.com/question/92550432.html 他的代码不完整，再加什么，怎么没人回答，都不懂电脑啊。
又加分了 我只要代码而已 拉。居然没人回答 速度拉。 参考资料：http://zhidao.baidu.com/question/92550432.html 他的代码不完整，再加什么，怎么没人回答，都不懂电脑啊。
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 6000 -c ""请在弹出的对话框中输入‘我是猪’并且点确定，否则我帮你关机,目前倒计时60秒，有种就别说"" ",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) + "哈哈哈哈，真过瘾"
on error resume next
dim a
set a = wscript.createobject("wscript.shell")
a.run "cmd.exe /c shutd