一女程序猿用VB写简单执行小程序-纯属逗乐子

[重要通告]如您遇疑难杂症,本站支持知识付费业务,扫右边二维码加博主微信,可节省您宝贵时间哦!

一段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

111

问题未解决？付费解决问题加Q或微信 2589053300 (即Q号又微信号)右上方扫一扫可加博主微信

所写所说，是心之所感，思之所悟，行之所得；文当无敷衍，落笔求简洁。 以所舍，求所获；有所依，方所成！