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

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

vbscript 复制代码
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

效果图如下:

相关推荐
丁总学Java7 小时前
微信小程序,点击bindtap事件后,没有跳转到详情页,有可能是app.json中没有正确配置页面路径
微信小程序·小程序·json
说私域8 小时前
基于开源 AI 智能名片、S2B2C 商城小程序的用户获取成本优化分析
人工智能·小程序
mosen8688 小时前
Uniapp去除顶部导航栏-小程序、H5、APP适用
vue.js·微信小程序·小程序·uni-app·uniapp
qq22951165029 小时前
微信小程序的汽车维修预约管理系统
微信小程序·小程序·汽车
尚梦16 小时前
uni-app 封装刘海状态栏(适用小程序, h5, 头条小程序)
前端·小程序·uni-app
paopaokaka_luck20 小时前
基于Spring Boot+Vue的助农销售平台(协同过滤算法、限流算法、支付宝沙盒支付、实时聊天、图形化分析)
java·spring boot·小程序·毕业设计·mybatis·1024程序员节
Bessie2341 天前
微信小程序eval无法使用的替代方案
微信小程序·小程序·uni-app
蜕变菜鸟1 天前
小程序跳转另一个小程序
小程序
1 天前
躺平成长-代码开发,利用kimi开发小程序(09)
小程序
1 天前
微信小程序运营日记(第四天)
微信小程序·小程序