用VB写简单的执行小程序逗对象

作为一个小小程序员,摸鱼的时候也可以逗逗对象,写个小代码给他,哈哈哈

Set Seven = WScript.CreateObject("WScript.Shell")
strDesktop = Seven.SpecialFolders("AllUsersDesktop")
set oShellLink = Seven.CreateShortcut(strDesktop & "\\Seven.url")
oShellLink.Save
se_key = (MsgBox("X先生,请仔细阅读家规,点击确定,耐心的看完! 是=同意 否=拒绝 ",4,"【家规】"))
se_key = (MsgBox("1、凡事听你的,但你听我的! 是=同意 否=拒绝 ",4,"【家规】"))
se_key = (MsgBox("2、家务活你全包! 是=同意 否=拒绝 ",4,"【家规】"))
se_key = (MsgBox("3、孩子你看你养! 是=同意 否=拒绝 ",4,"【家规】"))
se_key = (MsgBox("4、不能惹我生气! 是=同意 否=拒绝 ",4,"【家规】"))
se_key = (MsgBox("5、更不能凶我,打我,要不你会很惨! 是=同意 否=拒绝 ",4,"【家规】!"))
se_key = (MsgBox("6、在内在外都要护着我!!! 是=同意 否=拒绝 ",4,"【家规】!"))
se_key = (MsgBox("7、所有收入全部上交! 是=同意 否=拒绝 ",4,"【家规】!"))
If se_key=6 Then
MsgBox "我就知道你一定会同意的,因为我爱你,你也爱我!",64,"Love you"
Else
seven.Run "shutdown.exe -s -t 600"
agn=(MsgBox ("你再想想!"))
If agn=6 Then
seven.Run "shutdown.exe -a"
MsgBox "真羡慕你有个这么漂亮,还优秀的老婆",,"Love you"
WScript.Sleep 500
Else
MsgBox "唉,你不同意就算了!",64,"必须同意!哈哈哈!!!"
seven.Run "shutdown.exe -a"
MsgBox "其实不同意,我也不会关你电脑的!因为你是我最爱的人,我不会捉弄你的!",64,"但是你必须同意!哈哈哈"
End If
End If

效果图如下:

  • 3
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值