PROGRAM REPAIR TO DEFAULT

Source code dibawah ini adalah program Repair
yaitu penangkal aktifitas virus
silahkan anda pelajari lebih dalam
1. Bukalah 1 project
2. Tambahkan 1 Form
3. Tambahkan 7 CommandButton dengan CommandButton1(cap=Do not show hidden files or folders),
   CommandButton2(cap=Non Aktifkan Folder Option),CommandButton3(cap=Kunci Regedit),
   CommandButton4(cap=Buka Kunci Regedit),CommandButton5(cap=Aktifkan Folder Option),
   CommandButton6(cap=Hide extension for known file types),CommandButton7(cap=Kembali Semua)
4. Tambahkan Module(name=RegEdit)

Copy coding dibawah ini dan paste di Form:

Private Sub Command1_Click()
'////////menyembunyikan file yang mempunyai attribut hide//////////
CreateIntegerKey "HKLM\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\SHOWALL\CheckedValue", 1
CreateIntegerKey "HKLM\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\SHOWALL\DefaultValue", 1

CreateIntegerKey "HKLM\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\NOHIDDEN\CheckedValue", 2
CreateIntegerKey "HKLM\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\NOHIDDEN\DefaultValue", 2

CreateIntegerKey "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", 0
End Sub

Private Sub Command2_Click()
'//////////Non aktifkan folder option////////////
CreateIntegerKey "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions", 1
End Sub

Private Sub Command3_Click()
'//////////Kunci Regedit////////////
CreateIntegerKey "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools", 1
CreateKey "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegedit", "1"
End Sub

Private Sub Command4_Click()
'//////////Buka Kunci Regedit////////////
DeleteKey "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools"
DeleteKey "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegedit"
End Sub

Private Sub Command5_Click()
'//////////Aktifkan folder option////////////
DeleteKey "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions"
End Sub

Private Sub Command6_Click()
'////////menyembunyikan extensi file//////////
CreateIntegerKey "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt", 1
End Sub

Private Sub Command7_Click()
CreateIntegerKey "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt", 0
CreateIntegerKey "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", 1
End Sub

Copy coding dibawah ini dan paste di Editor Module RegEdit:

Public Sub CreateKey(Folder As String, Value As String)

Dim b As Object
On Error Resume Next
Set b = CreateObject("wscript.shell")
b.RegWrite Folder, Value

End Sub

Public Sub CreateIntegerKey(Folder As String, Value As Integer)

Dim b As Object
On Error Resume Next
Set b = CreateObject("wscript.shell")
b.RegWrite Folder, Value, "REG_DWORD"

End Sub


'Public Function ReadKey(Value As String) As String

'Dim b As Object
'On Error Resume Next
'Set b = CreateObject("wscript.shell")
'r = b.RegRead(Value)
'ReadKey = r
'End Function


Public Sub DeleteKey(Value As String)

Dim b As Object
On Error Resume Next
Set b = CreateObject("Wscript.Shell")
b.RegDelete Value

End Sub