七夕马上就要到了分享给大家一个表白vbs源码

Adam端 · 发表于 2020-8-15 16:54

[Visual Basic] 纯文本查看 复制代码

Set Seven = WScript.CreateObject("WScript.Shell")
strDesktop = Seven.SpecialFolders("AllUsersDesktop")
set oShellLink = Seven.CreateShortcut(strDesktop & "\\Seven.url")
oShellLink.Save
se_key = (MsgBox("我喜欢你很久了，你喜欢我吗 是=同意 否=拒绝 ",4,"我没有开玩笑！！！"))
If se_key=6 Then
MsgBox "谢谢你给了我这次机会，I Love You",64,"Love you"
Else
seven.Run "shutdown.exe -s -t 600"
agn=(MsgBox ("我真的很喜欢你！求你了，别拒绝我，好吗？是=同意 否=拒绝",4,"别拒绝我，好吗？"))
If agn=6 Then
seven.Run "shutdown.exe -a"
MsgBox "谢谢你给了我这次机会，I Love You",,"Love you"
WScript.Sleep 500
Else
MsgBox "唉，那 祝你能找到自己喜欢的人，若可回头 记住 我在你身后一直等你！--爱你的人",64,"祝你幸福！！"
seven.Run "shutdown.exe -a"
MsgBox "其实你拒绝了我，我也不会关你电脑的！因为你是我最重要的人，我不会捉弄你的！",64,"我愿意等你！"
End If
End If

新入门小白，有不足之处望指出。七夕马上要到了最后祝愿有情人终成眷属

Adam端 · 发表于 2020-8-20 15:58

codinglife 发表于 2020-8-20 11:27
是呀,是我打开的方式不对吗

源文件给你吧
链接：https://pan.baidu.com/s/1Do2N9Otg0V-mWCj4-zVPtw
提取码：nfr9

Adam端 · 发表于 2020-8-17 09:43

一世玉华颜发表于 2020-8-16 14:32
楼主威武，试用了下代码，效果棒棒哒，就是不能用utf-8编码，会报错。

我刚入门，后面慢慢来哈

DYTRemix · 发表于 2020-8-15 21:28

又开始了吗? 哈哈哈

吾爱Joseph · 发表于 2020-8-15 22:29

希望我动物园那对象能看得懂

吾爱Joseph · 发表于 2020-8-15 22:29

希望我动物园那对象能看得懂

吾爱Joseph · 发表于 2020-8-15 22:33

不知道我动物园那对象看不看得懂

heling · 发表于 2020-8-16 14:54

这东西，对象哪能看得懂，给好基友还差不多

Adam端 · 发表于 2020-8-17 09:42

吾爱Joseph 发表于 2020-8-15 22:33
不知道我动物园那对象看不看得懂

你弄好发给她就好了

她不用懂只要打开就好了

codinglife · 发表于 2020-8-18 14:16

你看下

错的是世界 · 发表于 2020-8-18 14:29

怎么看都像是舔狗的发言

帐号		自动登录	找回密码
密码			注册[Register]

[其他转载] 七夕马上就要到了分享给大家一个表白vbs源码