Question

怎样制作一种软件 发到别人的电脑上 打开后让对方几秒内输入你爱我 否则自动关机

高手快来帮忙 别嫌麻烦 帮哥们一把 谢了

Answer 1

on error resume next
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 ("说 我是大笨蛋！哈哈！我是大肥猪！,我就不关你的机，快撒，说 ""我是大笨笨！哈哈"" ","说不说","不说",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) + "哈哈哈哈，真过瘾 嘎嘎.爽歪歪啊 "
========================
上面的中文字可以自己改，保存【*.vbs】

Answer 2

很多的，