这是一个简单的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
