用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

效果图如下:

相关推荐
时之彼岸Φ几秒前
Fiddler+Yakit实现手机流量抓包和小程序抓包
智能手机·小程序·fiddler
suncentwl2 小时前
为什么选择有版权的答题pk小程序
小程序·答题小程序·答题pk
GalenZhang8885 小时前
Java生成微信小程序码及小程序短链接
java·微信小程序·小程序
说私域8 小时前
从大众传媒到数字生态:开源AI智能名片链动2+1模式S2B2C商城小程序驱动的营销革命
人工智能·小程序·开源·零售
山河故人16312 小时前
基于 SSE 和分块传输的 Uniapp 微信小程序 实现 流式传输 对话
微信小程序·小程序·uni-app
说私域16 小时前
开源AI智能名片链动2+1模式S2B2C商城小程序源码赋能下的社交电商创业者技能跃迁与价值重构
人工智能·小程序·重构·开源·零售
中小企业实战军师刘孙亮1 天前
实体店的小程序转型之路:拥抱新零售的密码-中小企实战运营和营销工作室博客
职场和发展·小程序·创业创新·学习方法·业界资讯·零售·内容运营
说私域1 天前
基于开源技术体系的品牌赛道力重构:AI智能名片与S2B2C商城小程序源码驱动的品类创新机制研究
人工智能·小程序·重构·开源·零售
王哈哈的学习笔记1 天前
uniapp小程序使用echarts
前端·小程序·uni-app
说私域1 天前
颠覆传统微商!开源AI智能名片链动2+1模式S2B2C商城小程序:重构社交电商的“降维打击”革命
人工智能·小程序·开源·零售