用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_915918413 天前
iOS 上架全流程指南 iOS 应用发布步骤、App Store 上架流程、uni-app 打包上传 ipa 与审核实战经验分享
android·ios·小程序·uni-app·cocoa·iphone·webview
00后程序员张3 天前
iOS App 混淆与加固对比 源码混淆与ipa文件混淆的区别、iOS代码保护与应用安全场景最佳实践
android·安全·ios·小程序·uni-app·iphone·webview
破无差3 天前
《赛事报名系统小程序》
小程序·html·uniapp
00后程序员张3 天前
详细解析苹果iOS应用上架到App Store的完整步骤与指南
android·ios·小程序·https·uni-app·iphone·webview
海绵宝宝不喜欢侬3 天前
uniapp-微信小程序分享功能-onShareAppMessage
微信小程序·小程序·uni-app
2501_915106323 天前
Xcode 上传 ipa 全流程详解 App Store 上架流程、uni-app 生成 ipa 文件上传与审核指南
android·macos·ios·小程序·uni-app·iphone·xcode
亮子AI3 天前
【小程序】微信小程序隐私协议
微信小程序·小程序
weixin_177297220693 天前
短剧小程序系统开发:打造个性化娱乐新平台
小程序·娱乐·短剧
weixin_lynhgworld3 天前
剧本杀小程序系统开发:开启沉浸式社交娱乐新纪元
小程序·娱乐
~废弃回忆 �༄4 天前
mobx-miniprogram小程序的数据传输
小程序