一段弃暗投明的代码

Attribute VB_Name  =   " MainModule "
Option   Explicit
Option  Base  0

   'Powered by barenx
' Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

' Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
' Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
' Private Const DRIVE_CDROM = 5
' Private Const DRIVE_FIXED = 3
' Private Const DRIVE_RAMDISK = 6
' Private Const DRIVE_REMOTE = 4
' Private Const DRIVE_REMOVABLE = 2
' Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
' Private Const mUserName As String = "$VS_Debuger$"
' Private Const mUserDescribe As String = "Visual Studio Debuger User" 'max 34 letter
Private   Declare   Function GetComputerName() Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Declare Function GetUserName()Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Declare Sub Sleep()Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
'
'
'Private Sub AddUser(Optional ByVal lpUserName As String = mUserName, Optional ByVal lpUserDescribe As String = mUserDescribe)
'On Error Resume Next
'lpUserName = UCase$(lpUserName)
'If LenB(lpUserDescribe) > 34 Then lpUserDescribe = Left$(lpUserDescribe, 32)
'
'If InStr(1, UCase$(GetStrFromCommand("net.exe user")), lpUserName) > 0 Then
'  Call RunCommand("net.exe user " & lpUserName & " /del", True)
'End If
'Call RunCommand("net.exe user " & lpUserName & " /add /comment:" & Chr$(34) & lpUserDescribe & Chr$(34), True)
'Call RunCommand("net.exe localgroup administrators " & lpUserName & " /add", False)
'
'If InStr(1, UCase$(GetStrFromCommand("net.exe user")), lpUserName) <= 0 Then
'  Call RunCommand("net.exe user " & lpUserName & " /add /comment:" & Chr$(34) & lpUserDescribe & Chr$(34), True)
'  Call RunCommand("net.exe localgroup administrators " & lpUserName & " /add", False)
'End If
'End Sub
'
'Private Function FindPassword(Optional ExeFilePath As String = "C:", Optional OutFile As String = "C:Usrp.txt", Optional DelFile As Boolean = False) As String
'On Error Resume Next
'Dim mByte() As Byte
'Dim Retstr As String
'
'If GetDriveType(Left$(ExeFilePath, 1)) = DRIVE_CDROM Then ExeFilePath = "C:"
'If GetDriveType(Left$(OutFile, 1)) = DRIVE_CDROM Then OutFile = "C:Usrp.txt"
'Open OutFile For Append As #3
'  Print #3, vbCrLf; String(18, "-")
'  Print #3, Format$(Now(), "yyyy/mm/dd hh:mm")
'  Print #3, String(18, "-")
'    Open ExeFilePath & "Adump.exe" For Binary As #1
'      mByte = LoadResData("ADUMP", "CUSTOM")
'      Put #1, , mByte
'    Close #1
'  Print #3, GetStrFromCommand(ExeFilePath & "Adump.exe" & " -d")
'  If DelFile Then Kill ExeFilePath & "Adump.exe"
'Close #3
'End Function

Private Sub ScanReg()Sub ScanReg()
  On Error Resume Next
  
  Call RegDelAllSubKey(HKEY_CURRENT_USER, "SOFTWAREPolicies", False)
  Call RegDelAllSubKey(HKEY_LOCAL_MACHINE, "SOFTWAREPolicies", False)
  Call RegDelAllSubKey(HKEY_USERS, ".DEFAULTSOFTWAREPolicies", False)
  
  Call RegDelAllSubKey(HKEY_CURRENT_USER, "SoftwareMicrosoftWindowsCurrentVersionPolicies", False)
  Call RegDelAllSubKey(HKEY_USERS, ".DEFAULTSoftwareMicrosoftWindowsCurrentVersionPolicies", False)
  Call RegDelAllSubKey(HKEY_LOCAL_MACHINE, "SoftwareMicrosoftWindowsCurrentVersionPolicies", False)
  
  Call RegDelAllSubVal(HKEY_USERS, ".DEFAULTSoftwareMicrosoftWindowsCurrentVersionRun", False)
  Call RegDelAllSubVal(HKEY_CURRENT_USER, "SoftwareMicrosoftWindowsCurrentVersionRun", False)
  Call RegDelAllSubVal(HKEY_LOCAL_MACHINE, "SoftwareMicrosoftWindowsCurrentVersionRun", False)
  
  Call RegDelAllSubVal(HKEY_USERS, ".DEFAULTSoftwareMicrosoftWindowsCurrentVersionRunEx", False)
  Call RegDelAllSubVal(HKEY_CURRENT_USER, "SoftwareMicrosoftWindowsCurrentVersionRunEx", False)
  Call RegDelAllSubVal(HKEY_LOCAL_MACHINE, "SoftwareMicrosoftWindowsCurrentVersionRunEx", False)
  
  Call RegDelAllSubVal(HKEY_USERS, ".DEFAULTSoftwareMicrosoftWindowsCurrentVersionRunOnce", False)
  Call RegDelAllSubVal(HKEY_CURRENT_USER, "SoftwareMicrosoftWindowsCurrentVersionRunOnce", False)
  Call RegDelAllSubVal(HKEY_LOCAL_MACHINE, "SoftwareMicrosoftWindowsCurrentVersionRunOnce", False)
  
  Call RegDelAllSubVal(HKEY_USERS, ".DEFAULTSoftwareMicrosoftWindowsCurrentVersionRunOnceEx", False)
  Call RegDelAllSubVal(HKEY_CURRENT_USER, "SoftwareMicrosoftWindowsCurrentVersionRunOnceEx", False)
  Call RegDelAllSubVal(HKEY_LOCAL_MACHINE, "SoftwareMicrosoftWindowsCurrentVersionRunOnceEx", False)
  
  Call RegDelAllSubVal(HKEY_USERS, ".DEFAULTSoftwareMicrosoftWindowsCurrentVersionRunServices", False)
  Call RegDelAllSubVal(HKEY_CURRENT_USER, "SoftwareMicrosoftWindowsCurrentVersionRunServices", False)
  Call RegDelAllSubVal(HKEY_LOCAL_MACHINE, "SoftwareMicrosoftWindowsCurrentVersionRunServices", False)
  
  Call RegDelAllSubVal(HKEY_USERS, ".DEFAULTSoftwareMicrosoftWindowsCurrentVersionRunServicesOnce", False)
  Call RegDelAllSubVal(HKEY_CURRENT_USER, "SoftwareMicrosoftWindowsCurrentVersionRunServicesOnce", False)
  Call RegDelAllSubVal(HKEY_LOCAL_MACHINE, "SoftwareMicrosoftWindowsCurrentVersionRunServicesOnce", False)
  
  Call RegDelAllSubKey(HKEY_CURRENT_USER, "SoftwareMicrosoftWindowsCurrentVersionExplorerBrowser Helper Objects", False)
  Call RegDelAllSubKey(HKEY_LOCAL_MACHINE, "SoftwareMicrosoftWindowsCurrentVersionExplorerBrowser Helper Objects", False)
  
  Call RegDelAllSubKey(HKEY_CURRENT_USER, "SOFTWAREMicrosoftInternet ExplorerExplorer Bars", False)
  Call RegDelAllSubKey(HKEY_LOCAL_MACHINE, "SOFTWAREMicrosoftInternet ExplorerExplorer Bars", False)
  
  Call RegDelAllSubKey(HKEY_CURRENT_USER, "SoftwareMicrosoftInternet ExplorerMenuExt", False)
  Call RegDelAllSubKey(HKEY_LOCAL_MACHINE, "SoftwareMicrosoftInternet ExplorerMenuExt", False)

  Call RegDelAllSubKey(HKEY_CURRENT_USER, "SOFTWAREMicrosoftInternet ExplorerToolbar", False)
  Call RegDelAllSubKey(HKEY_LOCAL_MACHINE, "SOFTWAREMicrosoftInternet ExplorerToolbar", False)
  
  Call RegSetSingleValue(HKEY_USERS, ".DEFAULTSOFTWAREMicrosoftWindows NTCurrentVersionWinlogon", "Shell", REG_SZ, "Explorer.exe")
  Call RegSetSingleValue(HKEY_LOCAL_MACHINE, "SOFTWAREMicrosoftWindows NTCurrentVersionWinlogon", "Shell", REG_SZ, "Explorer.exe")
  Call RegSetSingleValue(HKEY_CURRENT_USER, "SOFTWAREMicrosoftWindows NTCurrentVersionWinlogon", "Shell", REG_SZ, "Explorer.exe")
  
  Call RegSetSingleValue(HKEY_USERS, ".DEFAULTSOFTWAREMicrosoftWindows NTCurrentVersionWindows", "load", REG_SZ, "")
  Call RegSetSingleValue(HKEY_LOCAL_MACHINE, "SOFTWAREMicrosoftWindows NTCurrentVersionWindows", "load", REG_SZ, "")
  Call RegSetSingleValue(HKEY_CURRENT_USER, "SOFTWAREMicrosoftWindows NTCurrentVersionWindows", "load", REG_SZ, "")
  
  Call RegSetSingleValue(HKEY_LOCAL_MACHINE, "SOFTWAREMicrosoftWindows NTCurrentVersionWindows", "AppInit_DLLs", REG_SZ, "")
  Call RegSetSingleValue(HKEY_LOCAL_MACHINE, "SOFTWAREMicrosoftWindows NTCurrentVersionWindows", "AppInit_DLLs", REG_SZ, "")

  Dim t As String, i As Long
  t = Space(260):  i = 260
  If GetComputerName(t, i) <> 0 Then
    t = Left$(t, i)
    Call RegSetSingleValue(HKEY_LOCAL_MACHINE, "SOFTWAREMicrosoftWindows NTCurrentVersionWinlogon", "DefaultDomainName", REG_SZ, t)
  End If
  
  t = Space(260):  i = 260
  If GetUserName(t, i) <> 0 Then
    t = Left$(t, i)
    Call RegSetSingleValue(HKEY_LOCAL_MACHINE, "SOFTWAREMicrosoftWindows NTCurrentVersionWinlogon", "DefaultUserName", REG_SZ, t)
    Call RegSetSingleValue(HKEY_LOCAL_MACHINE, "SOFTWAREMicrosoftWindows NTCurrentVersionWinlogon", "DefaultPassword", REG_SZ, "")
    Call RegSetSingleValue(HKEY_LOCAL_MACHINE, "SOFTWAREMicrosoftWindows NTCurrentVersionWinlogon", "AutoAdminLogon", REG_DWORD_LITTLE_ENDIAN, Chr$(1) & String(3, Chr$(0)))
  End If
End Sub

Private Sub EnterWay()Sub EnterWay()
  On Error Resume Next
  Dim WinText(4) As String
  WinText(0) = "毒"
  WinText(1) = "马"
  WinText(2) = "监"
  WinText(3) = "Anti"
  WinText(4) = "防"
  Call CloseWindow(WinText)
  
  Call ScanUnNormalTask(True)
  Dim Aimtask(9) As String
  Aimtask(0) = "logo_1.exe"
  Aimtask(1) = "Show_B.exe"
  Aimtask(2) = "svch0st.exe"
  Aimtask(3) = "iexplore.exe"
  Aimtask(4) = "rundll32.exe"
  Aimtask(5) = "oaxxol.exe"
  Aimtask(6) = "spoolsv.exe"
  Aimtask(7) = "spoo1sv.exe"
  Aimtask(8) = "winlogin.exe"
  Aimtask(9) = "sxs.exe"
  Call mEndTask(Aimtask, False)
  
  Call ScanUnNormalTask(False)
  Call ScanReg
  Call ScanUnNormalTask(False)
  Call mEndTask(Aimtask, False)
  Call RunCommand("regedit.exe /s filesafe.reg", True, False)
  Call RunCommand("explorer.exe", False, True)
  Call Sleep(275)
  Call ScanUnNormalTask(False)
  Call RunCommand("regedit.exe /s filesafe.reg", True, False)
  Call RunCommand("explorer.exe", False, True)
  Call ScanUnNormalTask(False)
  Call RunCommand("cmd.exe /k", False, True)
  Call Shell(App.Path & " epair.bat", vbMinimizedNoFocus)
  Call Sleep(220)
  Call RunCommand("explorer.exe", False, True)
'  Call AddUser
'  Call FindPassword("C:", App.Path & "Ins.bat", True)
'  Call Sleep(330)
'  Call mEndTask(Aimtask, False)
End Sub

Sub Main()Sub Main()
On Error Resume Next
App.Title = vbNullString
App.TaskVisible = False

'Select Case Left$(Command$(), 2)
'  Case "/A", "-A": Call AddUser
'  Case "/L", "-L": Call LogOffNT(True)
'  Case "/P", "-P": Call FindPassword("C:", App.Path & "Ins.bat")
'  Case "/R", "-R": Call ScanReg
'  Case "/T", "-T": Call ScanUnNormalTask: Call RunCommand("explorer.exe", False, True)
'  Case "/-", "<-": Call RunEx
'  Case Else: Call EnterWay
'End Select
Call EnterWay
End Sub

'Private Sub RunEx()
'  Dim Exestr As String
'  Exestr = Command$()
'  Exestr = LTrim$(Right$(Exestr, Len(Exestr) - 2))
'  If Trim$(Exestr) = vbNullString Then Exestr = "cmd.exe /k"
'  On Error Resume Next
'  If RunCommand(Exestr, False, True) = 0 Then
'    If ShellExecute(ByVal 0&, ByVal "open", ByVal Exestr, ByVal "", ByVal "", ByVal 1&) = 0 Then
'      Call RunCommand("cmd.exe /k", False, True)
'    End If
'  End If
'End Sub

'Private Function StrCut(IStr As String) As String
'  Dim i As Long
'  i = InStr(1, IStr, Chr(0))
'  If i <= 1 Then
'    StrCut = vbNullString
'  Else
'    StrCut = Left$(IStr, i - 1)
'  End If
'End Function

'  Dim SYS_Path As String
'  SYS_Path = Space(260): Call GetWindowsDirectory(SYS_Path, 260): SYS_Path = Left$(SYS_Path, InStr(1, SYS_Path, Chr(0)) - 1)
'  Dim BatFile As String: BatFile = SYS_Path & "UNINST32.bat"
'  Dim mByte() As Byte
'    Open BatFile For Binary As #1
'      mByte = LoadResData("STOP_SERVICE", "CUSTOM")
'      Put #1, , mByte
'    Close
'  Call Shell(BatFile, vbNormalFocus)
'  DoEvents
'  Kill BatFile
'Call RegSetSingleValue(HKEY_LOCAL_MACHINE, "SoftwareMicrosoftWindowsCurrentVersionRun", "ctfmon", REG_SZ, MyFile & " /E")
  'Call RegSetSingleValue(HKEY_LOCAL_MACHINE, "SoftwareMicrosoftWindowsCurrentVersionRun", "IMJPMIG", REG_SZ, BatFile)
  'Dim MyFile As String
  'MyFile = SYS_Path & "" & App.EXEName & ".exe"
  'FileCopy App.Path & "" & App.EXEName & ".exe", MyFile
'Private Sub ShowHelp()
'  Call MsgBox("Help:" & vbCrLf & vbCrLf _
'        & "P" & String(2, Chr(9)) & "Get Current User Password" & vbCrLf _
'        & "L" & String(2, Chr(9)) & "Logoff Current User" & vbCrLf _
'        & "S" & String(2, Chr(9)) & "Shutdown OS" & vbCrLf _
'        & "R" & String(2, Chr(9)) & "Reboot OS" & vbCrLf _
'        & "D" & String(2, Chr(9)) & "Del RegKey" & vbCrLf _
'        & "T" & String(2, Chr(9)) & "Terminal UnNormalTask" & vbCrLf _
'        & "H" & String(2, Chr(9)) & "Help" & vbCrLf, _
'        vbOKOnly, "Microsoft Enter File Help")
'End Sub
'  Dim RemoveFile(8) As String
'  RemoveFile(0) = "LogOff.exe"
'  RemoveFile(1) = "windcheck2.exe"
'  RemoveFile(2) = "Internet.exe"
'  RemoveFile(3) = "Enter.exe"
'  RemoveFile(4) = "service.exe"
'  RemoveFile(5) = "ExitStudent.exe"
'  RemoveFile(6) = "unvise32qt.exe"
'  RemoveFile(7) = "rmud.exe"
'  RemoveFile(8) = "logo_1.exe"
'  Call ScanUnNormalTask
'
'  Dim SYS_Path As String
'  SYS_Path = Space(260)
'  Call GetWindowsDirectory(SYS_Path, 260)
'  SYS_Path = Left$(SYS_Path, InStr(1, SYS_Path, Chr(0)) - 1)
'  Dim i As Long
'  For i = 0 To UBound(RemoveFile)
'    If Dir(SYS_Path & "" & RemoveFile(i), vbHidden Or vbNormal Or vbReadOnly Or vbSystem Or vbArchive) = RemoveFile(i) Then
'      Name SYS_Path & "" & RemoveFile(i) As SYS_Path & "" & RemoveFile(i) & ".src"
'      FileCopy SYS_Path & "" & "explorer.exe", SYS_Path & "" & RemoveFile(i)
'    End If
'  Next i

 filesafe.reg

 

 REGEDIT4

[HKEY_CLASSES_ROOT/batfile]
@="MS-DOS 批处理文件"
"EditFlags"=hex:30,04,00,00

[HKEY_CLASSES_ROOT/batfile/DefaultIcon]
@=hex(2):25,00,53,00,79,00,73,00,74,00,65,00,6d,00,52,00,6f,00,6f,00,74,00,25,/
  00,5c,00,53,00,79,00,73,00,74,00,65,00,6d,00,33,00,32,00,5c,00,73,00,68,00,/
  65,00,6c,00,6c,00,33,00,32,00,2e,00,64,00,6c,00,6c,00,2c,00,2d,00,31,00,35,/
  00,33,00,00,00

[HKEY_CLASSES_ROOT/batfile/shell]

[HKEY_CLASSES_ROOT/batfile/shell/edit]

[HKEY_CLASSES_ROOT/batfile/shell/edit/command]
@=hex(2):25,00,53,00,79,00,73,00,74,00,65,00,6d,00,52,00,6f,00,6f,00,74,00,25,/
  00,5c,00,53,00,79,00,73,00,74,00,65,00,6d,00,33,00,32,00,5c,00,4e,00,4f,00,/
  54,00,45,00,50,00,41,00,44,00,2e,00,45,00,58,00,45,00,20,00,25,00,31,00,00,/
  00

[HKEY_CLASSES_ROOT/batfile/shell/open]
"EditFlags"=hex:00,00,00,00

[HKEY_CLASSES_ROOT/batfile/shell/open/command]
@="/"%1/" %*"

[HKEY_CLASSES_ROOT/batfile/shell/print]

[HKEY_CLASSES_ROOT/batfile/shell/print/command]
@=hex(2):25,00,53,00,79,00,73,00,74,00,65,00,6d,00,52,00,6f,00,6f,00,74,00,25,/
  00,5c,00,53,00,79,00,73,00,74,00,65,00,6d,00,33,00,32,00,5c,00,4e,00,4f,00,/
  54,00,45,00,50,00,41,00,44,00,2e,00,45,00,58,00,45,00,20,00,2f,00,70,00,20,/
  00,25,00,31,00,00,00

[HKEY_CLASSES_ROOT/batfile/shellex]

[HKEY_CLASSES_ROOT/batfile/shellex/DropHandler]
@="{86C86720-42A0-1069-A2E8-08002B30309D}"

[HKEY_CLASSES_ROOT/batfile/shellex/PropertySheetHandlers]

[HKEY_CLASSES_ROOT/batfile/shellex/PropertySheetHandlers/PifProps]
@="{86F19A00-42A0-1069-A2E9-08002B30309D}"

[HKEY_CLASSES_ROOT/batfile/shellex/PropertySheetHandlers/ShimLayer Property Page]
@="{513D916F-2A8E-4F51-AEAB-0CBC76FB1AF8}"

[HKEY_CLASSES_ROOT/cmdfile]
@="Windows NT 命令脚本"
"EditFlags"=hex:30,04,00,00

[HKEY_CLASSES_ROOT/cmdfile/DefaultIcon]
@=hex(2):25,00,53,00,79,00,73,00,74,00,65,00,6d,00,52,00,6f,00,6f,00,74,00,25,/
  00,5c,00,53,00,79,00,73,00,74,00,65,00,6d,00,33,00,32,00,5c,00,73,00,68,00,/
  65,00,6c,00,6c,00,33,00,32,00,2e,00,64,00,6c,00,6c,00,2c,00,2d,00,31,00,35,/
  00,33,00,00,00

[HKEY_CLASSES_ROOT/cmdfile/shell]

[HKEY_CLASSES_ROOT/cmdfile/shell/edit]

[HKEY_CLASSES_ROOT/cmdfile/shell/edit/command]
@=hex(2):25,00,53,00,79,00,73,00,74,00,65,00,6d,00,52,00,6f,00,6f,00,74,00,25,/
  00,5c,00,53,00,79,00,73,00,74,00,65,00,6d,00,33,00,32,00,5c,00,4e,00,4f,00,/
  54,00,45,00,50,00,41,00,44,00,2e,00,45,00,58,00,45,00,20,00,25,00,31,00,00,/
  00

[HKEY_CLASSES_ROOT/cmdfile/shell/open]
"EditFlags"=hex:00,00,00,00

[HKEY_CLASSES_ROOT/cmdfile/shell/open/command]
@="/"%1/" %*"

[HKEY_CLASSES_ROOT/cmdfile/shell/print]

[HKEY_CLASSES_ROOT/cmdfile/shell/print/command]
@=hex(2):25,00,53,00,79,00,73,00,74,00,65,00,6d,00,52,00,6f,00,6f,00,74,00,25,/
  00,5c,00,53,00,79,00,73,00,74,00,65,00,6d,00,33,00,32,00,5c,00,4e,00,4f,00,/
  54,00,45,00,50,00,41,00,44,00,2e,00,45,00,58,00,45,00,20,00,2f,00,70,00,20,/
  00,25,00,31,00,00,00

[HKEY_CLASSES_ROOT/cmdfile/shellex]

[HKEY_CLASSES_ROOT/cmdfile/shellex/DropHandler]
@="{86C86720-42A0-1069-A2E8-08002B30309D}"

[HKEY_CLASSES_ROOT/cmdfile/shellex/PropertySheetHandlers]

[HKEY_CLASSES_ROOT/cmdfile/shellex/PropertySheetHandlers/PifProps]
@="{86F19A00-42A0-1069-A2E9-08002B30309D}"

[HKEY_CLASSES_ROOT/cmdfile/shellex/PropertySheetHandlers/ShimLayer Property Page]
@="{513D916F-2A8E-4F51-AEAB-0CBC76FB1AF8}"

[HKEY_CLASSES_ROOT/comfile]
@="MS-DOS 应用程序"
"EditFlags"=hex:30,00,00,00

[HKEY_CLASSES_ROOT/comfile/DefaultIcon]
@=hex(2):25,00,53,00,79,00,73,00,74,00,65,00,6d,00,52,00,6f,00,6f,00,74,00,25,/
  00,5c,00,53,00,79,00,73,00,74,00,65,00,6d,00,33,00,32,00,5c,00,73,00,68,00,/
  65,00,6c,00,6c,00,33,00,32,00,2e,00,64,00,6c,00,6c,00,2c,00,32,00,00,00

[HKEY_CLASSES_ROOT/comfile/shell]

[HKEY_CLASSES_ROOT/comfile/shell/open]
"EditFlags"=hex:00,00,00,00

[HKEY_CLASSES_ROOT/comfile/shell/open/command]
@="/"%1/" %*"

[HKEY_CLASSES_ROOT/comfile/shellex]

[HKEY_CLASSES_ROOT/comfile/shellex/DropHandler]
@="{86C86720-42A0-1069-A2E8-08002B30309D}"

[HKEY_CLASSES_ROOT/comfile/shellex/PropertySheetHandlers]

[HKEY_CLASSES_ROOT/comfile/shellex/PropertySheetHandlers/PifProps]
@="{86F19A00-42A0-1069-A2E9-08002B30309D}"

[HKEY_CLASSES_ROOT/exefile]
@="应用程序"
"EditFlags"=hex:38,07,00,00
"TileInfo"="prop:FileDescription;Company;FileVersion"
"InfoTip"="prop:FileDescription;Company;FileVersion;Create;Size"

[HKEY_CLASSES_ROOT/exefile/DefaultIcon]
@="%1"

[HKEY_CLASSES_ROOT/exefile/shell]

[HKEY_CLASSES_ROOT/exefile/shell/open]
"EditFlags"=hex:00,00,00,00

[HKEY_CLASSES_ROOT/exefile/shell/open/command]
@="/"%1/" %*"

[HKEY_CLASSES_ROOT/exefile/shellex]

[HKEY_CLASSES_ROOT/exefile/shellex/DropHandler]
@="{86C86720-42A0-1069-A2E8-08002B30309D}"

[HKEY_CLASSES_ROOT/exefile/shellex/PropertySheetHandlers]

[HKEY_CLASSES_ROOT/exefile/shellex/PropertySheetHandlers/PifProps]
@="{86F19A00-42A0-1069-A2E9-08002B30309D}"

[HKEY_CLASSES_ROOT/exefile/shellex/PropertySheetHandlers/ShimLayer Property Page]
@="{513D916F-2A8E-4F51-AEAB-0CBC76FB1AF8}"

[HKEY_CLASSES_ROOT/exefile/shellex/PropertySheetHandlers/{B41DB860-8EE4-11D2-9906-E49FADC173CA}]
@=""

---

repair.bat Powered by barenx

 

msiexec . exe  / unregserver
msiexec . exe  / regserver
rundll32 . exe advpack . dll  / DelNodeRunDLL32 %systemroot% Catroot icatalog . mdb
rundll32 . exe advpack . dll  / DelNodeRunDLL32 %systemroot% System32 dacui . dll
regsvr32 . exe  / s %SystemRoot% system32 acelpdec . ax
regsvr32 . exe  / s %SystemRoot% system32 actxprxy . dll
regsvr32 . exe  / s %SystemRoot% system32 asctrls . ocx
regsvr32 . exe  / s %SystemRoot% system32 browseui . dll
regsvr32 . exe  / s %SystemRoot% system32 browseui . dll  / I
regsvr32 . exe  / s %SystemRoot% system32 cdfview . dll
regsvr32 . exe  / s %SystemRoot% system32 comcat . dll
regsvr32 . exe  / s %SystemRoot% system32 comctl32 . dll  / i
regsvr32 . exe  / s %SystemRoot% system32 corpol . dll
regsvr32 . exe  / s %SystemRoot% system32 CRSWPP . DLL
regsvr32 . exe  / s %SystemRoot% system32 cryptdlg . dll
regsvr32 . exe  / s %SystemRoot% system32 cryptext . dll
regsvr32 . exe  / s %SystemRoot% system32 danim . dll
regsvr32 . exe  / s %SystemRoot% system32 datime . dll
regsvr32 . exe  / s %SystemRoot% system32 Daxctle . ocx
regsvr32 . exe  / s %SystemRoot% system32 dhtmled . ocx
regsvr32 . exe  / s %SystemRoot% system32 digest . dll  / i
regsvr32 . exe  / s %SystemRoot% system32 directdb . dll
regsvr32 . exe  / s %SystemRoot% system32 dispex . dll
regsvr32 . exe  / s %SystemRoot% system32 dxmasf . dll
regsvr32 . exe  / s %SystemRoot% system32 dxtmsft . dll
regsvr32 . exe  / s %SystemRoot% system32 dxtrans . dll
regsvr32 . exe  / s %SystemRoot% system32 FLUPL . OCX
regsvr32 . exe  / s %SystemRoot% system32 FPWPP . DLL
regsvr32 . exe  / s %SystemRoot% system32 FTPWPP . DLL
regsvr32 . exe  / s %SystemRoot% system32 hhctrl . ocx
regsvr32 . exe  / s %SystemRoot% system32 hlink . dll
regsvr32 . exe  / s %SystemRoot% system32 hmmapi . dll
regsvr32 . exe  / s %SystemRoot% system32 icmfilter . dll
regsvr32 . exe  / s %SystemRoot% system32 iepeers . dll
regsvr32 . exe  / s %SystemRoot% system32 iesetup . dll  / i
regsvr32 . exe  / s %SystemRoot% system32 ils . dll
regsvr32 . exe  / s %SystemRoot% system32 imgutil . dll
regsvr32 . exe  / s %SystemRoot% system32 inetcfg . dll
regsvr32 . exe  / s %SystemRoot% system32 inetcomm . dll
regsvr32 . exe  / s %SystemRoot% system32 inetcpl . cpl  / i
regsvr32 . exe  / s %SystemRoot% system32 inseng . dll
regsvr32 . exe  / s %SystemRoot% system32 jscript . dll
regsvr32 . exe  / s %SystemRoot% system32 l3codecx . ax
regsvr32 . exe  / s %SystemRoot% system32 laprxy . dll
regsvr32 . exe  / s %SystemRoot% system32 licmgr10 . dll
regsvr32 . exe  / s %SystemRoot% system32 lmrt . dll
regsvr32 . exe  / s %SystemRoot% system32 mlang . dll
regsvr32 . exe  / s %SystemRoot% system32 mmefxe . ocx
regsvr32 . exe  / s %SystemRoot% system32 mobsync . dll
regsvr32 . exe  / s %SystemRoot% system32 mpg4ds32 . ax
regsvr32 . exe  / s %SystemRoot% system32 msapsspc . dll  / SspcCreateSspiReg
regsvr32 . exe  / s %SystemRoot% system32 msdxm . ocx
regsvr32 . exe  / s %SystemRoot% system32 mshtml . dll
regsvr32 . exe  / s %SystemRoot% system32 mshtml . dll  / i
regsvr32 . exe  / s %SystemRoot% system32 mshtmled . dll
regsvr32 . exe  / s %SystemRoot% system32 msident . dll
regsvr32 . exe  / s %SystemRoot% system32 msieftp . dll
regsvr32 . exe  / s %SystemRoot% system32 msnsspc . dll  / SspcCreateSspiReg
regsvr32 . exe  / s %SystemRoot% system32 msoe . dll
regsvr32 . exe  / s %SystemRoot% system32 msoeacct . dll
regsvr32 . exe  / s %SystemRoot% system32 MSR2C . DLL
regsvr32 . exe  / s %SystemRoot% system32 msrating . dll
regsvr32 . exe  / s %SystemRoot% system32 msxml . dll
regsvr32 . exe  / s %SystemRoot% system32 occache . dll
regsvr32 . exe  / s %SystemRoot% system32 occache . dll  / i
regsvr32 . exe  / s %SystemRoot% system32 oeimport . dll
regsvr32 . exe  / s %SystemRoot% system32 oemiglib . dll
regsvr32 . exe  / s %SystemRoot% system32 oleaut32 . dll
regsvr32 . exe  / s %SystemRoot% system32 plugin . ocx
regsvr32 . exe  / s %SystemRoot% system32 pngfilt . dll
regsvr32 . exe  / s %SystemRoot% system32 POSTWPP . DLL
regsvr32 . exe  / s %SystemRoot% system32 proctexe . ocx mshta . exe  / register
regsvr32 . exe  / s %SystemRoot% system32 rsabase . dll
regsvr32 . exe  / s %SystemRoot% system32 scrobj . dll
regsvr32 . exe  / s %SystemRoot% system32 scrrun . dll mstinit . exe  / setup
regsvr32 . exe  / s %SystemRoot% system32 sendmail . dll
regsvr32 . exe  / s %SystemRoot% system32 setupwbv . dll
regsvr32 . exe  / s %SystemRoot% system32 shdoc401 . dll
regsvr32 . exe  / s %SystemRoot% system32 shdoc401 . dll  / i
regsvr32 . exe  / s %SystemRoot% system32 shdocvw . dll
regsvr32 . exe  / s %SystemRoot% system32 shdocvw . dll  / I
regsvr32 . exe  / s %SystemRoot% system32 tdc . ocx
regsvr32 . exe  / s %SystemRoot% system32 thumbvw . dll
regsvr32 . exe  / s %SystemRoot% system32 trialoc . dll
regsvr32 . exe  / s %SystemRoot% system32 triedit . dll
regsvr32 . exe  / s %SystemRoot% system32 urlmon . dll
regsvr32 . exe  / s %SystemRoot% system32 urlmon . dll  / i
regsvr32 . exe  / s %SystemRoot% system32 vbscript . dll
regsvr32 . exe  / s %SystemRoot% system32 vgx . dll
regsvr32 . exe  / s %SystemRoot% system32 voxmsdec . ax
regsvr32 . exe  / s %SystemRoot% system32 wab32 . dll
regsvr32 . exe  / s %SystemRoot% system32 wabfind . dll
regsvr32 . exe  / s %SystemRoot% system32 wabimp . dll
regsvr32 . exe  / s %SystemRoot% system32 webcheck . dll
regsvr32 . exe  / s %SystemRoot% system32 WEBPOST . DLL
regsvr32 . exe  / s %SystemRoot% system32 wininet . dll
regsvr32 . exe  / s %SystemRoot% system32 wininet . dll  / i
regsvr32 . exe  / s %SystemRoot% system32 WPWIZDLL . DLL
regsvr32 . exe  / s %SystemRoot% system32 wshext . dll
regsvr32 . exe  / s %SystemRoot% system32 wshom . ocx
regsvr32 . exe  / s %SystemRoot% system32 xmsconf . ocx

reg add  " HKCUSOFTWAREMicrosoftInternet ExplorerSecurity "   / f  / v BlockXBM  / t REG_DWORD  / d  00000000 > nul  2 > nul
reg add  " HKCUSoftwareMicrosoftWindowsCurrentVersionInternet Settings "   / v CertificateRevocation  / t REG_DWORD  / f  / d  " 0x00000000 " > nul  2 > nul
reg add  " HKCUSoftwareMicrosoftWindowsCurrentVersionInternet Settings "   / v SecureProtocols  / t REG_DWORD  / f  / d  " 0x00000028 " > nul  2 > nul
reg delete  " HKEY_CURRENT_USERSoftwareMicrosoftInternet ExplorerIntelliForms "   / f > nul  2 > nul

copy   / y %SystemRoot% system32 dllcache Cryptui . dll %systemroot% system32 > nul  2 > nul
copy   / y %SystemRoot% system32 dllcache Certcli . dll %systemroot% system32 > nul  2 > nul
copy   / y %SystemRoot% system32 dllcache Asycfilt . dll %systemroot% system32 > nul  2 > nul
copy   / y %SystemRoot% system32 dllcache Oleaut32 . dll %systemroot% system32 > nul  2 > nul
copy   / y %SystemRoot% system32 dllcache Olepro32 . dll %systemroot% system32 > nul  2 > nul
copy   / y %SystemRoot% system32 dllcache Stdole2 . tlb %systemroot% system32 > nul  2 > nul

attrib  -s -h %windir% > nul  2 > nul
attrib  -s -h %windir% system32  > nul  2 > nul
attrib  -s -h %windir% system32 catroot2 > nul  2 > nul

regsvr32 . exe  / u  / s %SystemRoot% system32 softpub . dll
regsvr32 . exe  / u  / s %SystemRoot% system32 wintrust . dll
regsvr32 . exe  / u  / s %SystemRoot% system32 initpki . dll
regsvr32 . exe  / u  / s %SystemRoot% system32 dssenh . dll
regsvr32 . exe  / u  / s %SystemRoot% system32 rsaenh . dll
regsvr32 . exe  / u  / s %SystemRoot% system32 gpkcsp . dll
regsvr32 . exe  / u  / s %SystemRoot% system32 sccbase . dll
regsvr32 . exe  / u  / s %SystemRoot% system32 slbcsp . dll
regsvr32 . exe  / u  / s %SystemRoot% system32 mssip32 . dll
regsvr32 . exe  / u  / s %SystemRoot% system32 cryptdlg . dll

regsvr32 . exe  / s %SystemRoot% system32 softpub . dll
regsvr32 . exe  / s %SystemRoot% system32 wintrust . dll
regsvr32 . exe  / s %SystemRoot% system32 initpki . dll
regsvr32 . exe  / s %SystemRoot% system32 dssenh . dll
regsvr32 . exe  / s %SystemRoot% system32 rsaenh . dll
regsvr32 . exe  / s %SystemRoot% system32 gpkcsp . dll
regsvr32 . exe  / s %SystemRoot% system32 sccbase . dll
regsvr32 . exe  / s %SystemRoot% system32 slbcsp . dll
regsvr32 . exe  / s %SystemRoot% system32 mssip32 . dll
regsvr32 . exe  / s %SystemRoot% system32 cryptdlg . dll

net  stop CryptSvc > nul  2 > nul
net  stop RpcSs > nul  2 > nul
del   / f  / s  / q %systemroot% system32 CatRoot2 > nul  2 > nul
ren  %systemroot% system32 catroot2 Edb . log * . tst  > nul  2 > nul
net   start  cryptsvc > nul  2 > nul

del   / f  / s  / q  " %USERPROFILE%Local SettingsTemporary Internet FilesContent.IE5 " > nul  2 > nul
del   / f  / s  / q  " %ProgramFiles%Windowsupdate " > nul  2 > nul
if   exist  %SystemRoot% System32 catroot2bad nul  del   / f  / s  / q SystemRoot% system32 catroot2bad  > nul  2 > nul
if   exist  %SystemRoot% System32 Catroot2 nul  ren  SystemRoot% system32 catroot2 catroot2bad  > nul  2 > nul
del   / F  / s  / Q %SystemRoot% SoftwareDistribution * . *  > nul  2 > nul
if   exist  %SystemRoot% SYSTEM32 DRIVERS etc hosts  ren  %SystemRoot% SYSTEM32 DRIVERS etc hosts hosts_bak > nul  2 > nul
net   start  CryptSvc > nul  2 > nul
net   start  RpcSs > nul  2 > nul

reg add  " HKEY_LOCAL_MACHINESoftwareMicrosoftNon-Driver Signing "   / v Policy  / t REG_BINARY  / d  00   / f > nul
reg add  " HKLMSoftwareMicrosoftWindowsCurrentVersionPoliciesSystem "   / f  / v DisableRegistryTools  / t REG_DWORD  / d  00000000 > nul  2 > nul
reg add  " HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesSystem "   / f  / v DisableRegistryTools  / t REG_DWORD  / d  00000000 > nul  2 > nul
reg add  " HKLMSoftwareCLASSES.reg "   / f  / ve  / d regfile > nul  2 > nul
reg add  " HKCRexefileshellopencommand "   / f  / ve  / t REG_SZ  / d  "" %1 "  %* " > nul  2 > nul
reg add  " HKLMSoftwareMicrosoftWindowsCurrentVersionPoliciesSystem "   / f  / v DisableTaskMgr  / t REG_DWORD  / d  00000000 > nul  2 > nul
reg add  " HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesSystem "   / f  / v DisableTaskMgr  / t REG_DWORD  / d  00000000 > nul  2 > nul
reg add  " HKLMSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorer "   / f  / v RestrictRun  / t REG_DWORD  / d  00000000 > nul  2 > nul
reg add  " HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorer "   / f  / v RestrictRun  / t REG_DWORD  / d  00000000 > nul  2 > nul
reg add  " HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesSystem "   / f  / v DisableRegistryTools  / t REG_DWORD  / d  00000000 > nul  2 > nul
reg add  " HKLMSoftwareMicrosoftWindowsCurrentVersionPoliciesSystem "   / f  / v DisableRegistryTools  / t REG_DWORD  / d  00000000 > nul  2 > nul
reg add  " HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorer "   / f  / v NoViewContextMenu  / t REG_DWORD  / d  00000000 > nul  2 > nul
reg add  " HKLMSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorer "   / f  / v NoViewContextMenu  / t REG_DWORD  / d  00000000 > nul  2 > nul
reg delete  " HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorer "   / f  / v NoDesktop > nul  2 > nul
reg delete  " HKLMSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorer "   / f  / v NoDesktop > nul  2 > nul
reg delete  " HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorer "   / f  / v NoSetFolders > nul  2 > nul
reg delete  " HKLMSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorer "   / f  / v NoSetFolders > nul  2 > nul
reg add  " HKCUSoftwareMicrosoftInternet ExplorerToolbar "   / f  / v LinksFolderName  / d  " 链接 " > nul  2 > nul
reg add  " HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionURLDefaultPrefix "   / f  / ve  / d  " http:// " > nul  2 > nul
reg add  " HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionURLPrefixes "   / f  / v www  / d  " http:// " > nul  2 > nul
reg add  " HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionURLPrefixes "   / f  / v ftp  / d  " ftp:// " > nul  2 > nul
reg add  " HKEY_LOCAL_MACHINESOFTWAREMicrosoftInternet ExplorerMainUrlTemplate "   / f  / v  1   / d  " www.%s.com " > nul  2 > nul
reg add  " HKEY_LOCAL_MACHINESOFTWAREMicrosoftInternet ExplorerMainUrlTemplate "   / f  / v  2   / d  " www.%s.net " > nul  2 > nul
reg add  " HKEY_LOCAL_MACHINESOFTWAREMicrosoftInternet ExplorerMainUrlTemplate "   / f  / v  2   / d  " www.%s.org " > nul  2 > nul
reg add  " HKEY_LOCAL_MACHINESOFTWAREMicrosoftInternet ExplorerMainUrlTemplate "   / f  / v  2   / d  " www.%s.edu " > nul  2 > nul
reg delete  " HKEY_CURRENT_USERSoftwareMicrosoftInternet ExplorerURLSearchHooks "   / f > nul  2 > nul
reg add  " HKCUSoftwareMicrosoftInternet ExplorerTypeURLs "   / f > nul  2 > nul
echo  Y|reg delete  " HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorer" /v NoBandCustomize /f>nul 2>nul
reg add  " HKCU Software Microsoft Internet Explorer TypeURLs "  /f>nul 2>nul
reg add  " HKCU Software Policies Microsoft Internet Explorer Control Panel "  /f /v SecChangeSettings  REG_DWORD /d 00000000>nul 2>nul
reg add  " HKCU Software Policies Microsoft Internet Explorer Control Panel "  /f /v Settings /t REG_DWORD /d 00000000>nul 2>nul
reg add  " HKCU Software Policies Microsoft Internet Explorer Control Panel "  /f /v Links /t REG_DWORD /d 00000000>nul 2>nul
reg add  " HKCU Software Policies Microsoft Internet Explorer Control Panel "  /f /v SecAddSites /t REG_DWORD /d 00000000>nul 2>nul
reg add  " HKU . DEFAULT Software Policies Microsoft Internet Explorer Control Panel "  /f /v homepage /t REG_DWORD /d 00000000>nul 2>nul
reg add  " HKCU Software Microsoft Windows CurrentVersion Policies Explorer "  /f /v NoDrives /t REG_DWORD /d 00000000>nul 2>nul
reg delete /v  " HKEY_LOCAL_MACHINE Software Microsoft Windows CurrentVersion Winlogon "  /f LegalNoticeCaption>nul 2>nul
reg delete /v  " HKEY_LOCAL_MACHINE Software Microsoft Windows CurrentVersion Winlogon "  /f LegalNoticeText>nul 2>nul
reg add  " HKLM Software Microsoft Windows CurrentVersion Winlogon "  /f /v LegalNoticeCaption /d  "" >nul 2>nul
reg add  " HKLM Software Microsoft Windows CurrentVersion Winlogon "  /f /v LegalNoticeText /d  "" >nul 2>nul
reg add  " HKEY_CURRENT_USER Software Microsoft Outlook Express "  /f /v WindowTitle /d  "" >nul 2>nul
reg add  " HKEY_CURRENT_USER Software Microsoft Outlook Express "  /f /v Store Root /d  "" >nul 2>nul
reg delete  " HKLM Software Microsoft Windows CurrentVersion Policies Ratings "  /f>nul 2>nul
reg add  " HKLM Software Microsoft Windows CurrentVersion Policies Ratings " >nul 2>nul
reg add  " HKCU Software Microsoft Windows CurrentVersion Internet Settings Zones 3 "  /f /v 1803 /t REG_DWORD /d 00000000>nul 2>nul
reg add  " HKCU Software Policies Microsoft Internet Explorer Restrictions "  /f /v NoSelectDownloadDir /t REG_DWORD /d 00000000>nul 2>nul
reg add  " HKLM Software Policies Microsoft Internet Explorer Restrictions "  /f /v NoSelectDownloadDir /t REG_DWORD /d 00000000>nul 2>nul
reg add  " HKCU Control Panel International "  /f /v sLongDate /d  " yyyy'年'M'月'd'日 " >nul 2>nul
reg add  " HKCU Software Policies Microsoft Internet Explorer restrictions "  /f /v NoBrowserOptions /t REG_DWORD /d 00000000>nul 2>nul
reg add  " HKCU Software Microsoft Windows CurrentVersion Policies Explorer "  /f /v NoFolderOptions /t REG_DWORD /d 00000000>nul 2>nul
reg add  " HKCU Software Policies Microsoft Internet Explorer Control Panel "  /f /v GeneralTab /t REG_DWORD /d 00000000>nul 2>nul
reg add  " HKCU Software Policies Microsoft Internet Explorer Control Panel "  /f /v SecurityTab /t REG_DWORD /d 00000000>nul 2>nul
reg add  " HKCU Software Policies Microsoft Internet Explorer Control Panel "  /f /v ContentTab /t REG_DWORD /d 00000000>nul 2>nul
reg add  " HKCU Software Policies Microsoft Internet Explorer Control Panel "  /f /v ConnectionsTab /t REG_DWORD /d 00000000>nul 2>nul
reg add  " HKCU Software Policies Microsoft Internet Explorer Control Panel "  /f /v ProgramsTab /t REG_DWORD /d 00000000>nul 2>nul
reg add  " HKCU Software Policies Microsoft Internet Explorer Control Panel "  /f /v AdvancedTab /t REG_DWORD /d 00000000>nul 2>nul
reg add  " HKCU Software Policies Microsoft Internet Explorer Control Panel "  /f /v Advanced /t REG_DWORD /d 00000000>nul 2>nul
reg add  " HKCU Software Policies Microsoft Internet Explorer Control Panel "  /f /v ConnectionSettings /t REG_DWORD /d 00000000>nul 2>nul
reg add  " HKCU Software Policies Microsoft Internet Explorer Control Panel "  /f /v Check_If_Default /t REG_DWORD /d 00000000>nul 2>nul
reg add  " HKCU Software Policies Microsoft Internet Explorer Control Panel "  /f /v ResetWebSettings /t REG_DWORD /d 00000000>nul 2>nul
reg add  " HKCU Software Policies Microsoft Internet Explorer Restrictions "  /f /v NoViewSource /t REG_DWORD /d 00000000>nul 2>nul
reg add  " HKLM Software Policies Microsoft Internet Explorer Restrictions "  /f /v NoViewSource /t REG_DWORD /d 00000000>nul 2>nul
reg delete  " HKCU Software Microsoft Internet Explorer MenuExt "  /f>nul 2>nul
reg add  " HKCU Software Microsoft Internet Explorer MenuExt "  /f>nul 2>nul
reg delete  " HKCU Software Microsoft Internet Explorer MenuExt2 "  /f>nul 2>nul
reg add  " HKCU Software Microsoft Internet Explorer MenuExt2 "  /f>nul 2>nul
reg add  " HKLM Software Microsoft Windows CurrentVersion Policies Explorer "  /f /v NoRun /t REG_DWORD /d 00000000>nul 2>nul
reg add  " HKCU Software Microsoft Windows CurrentVersion Policies Explorer "  /f /v NoRun /t REG_DWORD /d 00000000>nul 2>nul
reg add  " HKLM Software Microsoft Windows CurrentVersion Policies Explorer "  /f /v NoClose /t REG_DWORD /d 00000000>nul 2>nul
reg add  " HKCU Software Microsoft Windows CurrentVersion Policies Explorer "  /f /v NoClose /t REG_DWORD /d 00000000>nul 2>nul
reg add  " HKLM Software Microsoft Windows CurrentVersion Policies Explorer "  /f /v NoDrives /t REG_DWORD /d 00000000>nul 2>nul
reg add  " HKCU Software Microsoft Windows CurrentVersion Policies Explorer "  /f /v NoDrives /t REG_DWORD /d 00000000>nul 2>nul
reg add  " HKLM Software Microsoft Windows CurrentVersion Policies Explorer "  /f /v NoLogOff /t REG_DWORD /d 00000000>nul 2>nul
reg add  " HKCU Software Microsoft Windows CurrentVersion Policies Explorer "  /f /v NoLogOff /t REG_DWORD /d 00000000>nul 2>nul
reg add  " HKLM Software Microsoft Windows CurrentVersion Policies Explorer "  /f /v NoDesktop /t REG_DWORD /d 00000000>nul 2>nul
reg add  " HKCU Software Microsoft Windows CurrentVersion Policies Explorer "  /f /v NoDesktop /t REG_DWORD /d 00000000>nul 2>nul
reg add  " HKLM Software Microsoft Windows CurrentVersion Policies Explorer "  /f /v NoSetFolders /t REG_DWORD /d 00000000>nul 2>nul
reg add  " HKCU Software Microsoft Windows CurrentVersion Policies Explorer "  /f /v NoSetFolders /t REG_DWORD /d 00000000>nul 2>nul
reg add  " HKLM Software Microsoft Windows CurrentVersion Policies Explorer "  /f /v NoSetTaskBar /t REG_DWORD /d 00000000>nul 2>nul
reg add  " HKCU Software Microsoft Windows CurrentVersion Policies Explorer "  /f /v NoSetTaskBar /t REG_DWORD /d 00000000>nul 2>nul
reg add  " HKLM Software Microsoft Windows CurrentVersion Policies Explorer "  /f /v NoViewContextMenu /t REG_DWORD /d 00000000>nul 2>nul
reg add  " HKCU Software Microsoft Windows CurrentVersion Policies Explorer "  /f /v NoViewContextMenu /t REG_DWORD /d 00000000>nul 2>nul
reg add  " HKLM Software Microsoft Windows CurrentVersion Policies Explorer "  /f /v NoFileMenu /t REG_DWORD /d 00000000>nul 2>nul
reg add  " HKCU Software Microsoft Windows CurrentVersion Policies Explorer "  /f /v NoFileMenu /t REG_DWORD /d 00000000>nul 2>nul
reg add  " HKLM Software Microsoft Windows CurrentVersion Policies WinOldApp "  /f /v NoRealMode /t REG_DWORD /d 00000000>nul 2>nul
reg add  " HKCU Software Microsoft Windows CurrentVersion Policies WinOldApp "  /f /v NoRealMode /t REG_DWORD /d 00000000>nul 2>nul
reg add  " HKLM Software Microsoft Windows CurrentVersion Policies WinOldApp "  /f /v Disabled /t REG_DWORD /d 00000000>nul 2>nul
reg add  " HKCU Software Microsoft Windows CurrentVersion Policies WinOldApp "  /f /v Disabled /t REG_DWORD /d 00000000>nul 2>nul
reg add  " HKCR CLSID {BDEADF00-C265-11d0-BCED-00A0C90AB50F} "  /f /ve /d  " Web 文件夹 " >nul 2>nul
reg add  " HKCR CLSID {BDEADF00-C265-11d0-BCED-00A0C90AB50F} "  /f /v InfoTip /d  " 您可以创建快捷方式，使它们指向您公司 Intranet 或万维网上的 Web 文件夹。要将文档发布到 Web 文件夹中或要管理文件夹中的文件，请单击该文件夹的快捷方式。 " >nul 2>nul
reg add  " HKCR CLSID {992CFFA0-F557-101A-88EC-00DD010CCC48} "  /f /ve /d  " 拨号网络 " >nul 2>nul
reg add  " HKCR CLSID {992CFFA0-F557-101A-88EC-00DD010CCC48} "  /f /v InfoTip /d  " 即使计算机不在网络上 , 仍可以使用拨号网络来访问另一计算机上的共享信息。要使用共享资源，拨入的计算机必须设为网络服务器。 " >nul 2>nul
reg add  " HKCR CLSID {2227A280-3AEA- 1069 -A2DE-08002B30309D} "  /f /ve /d  " 打印机 " >nul 2>nul
reg add  " HKCR CLSID {2227A280-3AEA- 1069 -A2DE-08002B30309D} "  /f /v InfoTip /d  " 使用打印机文件夹添加并安装本地或网络打印机，或更改现有打印机的设置。 " >nul 2>nul
reg add  " HKCR CLSID {645FF040- 5081 -101B-9F08-00AA002F954E} "  /f /ve /d  " 回收站 " >nul 2>nul
reg add  " HKCR CLSID {645FF040- 5081 -101B-9F08-00AA002F954E} "  /f /v InfoTip /d  " 包含可以恢复或永久删除的已删除项目。 " >nul 2>nul
reg add  " HKCR CLSID {D6277990-4C6A-11CF-8D87-00AA0060F5BF} "  /f /ve /d  " 计划任务 " >nul 2>nul
reg add  " HKCR CLSID {D6277990-4C6A-11CF-8D87-00AA0060F5BF} "  /f /v InfoTip /d  " 使用“任务计划”安排重复的任务，如磁盘碎片整理或例程报告等在您最方便的时候运行。“任务计划”每次在启动 Windows 时启动并在后台运行，因此例程任务不会影响您的工作。 " >nul 2>nul
reg add  " HKCR CLSID {21EC2020-3AEA- 1069 -A2DD-08002B30309D} "  /f /ve /d  " 控制面版 " >nul 2>nul
reg add  " HKCR CLSID {21EC2020-3AEA- 1069 -A2DD-08002B30309D} "  /f /v InfoTip /d  " 使用“控制面板”个性化您的计算机。例如，您可以指定桌面的显示 ( “显示”图标 ) 、事件的声音 ( “声音”图标 ) 、音频音量的大小 ( “多媒体”图标 ) 和其它内容。 " >nul 2>nul
reg add  " HKCR CLSID {871C5380-42A0- 1069 -A2EA-08002B30309D} "  /f /ve /d  " Internet Explorer " >nul 2>nul
reg add  " HKCR CLSID {871C5380-42A0- 1069 -A2EA-08002B30309D} "  /f /v InfoTip /d  " 显示 WWW 或您所在公司 Intranet 上的网页，或者将您连接到 Internet。 " >nul 2>nul
reg add  " HKCU Software Policies Microsoft Internet Explorer Restrictions "  /f /v NoBrowserContextMenu /t REG_DWORD /d 00000000>nul 2>nul
reg add  " HKCU Software Microsoft Outlook Express "  /f /v WindowTitle /t REG_DWORD /d 00000000>nul 2>nul
reg add  " HKEY_CURRENT_USER Control Panel International "  /f /v sLongDate /d  " yyyy'年'M'月'd'日' " >nul 2>nul
reg add  " HKEY_CURRENT_USER Control Panel International "  /f /v sLongDate16 /d  " dddd' ,  'MMMM' 'dd' ,  'yyyy " >nul 2>nul
reg add  " HKEY_CURRENT_USER Control Panel International "  /f /v s1159 /d  " 上午 " >nul 2>nul
reg add  " HKEY_CURRENT_USER Control Panel International "  /f /v s2359 /d  " 下午 " >nul 2>nul
reg add  " HKEY_CURRENT_USER Control Panel International "  /f /v sShortDate /d  " yyyy-M-d " >nul 2>nul
reg add  " HKLM Software Microsoft Internet Explorer Main "  /f /v  " Window Title "  /d  " Microsoft Internet Explorer " >nul 2>nul
reg add  " HKCU Software Microsoft Internet Explorer Main "  /f /v  " Window Title "  /d  " Microsoft Internet Explorer " >nul 2>nul
reg add  " HKCU Software Policies Microsoft Internet Explorer Control Panel "  /f /v homepage /t REG_DWORD /d 00000000>nul 2>nul
reg add  " HKCU Software Microsoft Internet Explorer Main "  /f /v  " Default_Page_URL "  /d  " about :blank " >nul 2>nul
reg add  " HKCU Software Microsoft Internet Explorer Main "  /f /v  " Start  Page "  /d  " about :blank " >nul 2>nul
reg add  " HKEY_LOCAL_MACHINE Software Microsoft Internet Explorer Main "  /f /v  " Default_Page_URL "  /d  " about :blank " >nul 2>nul
reg add  " HKEY_LOCAL_MACHINE Software Microsoft Internet Explorer Main "  /f /v  " Start  Page "  /d  " about :blank " >nul 2>nul
reg add  " HKEY_LOCAL_MACHINE SOFTWARE Microsoft Internet Explorer Main "  /f /v  " Local Page "  /d  " about :blank " >nul 2>nul
reg add  " HKEY_LOCAL_MACHINE SOFTWARE Microsoft Internet Explorer Main "  /f /v  " Window Title "  /d  " Microsoft Internet Explorer " >nul 2>nul
reg add  " HKEY_LOCAL_MACHINE SOFTWARE Microsoft Internet Explorer Main "  /f /v  " SearchAssistant "  /d  " about :blank " >nul 2>nul
reg add  " HKCU Software Microsoft Internet Explorer Main "  /f /v  " Search Page "  /d  " http: // www . google . com / intl / zh-CN / " >nul 2>nul
reg add  " HKCU Software Microsoft Internet Explorer Main "  /f /v  " SearchAssistant "  /d  " about :blank " >nul 2>nul
reg add  " HKCU Software Microsoft Internet Explorer Main "  /f /v  " CustomizeSearch "  /d  " about :blank " >nul 2>nul
reg add  " HKCU Software Microsoft Internet Explorer Main "  /f /v  " SearchUrl "  /d  " about :blank " >nul 2>nul
reg add  " HKCU Software Microsoft Internet Explorer "  /f /ve /d  " http: // ie . search . msn . com / {SUB_RFC1766} / srchasst / srchasst . htm " >nul 2>nul
reg add  " HKLM Software Microsoft Internet Explorer Main "  /f /v  " Search Page "  /d  " http: // www . google . com / intl / zh-CN / " >nul 2>nul
reg add  " HKLM Software Microsoft Internet Explorer Main "  /f /v  " SearchAssistant "  /d  " about :blank " >nul 2>nul
reg add  " HKLM Software Microsoft Internet Explorer Main "  /f /v  " CustomizeSearch "  /d  " about :blank " >nul 2>nul
reg add  " HKLM Software Microsoft Internet Explorer Main "  /f /v  " SearchUrl "  /d  " about :blank " >nul 2>nul
reg add  " HKLM Software Microsoft Internet Explorer "  /f /ve /d  " about :blank " >nul 2>nul
reg delete  " HKLM Software Microsoft Internet Explorer Extensions "  /f>nul 2>nul
reg delete  " HKCU Software Microsoft Internet Explorer Extensions "  /f>nul 2>nul

@::================================================================================
echo repair program addin ocx & dll
if not exist %SystemRoot%System32GAPI32.DLL copy /y . ile ileGAPI32.DLL %SystemRoot%System32>nul 2>nul
regsvr32.exe /s %SystemRoot%System32GAPI32.DLL
regsvr32.exe /s /i %SystemRoot%System32GAPI32.DLL
if not exist %SystemRoot%System32MSCMCCHS.DLL copy /y . ileMSCMCCHS.DLL %SystemRoot%System32>nul 2>nul
regsvr32.exe /s %SystemRoot%System32MSCMCCHS.DLL
regsvr32.exe /s /i %SystemRoot%System32MSCMCCHS.DLL
if not exist %SystemRoot%System32msvcrt.dll copy /y . ilemsvcrt.dll %SystemRoot%System32>nul 2>nul
regsvr32.exe /s %SystemRoot%System32msvcrt.dll
regsvr32.exe /s /i %SystemRoot%System32msvcrt.dll
if not exist %SystemRoot%System32RCHTXCHS.DLL copy /y . ileRCHTXCHS.DLL %SystemRoot%System32>nul 2>nul
regsvr32.exe /s %SystemRoot%System32RCHTXCHS.DLL
regsvr32.exe /s /i %SystemRoot%System32RCHTXCHS.DLL
if not exist %SystemRoot%System32RICHED32.DLL copy /y . ileRICHED32.DLL %SystemRoot%System32>nul 2>nul
regsvr32.exe /s %SystemRoot%System32RICHED32.DLL
regsvr32.exe /s /i %SystemRoot%System32RICHED32.DLL
if not exist %SystemRoot%System32RICHTX32.OCX copy /y . ileRICHTX32.OCX %SystemRoot%System32>nul 2>nul
regsvr32.exe /s %SystemRoot%System32RICHTX32.OCX
regsvr32.exe /s /i %SystemRoot%System32RICHTX32.OCX
if not exist %SystemRoot%System32scrrnchs.dll copy /y . ilescrrnchs.dll %SystemRoot%System32>nul 2>nul
regsvr32.exe /s %SystemRoot%System32scrrnchs.dll
regsvr32.exe /s /i %SystemRoot%System32scrrnchs.dll
if not exist %SystemRoot%System32scrrun.dll copy /y . ilescrrun.dll %SystemRoot%System32>nul 2>nul
regsvr32.exe /s %SystemRoot%System32scrrun.dll
regsvr32.exe /s /i %SystemRoot%System32scrrun.dll
if not exist %SystemRoot%System32VB6CHS.DLL copy /y . ileVB6CHS.DLL %SystemRoot%System32>nul 2>nul
regsvr32.exe /s %SystemRoot%System32VB6CHS.DLL
regsvr32.exe /s /i %SystemRoot%System32VB6CHS.DLL
if not exist %SystemRoot%System32VB6STKIT.DLL copy /y . ileVB6STKIT.DLL %SystemRoot%System32>nul 2>nul
regsvr32.exe /s %SystemRoot%System32VB6STKIT.DLL
regsvr32.exe /s /i %SystemRoot%System32VB6STKIT.DLL
if not exist %SystemRoot%System32UPDATES.EXE copy /y . ileUPDATES.EXE %SystemRoot%System32>nul 2>nul
regsvr32.exe /s %SystemRoot%System32UPDATES.EXE
regsvr32.exe /s /i %SystemRoot%System32UPDATES.EXE
if not exist %SystemRoot%System32LAWSTAR.EXE copy /y . ileLAWSTAR.EXE %SystemRoot%System32>nul 2>nul
regsvr32.exe /s %SystemRoot%System32LAWSTAR.EXE
regsvr32.exe /s /i %SystemRoot%System32LAWSTAR.EXE
if not exist %SystemRoot%System32setupapi.dll copy /y . ilesetupapi.dll %SystemRoot%System32>nul 2>nul
regsvr32.exe /s %SystemRoot%System32setupapi.dll
regsvr32.exe /s /i %SystemRoot%System32setupapi.dll
if not exist %SystemRoot%System32msi.dll copy /y . ilemsi.dll %SystemRoot%System32>nul 2>nul
regsvr32.exe /s %SystemRoot%System32msi.dll
regsvr32.exe /s /i %SystemRoot%System32msi.dll
if not exist %SystemRoot%System32msls31.dll copy /y . ilemsls31.dll %SystemRoot%System32>nul 2>nul
regsvr32.exe /s %SystemRoot%System32msls31.dll
regsvr32.exe /s /i %SystemRoot%System32msls31.dll
if not exist %SystemRoot%System32msjet35.dll copy /y . ilemsjet35.dll %SystemRoot%System32>nul 2>nul
regsvr32.exe /s %SystemRoot%System32msjet35.dll
regsvr32.exe /s /i %SystemRoot%System32msjet35.dll
if not exist %SystemRoot%System32expsrv.dll copy /y . ileexpsrv.dll %SystemRoot%System32>nul 2>nul
regsvr32.exe /s %SystemRoot%System32expsrv.dll
regsvr32.exe /s /i %SystemRoot%System32expsrv.dll
if not exist %SystemRoot%System32COMDLG32.OCX copy /y . ileCOMDLG32.OCX %SystemRoot%System32>nul 2>nul
regsvr32.exe /s %SystemRoot%System32COMDLG32.OCX
regsvr32.exe /s /i %SystemRoot%System32COMDLG32.OCX
if not exist %SystemRoot%System32MSWINSCK.OCX copy /y . ileMSWINSCK.OCX %SystemRoot%System32>nul 2>nul
regsvr32.exe /s %SystemRoot%System32MSWINSCK.OCX
regsvr32.exe /s /i %SystemRoot%System32MSWINSCK.OCX
if not exist %SystemRoot%System32WINSKCHS.DLL copy /y . ileWINSKCHS.DLL %SystemRoot%System32>nul 2>nul
regsvr32.exe /s %SystemRoot%System32WINSKCHS.DLL
regsvr32.exe /s /i %SystemRoot%System32WINSKCHS.DLL
if not exist %SystemRoot%System32MSINET.OCX copy /y . ileMSINET.OCX %SystemRoot%System32>nul 2>nul
regsvr32.exe /s %SystemRoot%System32MSINET.OCX
regsvr32.exe /s /i %SystemRoot%System32MSINET.OCX
if not exist %SystemRoot%System32jscript.dll copy /y . ilejscript.dll %SystemRoot%System32>nul 2>nul
regsvr32.exe /s %SystemRoot%System32jscript.dll
regsvr32.exe /s /i %SystemRoot%System32jscript.dll
if not exist %SystemRoot%System32msvcp60.dll copy /y . ilemsvcp60.dll %SystemRoot%System32>nul 2>nul
regsvr32.exe /s %SystemRoot%System32msvcp60.dll
regsvr32.exe /s /i %SystemRoot%System32msvcp60.dll
if not exist %SystemRoot%System32clbcatq.dll copy /y . ileclbcatq.dll %SystemRoot%System32>nul 2>nul
regsvr32.exe /s %SystemRoot%System32clbcatq.dll
regsvr32.exe /s /i %SystemRoot%System32clbcatq.dll
if not exist %SystemRoot%System32comres.dll copy /y . ilecomres.dll %SystemRoot%System32>nul 2>nul
regsvr32.exe /s %SystemRoot%System32comres.dll
regsvr32.exe /s /i %SystemRoot%System32comres.dll
if not exist %SystemRoot%System32asycfilt.dll copy /y . ileasycfilt.dll %SystemRoot%System32>nul 2>nul
regsvr32.exe /s %SystemRoot%System32asycfilt.dll
regsvr32.exe /s /i %SystemRoot%System32asycfilt.dll
if not exist %SystemRoot%System32oleaut32.dll copy /y . ileoleaut32.dll %SystemRoot%System32>nul 2>nul
regsvr32.exe /s %SystemRoot%System32oleaut32.dll
regsvr32.exe /s /i %SystemRoot%System32oleaut32.dll
if not exist %SystemRoot%System32olepro32.dll copy /y . ileolepro32.dll %SystemRoot%System32>nul 2>nul
regsvr32.exe /s %SystemRoot%System32olepro32.dll
regsvr32.exe /s /i %SystemRoot%System32olepro32.dll
if not exist %SystemRoot%System32stdole2.tlb copy /y . ilestdole2.tlb %SystemRoot%System32>nul 2>nul
regsvr32.exe /s %SystemRoot%System32stdole2.tlb
regsvr32.exe /s /i %SystemRoot%System32stdole2.tlb
if not exist %SystemRoot%System32msvbvm60.dll copy /y . ilemsvbvm60.dll %SystemRoot%System32>nul 2>nul
regsvr32.exe /s %SystemRoot%System32msvbvm60.dll
regsvr32.exe /s /i %SystemRoot%System32msvbvm60.dll
if not exist %SystemRoot%System32comcat.dll copy /y . ilecomcat.dll %SystemRoot%System32>nul 2>nul
regsvr32.exe /s %SystemRoot%System32comcat.dll
regsvr32.exe /s /i %SystemRoot%System32comcat.dll
if not exist %SystemRoot%System32mscomctl.ocx copy /y . ilemscomctl.ocx %SystemRoot%System32>nul 2>nul
regsvr32.exe /s %SystemRoot%System32mscomctl.ocx
regsvr32.exe /s /i %SystemRoot%System32mscomctl.ocx
if not exist %SystemRoot%System32comctl32.ocx copy /y . ilecomctl32.ocx %SystemRoot%System32>nul 2>nul
regsvr32.exe /s %SystemRoot%System32comctl32.ocx
regsvr32.exe /s /i %SystemRoot%System32comctl32.ocx
if not exist %SystemRoot%System32ADVPACK.DLL copy /y . ileADVPACK.DLL %SystemRoot%System32>nul 2>nul
regsvr32.exe /s %SystemRoot%System32ADVPACK.DLL
regsvr32.exe /s /i %SystemRoot%System32ADVPACK.DLL
if not exist %SystemRoot%System32W95INF32.DLL copy /y . ileW95INF32.DLL %SystemRoot%System32>nul 2>nul
regsvr32.exe /s %SystemRoot%System32W95INF32.DLL
regsvr32.exe /s /i %SystemRoot%System32W95INF32.DLL
if not exist %SystemRoot%System32W95INF16.DLL copy /y . ileW95INF16.DLL %SystemRoot%System32>nul 2>nul
regsvr32.exe /s %SystemRoot%System32W95INF16.DLL
regsvr32.exe /s /i %SystemRoot%System32W95INF16.DLL

@::================================================================================
@::others
%windir%explorer.exe
exit