关于恶搞小程序的,会计算机语言的高手求解答

发布网友 发布时间：2022-04-23 04:12

我来回答

共3个回答

热心网友 时间：2022-06-03 23:05

展开1全部Set objWSHShell = wscript.CreateObject("wscript.shell") '定义并初始化Shell对象
objWSHShell.Run "shutdown.exe -r -t 60 -c ""说我是猪，不说“我是猪”就会关机，不信邪的你可以试下。"" ", 0, True
'此行代码作用是调用 shutdown 进行重启，60秒倒计时。
Dim uMaMe
Do While (strReturn <> "我是猪") '循环语句，直到变量 strReturn 等于 “我是猪” 时退出循环。
strReturn = InputBox("说我是猪,就可以不关机，快点，说 ""我是猪"" ", "好好考虑吧……", "你才是", 8000, 7000)
If strReturn = "你才是" Then
If uMaMe <> "yes" Then
uMaMe = "yes"
objWSHShell.popup "敢骂我，你再骂一次试看看！",1,"",4096
Else
objWSHShell.popup "好哇，天堂有路你不走，关机无门你偏来，关机吧~~~", 1,"",4096
objWSHShell.Run "shutdown.exe -r -t 0 ", 0, True '直接关机
End If
End If
Loop
'如果你说了“我是猪”，则退出循环，往下执行
objWSHShell.Run "shutdown.exe -a", 0, True '解除定时关机
objWSHShell.popup "早说不就行了嘛",1,"",4096追问请问你回答的中间夹杂了你自己说的话吗，我是菜鸟 什么都不懂 你可以发一遍完整的我可以复制的代码过来吗，如果可以解释一下给我这个菜鸟听那就更好不过了，谢谢

追答你直接复制到记事本里，改成VBS格式就可以了，

热心网友 时间：2022-06-03 23:05

那是.bat代码。百度一大堆

热心网友 时间：2022-06-03 23:05

这个好办，建议你学习易语言，追问我不懂。。

追答很好学的，百度有教程