VBS消息框

就是打开这个文件后会自动关机！这个我会弄！但是我看见别人还能弄说什么要他是美女！才不关机那个消息框怎么弄啊？

那个消息框调用的是inputbox()函数根据以下示例代码自己修改一下就可以了：

dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说我是美女，不说我是美女就一分钟关你机，不信，试试···"" ",0 ,true
dim a
do while(a <> "我是美女")
a = inputbox ("说我是美女哦,就不关机，快撒，说 ""我是美女"" ","说不说","不说",6000,6500)
msgbox chr(13) + chr(13) + chr(13) +chr(13) + chr(13) + chr(13) + chr(13) +chr(13) + chr(13)+ chr(13)+ chr(13) +chr(13) + chr(13)+"O(∩_∩)O" + a+"O(∩_∩)O" ,0,"警告"
loop
msgbox chr(13) + chr(13) + chr(13) + chr(13) + chr(13) + chr(13) + chr(13) +chr(13) + chr(13) +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) + "哈哈O(∩_∩)O哈哈，真过瘾"

用popup函数更好: ----- set ws=createobject("wscript.shell") for i = 10 to 1 step -1 ws.popup i,1,"标题" next -----

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息