vbs强行表白代码

 
复制代码 代码如下: 
on error resume next 
dim WSHshellA 
set WSHshellA = wscript.createobject("***.Shell") 
***.run "cmd.exe /c shutdown -r -t 120 -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("***.Shell") 
***.Run "cmd.exe /c shutdown -a",0 ,true 
msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，今天真过瘾