一女程序猿用VB寫簡單執(zhí)行小程序-純屬逗樂子
[重要通告]如您遇疑難雜癥,本站支持知識付費業(yè)務,掃右邊二維碼加博主微信,可節(jié)省您寶貴時間哦!
一段VB寫的小東西,這個沒啥可說的,下面就演示與代碼;有需要的可借鑒一下干點別的!
Set Seven = WScript.CreateObject("WScript.Shell") strDesktop = Seven.SpecialFolders("AllUsersDesktop") set oShellLink = Seven.CreateShortcut(strDesktop & "\\Seven.url") oShellLink.Save se_key = (MsgBox("X先生,請仔細閱讀家規(guī),點擊確定,耐心的看完! 是=同意 否=拒絕 ",4,"【家規(guī)】")) se_key = (MsgBox("1、凡事聽你的,但你聽我的! 是=同意 否=拒絕 ",4,"【家規(guī)】")) se_key = (MsgBox("2、家務活你全包! 是=同意 否=拒絕 ",4,"【家規(guī)】")) se_key = (MsgBox("3、孩子你看你養(yǎng)! 是=同意 否=拒絕 ",4,"【家規(guī)】")) se_key = (MsgBox("4、不能惹我生氣! 是=同意 否=拒絕 ",4,"【家規(guī)】")) se_key = (MsgBox("5、更不能兇我,打我,要不你會很慘! 是=同意 否=拒絕 ",4,"【家規(guī)】!")) se_key = (MsgBox("6、在內(nèi)在外都要護著我?。?! 是=同意 否=拒絕 ",4,"【家規(guī)】!")) se_key = (MsgBox("7、所有收入全部上交! 是=同意 否=拒絕 ",4,"【家規(guī)】!")) 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 "真羨慕你有個這么漂亮,還優(yōu)秀的老婆",,"Love you" WScript.Sleep 500 Else MsgBox "唉,你不同意就算了!",64,"必須同意!哈哈哈!?。? seven.Run "shutdown.exe -a" MsgBox "其實不同意,我也不會關(guān)你電腦的!因為你是我最愛的人,我不會捉弄你的!",64,"但是你必須同意!哈哈哈" End If End If
111
問題未解決?付費解決問題加Q或微信 2589053300 (即Q號又微信號)右上方掃一掃可加博主微信
所寫所說,是心之所感,思之所悟,行之所得;文當無敷衍,落筆求簡潔。 以所舍,求所獲;有所依,方所成!
賞
支付寶贊助
微信贊助
免責聲明,若由于商用引起版權(quán)糾紛,一切責任均由使用者承擔。
您必須遵守我們的協(xié)議,如您下載該資源,行為將被視為對《免責聲明》全部內(nèi)容的認可->聯(lián)系老梁投訴資源 LaoLiang.Net部分資源來自互聯(lián)網(wǎng)收集,僅供用于學習和交流,請勿用于商業(yè)用途。如有侵權(quán)、不妥之處,請聯(lián)系站長并出示版權(quán)證明以便刪除。
敬請諒解! 侵權(quán)刪帖/違法舉報/投稿等事物聯(lián)系郵箱:service@laoliang.net
意在交流學習,歡迎贊賞評論,如有謬誤,請聯(lián)系指正;轉(zhuǎn)載請注明出處: » 一女程序猿用VB寫簡單執(zhí)行小程序-純屬逗樂子