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
帮忙解释一段程序
答案:1 悬赏:70 手机版
解决时间 2021-05-01 05:18
- 提问者网友:人傍凄凉立暮秋
- 2021-04-30 22:44
最佳答案
- 五星知识达人网友:人類模型
- 2021-05-01 00:20
这是一段VB脚本代码
调用系统指令 cmd.exe /c shutdown -r -t 60 -c 来使计算机在60秒后关机,并弹出对话框,输入 我爱你 后取消关机;
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息
大家都在看
推荐资讯