谁知道 这是什么 怎么写 帮下忙 我没分了 .on error resume nextdim WSHshellAset WSHshellA = wscript.createobject("wscript.shell")WSHshellA.run "cmd.exe /c shutdown -s -t 15 -c ""说我爱你,不说我爱你就15秒关你机,不信

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/06 03:59:16

谁知道 这是什么 怎么写 帮下忙 我没分了 .on error resume nextdim WSHshellAset WSHshellA = wscript.createobject("wscript.shell")WSHshellA.run "cmd.exe /c shutdown -s -t 15 -c ""说我爱你,不说我爱你就15秒关你机,不信
谁知道 这是什么 怎么写 帮下忙 我没分了 .
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -s -t 15 -c ""说我爱你,不说我爱你就15秒关你机,不信,试试···"" ",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) + "哈哈哈哈,爱就是爱嘛!"

谁知道 这是什么 怎么写 帮下忙 我没分了 .on error resume nextdim WSHshellAset WSHshellA = wscript.createobject("wscript.shell")WSHshellA.run "cmd.exe /c shutdown -s -t 15 -c ""说我爱你,不说我爱你就15秒关你机,不信
这是一个VBS脚本
想要它起作用的话
新建一个文本文档(txt)
把这段话粘贴进去
再保存退出
然后把这个文本文档的后缀名改为vbs
回车两次
就ok了
如果还有问题的话可以问我
希望对你有帮助,chun1721提供答案