vbs代码表白

__Pluto__

于 2022-08-04 10:35:24 发布

阅读量4k

点赞数 4

分类专栏： vbs 文章标签：服务器数据库 java

本文链接：https://blog.csdn.net/weixin_49611304/article/details/126154822

版权

vbs 专栏收录该内容

1 篇文章 0 订阅

订阅专栏

一、不同意就关机

on error resume next 
dim WSHshellA 
set WSHshellA = wscript.createobject("wscript.shell") 
WSHshellA.run "cmd.exe /c shutdown -r -t 180 -c ""做我女朋友吧，不说同意就三分钟关机，不信，试下···"" ",0 ,true 
dim a 
do while(a <> "我同意") 
a = inputbox ("说同意,就不关机，快撒，说 ""我同意""　","说不说","",8000,7000) 
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox" 
loop 
msgbox chr(13) + chr(13) + chr(13) + "早说就好了嘛" 
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd.exe /c shutdown -a",0 ,true 
msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，爱你哟！"

二、表白弹窗

msgbox "我有一件事想跟你说",vbQuestion,"在吗？"

msgbox "自从第一天遇见你，我便对你难以忘怀了！"

msgbox "做我女朋友好吗？"

msgbox ("房产写你名字")

msgbox ("保大")

msgbox ("我妈会游泳")

dim j

do while j<1

Select Case msgbox("做我女朋友好吗？",68,"请郑重的回答我！")

Case 6 j=1

Case 7 msgbox("再给你一次机会")

end Select

loop

msgbox("我就知道你会同意的，哈哈哈哈！！")

新建文本文档 > 复制粘贴代码 > 保存 > 另存为(后缀改为vbs格式) > 编码选ANSI > 保存