追女生的大杀器

最新推荐文章于 2025-11-13 16:33:45 发布

原创最新推荐文章于 2025-11-13 16:33:45 发布 · 215 阅读

4 ·

CC 4.0 BY-SA版权

文章标签：

#好玩的代码

个人专栏收录该内容

64 篇文章

订阅专栏

博客介绍了一个好玩的代码，通过建立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 “哈哈哈，好玩不?”,“哈哈哈”