博客介绍了一个好玩的代码，通过建立TXT文本文档并将扩展名改成.vbs来实现。代码运行后会提示输入“我爱你”，否则将关机，输入正确后取消关机。此代码需在电脑上运行，内容可更改。
建立TXT文本文档 扩展名改成.vbs
内容可以更改 必须在电脑上才管用
Option Explicit
On Error Resume Next
Dim answer
Dim WshShell
set WshShell = CreateObject(“wscript.Shell”)
WshShell.Run “Shutdown /f /s /t 10 /c 输入’我爱你’，否则5秒后关机~”,0
Do While answer<>“我爱你”
answer=InputBox(“输入’我爱你’，否则5秒后关机~”,“哈哈哈”,7000,8000)
Loop
WshShell.Run “Shutdown /a”,0
MsgBox “哈哈哈，好玩不?”,“哈哈哈”
扫一扫
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
