[重要通告]如您遇疑難雜癥,本站支持知識付費業務,掃右邊二維碼加博主微信,可節省您寶貴時間哦!

一段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號又微信號)右上方掃一掃可加博主微信

所寫所說，是心之所感，思之所悟，行之所得；文當無敷衍，落筆求簡潔。 以所舍，求所獲；有所依，方所成！