一女程序猿用VB寫(xiě)簡(jiǎn)單執(zhí)行小程序-純屬逗樂(lè)子
[重要通告]如您遇疑難雜癥,本站支持知識(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)潔。 以所舍,求所獲;有所依,方所成!
賞
支付寶贊助
微信贊助
免責(zé)聲明,若由于商用引起版權(quán)糾紛,一切責(zé)任均由使用者承擔(dān)。
您必須遵守我們的協(xié)議,如您下載該資源,行為將被視為對(duì)《免責(zé)聲明》全部?jī)?nèi)容的認(rèn)可->聯(lián)系老梁投訴資源 LaoLiang.Net部分資源來(lái)自互聯(lián)網(wǎng)收集,僅供用于學(xué)習(xí)和交流,請(qǐng)勿用于商業(yè)用途。如有侵權(quán)、不妥之處,請(qǐng)聯(lián)系站長(zhǎng)并出示版權(quán)證明以便刪除。
敬請(qǐng)諒解! 侵權(quán)刪帖/違法舉報(bào)/投稿等事物聯(lián)系郵箱:service@laoliang.net
意在交流學(xué)習(xí),歡迎贊賞評(píng)論,如有謬誤,請(qǐng)聯(lián)系指正;轉(zhuǎn)載請(qǐng)注明出處: » 一女程序猿用VB寫(xiě)簡(jiǎn)單執(zhí)行小程序-純屬逗樂(lè)子