用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

效果图如下:

相关推荐
2501_915918411 小时前
Web 前端可视化开发工具对比 低代码平台、可视化搭建工具、前端可视化编辑器与在线可视化开发环境的实战分析
前端·低代码·ios·小程序·uni-app·编辑器·iphone
2501_915106322 小时前
iOS 使用记录和能耗监控实战,如何查看电池电量消耗、App 使用时长与性能数据(uni-app 开发调试必备指南)
android·ios·小程序·uni-app·cocoa·iphone·webview
じòぴé南冸じょうげん10 小时前
小程序的project.private.config.json是无依赖文件,那可以删除吗?
前端·小程序·json
2501_9160137411 小时前
HTTPS 抓包难点分析,从端口到工具的实战应对
网络协议·http·ios·小程序·https·uni-app·iphone
2501_9159184113 小时前
uni-app 项目 iOS 上架效率优化 从工具选择到流程改进的实战经验
android·ios·小程序·uni-app·cocoa·iphone·webview
00后程序员张13 小时前
如何在不同 iOS 设备上测试和上架 uni-app 应用 实战全流程解析
android·ios·小程序·https·uni-app·iphone·webview
微三云-轩14 小时前
区块链:重构企业数字化的信任核心与创新动力
人工智能·小程序·区块链·生活·我店
2501_915918411 天前
iOS 开发全流程实战 基于 uni-app 的 iOS 应用开发、打包、测试与上架流程详解
android·ios·小程序·https·uni-app·iphone·webview
黑马源码库miui520861 天前
JAVA同城打车小程序APP打车顺风车滴滴车跑腿源码微信小程序打车源码
java·微信·微信小程序·小程序·uni-app
一口十个小甜虾1 天前
微信小程序体验版,当打开调试模式正常访问,关闭之后无法访问
微信小程序·小程序