欢迎进入微超之家博客网站！微超之家博客为广大编程爱好者、程序员分享专业且权威的编程知识，建议收藏一起学习。
当前位置：首页 > 博客人生 > 技术分享

文章摘要：愚人节这样过，真的很nice！一不小心收获一枚小迷妹......

程序猿愚人节表白女神，我们是认真的！

发布时间：2022-04-01 作者：沈川超 分类：

双击运行程序，弹出对话框，如下图：

image.png

点击【是】，弹出：“谢谢你给了我这次机会，I Love You”

image.png

点击【否】：电脑提示Windows将在10分钟后关闭。

image.png

点击【关闭】，弹出“我真的很喜欢你！求你了，别拒绝我，好吗？是=同意 否=拒绝”

image.png

点击【是】，弹出：“谢谢你给了我这次机会，I Love You”

image.png

点击【否】：弹出“唉，那 祝你能找到自己喜欢的人，若可回头 记住 我在你身后一直等你！--爱你的人”

image.png

点击【确定】，弹出“其实你拒绝了我，我也不会关你电脑的！因为你是我最重要的人，我不会捉弄你的！”

image.png

下面是代码：

image.png

直接复制下面代码到记事本中，后缀改为 .vbs保存即可。

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


上一篇： C#窗体内控件大小随窗体等比例变化


下一篇： SQL server查看触发器是否被禁用

点击排行

标签云

赞助打赏

  • 支付宝扫码
  • 微信扫码