那位高人有自动关机代码(自动关机恶搞程序)
3个回答
2013-11-24
展开全部
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 10 -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) + "哈哈哈哈,你确实是一头猪~"
上面编程红色字体都可以改 可以换一个问题。那个数字10是时间 可以改成5秒 或这任意一个你喜欢的数字
首先在桌面右击--新建----文本文档----然后吧上面的编程保存到文本文档里-----然后另存为桌面后缀名为 .vbe ----然后改改个好听的名字保存到桌面即可
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 10 -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) + "哈哈哈哈,你确实是一头猪~"
上面编程红色字体都可以改 可以换一个问题。那个数字10是时间 可以改成5秒 或这任意一个你喜欢的数字
首先在桌面右击--新建----文本文档----然后吧上面的编程保存到文本文档里-----然后另存为桌面后缀名为 .vbe ----然后改改个好听的名字保存到桌面即可
2013-11-24
展开全部
我有很多很多…
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2013-11-24
展开全部
上百度搜索就有一大堆
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询