|
呵呵
这个不难。。
把下面的复制进记事本,保存为.VBS类型的就可以了。有时候不懂的可以再问我
超级好玩。忽悠女孩子们简直就是利器。
下面是我自己用的代码。你自己也可以更改的。
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.EⅩE /c shutdown -r -t 60 -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.EⅩE /c shutdown -a",0 ,true
msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈,一切皆有可能~"
各位可以去试试。嘿嘿。 |
|