我想编写一个vbs整人代码来表白，谁能帮我一下

这是一个简单的vbs脚本，用于整人表白。脚本会弹出对话框询问对方是否愿意嫁给自己，如果对方在三分钟内没有选择“我愿意”，电脑将会自动关机。如果对方不愿意，脚本会继续询问，直到对方输入“我愿意”为止。如果对方最终选择退出，电脑将不会关机，并会显示“哈哈哈哈，好乖”。下面是脚本的具体实现方式...

这是一个简单的vbs脚本，用于整人表白。脚本会弹出对话框询问对方是否愿意嫁给自己，如果对方在三分钟内没有选择“我愿意”，电脑将会自动关机。如果对方不愿意，脚本会继续询问，直到对方输入“我愿意”为止。如果对方最终选择退出，电脑将不会关机，并会显示“哈哈哈哈，好乖”。

下面是脚本的具体实现方式：

首先，定义变量并创建Shell对象：

vbscript

on error resume next

dim WSHshellA

set WSHshellA=wscript.createobject("wscript.shell")

然后，运行命令行并设置超时时间：

vbscript

WSHshellA.run"cmd.exe/cshutdown-r-t180-c""三分钟内决定是否嫁给我，否则会被关机......""",0,true

接着，使用循环等待对方回答：

vbscript

dim a

do while(a<<>"我愿意")

a=inputbox("你愿意嫁给我么","爱的表白","",8000,7000)

if(a<<>"我愿意")then

msgbox"不愿意么？再考虑一下哦"

end if

loop

如果对方选择退出，脚本将显示提示信息：

vbscript

dim WSHshell

set WSHshell=wscript.createobject("wscript.shell")

WSHshell.run"cmd.exe/cshutdown-a",0,true

msgbox"哈哈哈哈，好乖"

请谨慎使用此脚本，如果对方不愿意，电脑真的会关机。2024-12-03

mengvlog 阅读 8 次 更新于 2025-07-21 02:27:05 我来答关注问题 0

1 个回答檬味博客专题活动

我想编写一个vbs整人代码来表白,谁能帮我一下
这是一个简单的vbs脚本，用于整人表白。脚本会弹出对话框询问对方是否愿意嫁给自己，如果对方在三分钟内没有选择“我愿意”，电脑将会自动关机。如果对方不愿意，脚本会继续询问，直到对方输入“我愿意”为止。如果对方最终选择退出，电脑将不会关机，并会显示“哈哈哈哈，好乖”。下面是脚本的具体实现方式...
vbs整人代码_vbs整人关机代码不管用_vbs简单代码
Set wsh=createobject("wscript.shell")For i=1 to 10 WScript.Sleep 700 Wsh.AppActivate("与 xx 聊天中")Wsh.SendKeys "^v"Wsh.SendKeys i Wsh.SendKeys "%s"Next Wscript.Quit 此代码可根据需要调整发送次数，用于恶作剧或娱乐。二、持续弹出“你真愚蠢！”的对话框。复制代码如下：Do MsgBox...
谁给我编一个vbs格式的整人代码
如果你想要给朋友开个小玩笑，可以编写一个VBS文件，代码如下：Set a = WScript.CreateObject("WScript.Shell")a.Run "cmd.exe /c shutdown -r -t 3600 -c ""求我，我就告诉你怎么办...嘿嘿..."" ",0 ,true 将这段代码复制并保存为*.vbs文件，然后发送给要整的人。这里的3600代表延迟...
vbs整人代码
在这个问题中，我们需要了解如何使用VBS（Visual Basic Script）编写代码来整人。首先，打开命令提示符窗口，输入"vbs"并回车，新建一个VBS脚本文件。然后，将以下代码粘贴到脚本中：do msgbox "you are foolish!",16 4096,"mistake"wscript.sleep 120000 loop 代码解释：这段代码会不断弹出一个消息框，...
vbs整人代码,超搞笑,共3个
VB经常被用来编写一些整人的脚本程序，那么如何编写这类的程序呢？下面小编给大家展示一下。1、首先来看第一个脚本，这个脚本会每隔1秒就弹出一个窗口，并且你都关不掉，如下图所示 2、然后第二个脚本是不断的循环一段内容，如下图所示，它和第一个一样，也不能关闭弹窗 3、接下来这个脚本每一次...

其他代码类似问题

檬味博客在线解答立即免费咨询

我想编写一个vbs整人代码来表白，谁能帮我一下

其他代码类似问题

代码相关话题