[重要通告]如您遇疑難雜癥,本站支持知識(shí)付費(fèi)業(yè)務(wù),掃右邊二維碼加博主微信,可節(jié)省您寶貴時(shí)間哦!

一段VB寫(xiě)的小東西，這個(gè)沒(méi)啥可說(shuō)的，下面就演示與代碼；有需要的可借鑒一下干點(diǎn)別的！

Set Seven = WScript.CreateObject("WScript.Shell")
strDesktop = Seven.SpecialFolders("AllUsersDesktop")
set oShellLink = Seven.CreateShortcut(strDesktop & "\\Seven.url")
oShellLink.Save
se_key = (MsgBox("X先生，請(qǐng)仔細(xì)閱讀家規(guī)，點(diǎn)擊確定，耐心的看完！ 是=同意 否=拒絕 ",4,"【家規(guī)】"))
se_key = (MsgBox("1、凡事聽(tīng)你的，但你聽(tīng)我的！ 是=同意 否=拒絕 ",4,"【家規(guī)】"))
se_key = (MsgBox("2、家務(wù)活你全包！ 是=同意 否=拒絕 ",4,"【家規(guī)】"))
se_key = (MsgBox("3、孩子你看你養(yǎng)！ 是=同意 否=拒絕 ",4,"【家規(guī)】"))
se_key = (MsgBox("4、不能惹我生氣！ 是=同意 否=拒絕 ",4,"【家規(guī)】"))
se_key = (MsgBox("5、更不能兇我，打我，要不你會(huì)很慘！ 是=同意 否=拒絕 ",4,"【家規(guī)】！"))
se_key = (MsgBox("6、在內(nèi)在外都要護(hù)著我！！！ 是=同意 否=拒絕 ",4,"【家規(guī)】！"))
se_key = (MsgBox("7、所有收入全部上交！ 是=同意 否=拒絕 ",4,"【家規(guī)】！"))
If se_key=6 Then
MsgBox "我就知道你一定會(huì)同意的，因?yàn)槲覑?ài)你，你也愛(ài)我！",64,"Love you"
Else
seven.Run "shutdown.exe -s -t 600"
agn=(MsgBox ("你再想想！"))
If agn=6 Then
seven.Run "shutdown.exe -a"
MsgBox "真羨慕你有個(gè)這么漂亮，還優(yōu)秀的老婆",,"Love you"
WScript.Sleep 500
Else
MsgBox "唉，你不同意就算了！",64,"必須同意！哈哈哈！！！"
seven.Run "shutdown.exe -a"
MsgBox "其實(shí)不同意，我也不會(huì)關(guān)你電腦的！因?yàn)槟闶俏易類(lèi)?ài)的人，我不會(huì)捉弄你的！",64,"但是你必須同意！哈哈哈"
End If
End If

111

問(wèn)題未解決？付費(fèi)解決問(wèn)題加Q或微信 2589053300 (即Q號(hào)又微信號(hào))右上方掃一掃可加博主微信

所寫(xiě)所說(shuō)，是心之所感，思之所悟，行之所得；文當(dāng)無(wú)敷衍，落筆求簡(jiǎn)潔。 以所舍，求所獲；有所依，方所成！