Internet Download Manager VBScript 破解脚本

下载：Internet Download Manager version 6.41 Build 17 (发布日期：2023年8月2日)
https://wwi.lanzoup.com/iijrz14gl34f
静默安装参数: idman641build17.exe /onsilentsetup /s /q

idman641build17.vbs 破解脚本

Const HKCU = &H80000001
Const HKLM = &H80000002

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
oReg.GetStringValue HKCU,"Software\DownloadManager","ExePath",ExePath
oReg.GetStringValue HKCU,"Software\DownloadManager","vCOUFP",vCOUFP

Set WshShell = WScript.CreateObject("WScript.Shell")

If vCOUFP <> "641b17" Then
        WshShell.Popup "版本不匹配！", 5, "错误", 0
        WScript.Quit
End If

Set objFSO = CreateObject("Scripting.FileSystemObject")

If Not objFSO.FileExists(ExePath) Then
        WshShell.Popup "程序未找到！", 5, "错误", 0
        WScript.Quit
End If

Name = Array("IDMan.exe")
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate,(Debug)}!\\.\root\cimv2")
Set colProcessList = objWMIService.ExecQuery ("Select * from Win32_Process")
For Each objProcess In colProcessList
        For Each Process In Name
                If LCase(objProcess.Name) = LCase(Process) Then
                        objProcess.Terminate()
                End If
        Next
Next

Set ado_stream = CreateObject("ADODB.Stream")
        ado_stream.Type = 1
        ado_stream.Open
        ado_stream.LoadFromFile ExePath
        ado_stream.Position = 328
        ado_stream.Write HexToByte("DA0A5B")
        ado_stream.Position = 142640
        ado_stream.Write HexToByte("C3")
        ado_stream.Position = 186258
        ado_stream.Write HexToByte("33")
        ado_stream.Position = 263736
        ado_stream.Write HexToByte("6A00909090")
        ado_stream.Position = 305552
        ado_stream.Write HexToByte("B8FFFFFF7F90")
        ado_stream.Position = 326232
        ado_stream.Write HexToByte("00")
        ado_stream.Position = 337496
        ado_stream.Write HexToByte("EB")
        ado_stream.Position = 345962
        ado_stream.Write HexToByte("33")
        ado_stream.Position = 428285
        ado_stream.Write HexToByte("48C20800")
        ado_stream.Position = 436865
        ado_stream.Write HexToByte("65")
        ado_stream.Position = 436874
        ado_stream.Write HexToByte("EBF4")
        ado_stream.Position = 446033
        ado_stream.Write HexToByte("6A00909090")
        ado_stream.Position = 451200
        ado_stream.Write HexToByte("C3")
        ado_stream.Position = 460028
        ado_stream.Write HexToByte("6A00909090")
        ado_stream.Position = 460495
        ado_stream.Write HexToByte("33")
        ado_stream.Position = 460508
        ado_stream.Write HexToByte("6A00909090")
        ado_stream.Position = 468016
        ado_stream.Write HexToByte("C3")
        ado_stream.Position = 470736
        ado_stream.Write HexToByte("C3")
        ado_stream.Position = 495233
        ado_stream.Write HexToByte("8D")
        ado_stream.Position = 497312
        ado_stream.Write HexToByte("C3")
        ado_stream.Position = 499970
        ado_stream.Write HexToByte("6A00909090")
        ado_stream.Position = 500976
        ado_stream.Write HexToByte("C3")
        ado_stream.Position = 520937
        ado_stream.Write HexToByte("6A00909090")
        ado_stream.Position = 527728
        ado_stream.Write HexToByte("C3")
        ado_stream.Position = 538356
        ado_stream.Write HexToByte("6A00909090")
        ado_stream.Position = 538513
        ado_stream.Write HexToByte("6A00909090")
        ado_stream.Position = 538591
        ado_stream.Write HexToByte("6A00909090")
        ado_stream.Position = 538824
        ado_stream.Write HexToByte("6A00909090")
        ado_stream.Position = 539860
        ado_stream.Write HexToByte("6A00909090")
        ado_stream.Position = 540181
        ado_stream.Write HexToByte("00")
        ado_stream.Position = 540260
        ado_stream.Write HexToByte("6A00909090")
        ado_stream.Position = 540299
        ado_stream.Write HexToByte("6A00909090")
        ado_stream.Position = 540466
        ado_stream.Write HexToByte("EB")
        ado_stream.Position = 541410
        ado_stream.Write HexToByte("6A00909090")
        ado_stream.Position = 541478
        ado_stream.Write HexToByte("6A00909090")
        ado_stream.Position = 541878
        ado_stream.Write HexToByte("6A00909090")
        ado_stream.Position = 555432
        ado_stream.Write HexToByte("6A00909090")
        ado_stream.Position = 581300
        ado_stream.Write HexToByte("6A00909090")
        ado_stream.Position = 583354
        ado_stream.Write HexToByte("FC")
        ado_stream.Position = 591099
        ado_stream.Write HexToByte("FF")
        ado_stream.Position = 593044
        ado_stream.Write HexToByte("6A00909090")
        ado_stream.Position = 593820
        ado_stream.Write HexToByte("6A00909090")
        ado_stream.Position = 594404
        ado_stream.Write HexToByte("FF")
        ado_stream.Position = 595228
        ado_stream.Write HexToByte("6A00909090")
        ado_stream.Position = 608263
        ado_stream.Write HexToByte("6A00909090")
        ado_stream.Position = 989504
        ado_stream.Write HexToByte("C3")
        ado_stream.Position = 992862
        ado_stream.Write HexToByte("EB")
        ado_stream.Position = 1165365
        ado_stream.Write HexToByte("33")
        ado_stream.Position = 1215440
        ado_stream.Write HexToByte("C3")
        ado_stream.Position = 1216608
        ado_stream.Write HexToByte("C3")
        ado_stream.Position = 1217776
        ado_stream.Write HexToByte("C3")
        ado_stream.Position = 1239627
        ado_stream.Write HexToByte("00")
        ado_stream.Position = 1242892
        ado_stream.Write HexToByte("33")
        ado_stream.Position = 1326144
        ado_stream.Write HexToByte("C3")
        ado_stream.Position = 1416533
        ado_stream.Write HexToByte("6A00909090")
        ado_stream.Position = 1643481
        ado_stream.Write HexToByte("0000")
        ado_stream.Position = 1658660
        ado_stream.Write HexToByte("00")
        ado_stream.Position = 1658689
        ado_stream.Write HexToByte("00")
        ado_stream.Position = 1658733
        ado_stream.Write HexToByte("6A00909090")
        ado_stream.Position = 3464492
        ado_stream.Write HexToByte("00")
        ado_stream.Position = 3464496
        ado_stream.Write HexToByte("FFFFFF7F")
        ado_stream.SaveToFile ExePath, 2
        ado_stream.Close
Set ado_stream = Nothing

oReg.SetDWORDValue HKCU,"Software\DownloadManager","bShVistaAsAdmWarn",1
oReg.SetDWORDValue HKCU,"Software\DownloadManager","CheckUpdtVM",0
oReg.SetDWORDValue HKCU,"Software\DownloadManager","FSSettingsChecked",1
'oReg.SetDWORDValue HKCU,"Software\DownloadManager","LanguageID",2052
oReg.SetDWORDValue HKCU,"Software\DownloadManager","TipStartUp",1
oReg.SetStringValue HKLM,"SOFTWARE\Wow6432Node\Internet Download Manager","FName","Microsoft"
oReg.SetStringValue HKLM,"SOFTWARE\Wow6432Node\Internet Download Manager","LName","Windows"
oReg.SetStringValue HKLM,"SOFTWARE\Wow6432Node\Internet Download Manager","Email","e@mail.com"
oReg.SetStringValue HKLM,"SOFTWARE\Wow6432Node\Internet Download Manager","Serial","7WPV5-NHHF3-A2P39-LRJ74"

WshShell.Popup "Internet Download Manager v6.41.17.2 破解补丁" & vbnewline & vbnewline & "制作：ChiShingChan  编程语言：VBScript",10,"完成",0

Function HexToByte(hexStr)
        Set xmldom = Wscript.CreateObject("Microsoft.XMLDOM")
        Set byteObj= xmldom.createElement("byteObj")
        byteObj.dataType = "bin.hex"
        byteObj.nodeTypedValue = hexStr
        HexToByte=byteObj.nodeTypedValue
End Function