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

zikn_922024-06-20 19:03

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

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

效果图如下：