Resource Tuner v2.23 VBSCript 破解脚本
本帖最后由 chishingchan 于 2023-9-4 23:13 编辑ResTuner_setup.vbs
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery ("Select * from Win32_OperatingSystem")
For Each objItem in colItems
OSA = objItem.OSArchitecture
Next
Const HKCU = &H80000001
Const HKLM = &H80000002
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
If OSA = "64-bit" Or OSA = "64 位" Then
oReg.GetStringValue HKLM,"SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\Resource Tuner_is1","DisplayName",DN
oReg.GetStringValue HKLM,"SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\Resource Tuner_is1","DisplayVersion",DV
oReg.GetStringValue HKLM,"SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\Resource Tuner_is1","InstallLocation",IL
Else
oReg.GetStringValue HKLM,"SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Resource Tuner_is1","DisplayName",DN
oReg.GetStringValue HKLM,"SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Resource Tuner_is1","DisplayVersion",DV
oReg.GetStringValue HKLM,"SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Resource Tuner_is1","InstallLocation",IL
End If
Set WshShell = CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
If IsNull(IL) Then
WshShell.Popup "软件可能未安装！",5,"错误",0
WScript.Quit
End If
If Not objFSO.FileExists(IL & "restuner.exe") Then
WshShell.Popup "目标文件不存在！",5,"错误",0
WScript.Quit
End If
If DV <> "2.23" Then
WshShell.Popup "软件版本不支持！",5,"错误",0
WScript.Quit
End If
Name = Array("restuner.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 IL & "restuner.exe"
ado_stream.position = 1267962 '08000000E87DFBECFFBB01000000
ado_stream.Write HexToByte("00000000E87DFBECFFEB20909090")
ado_stream.position = 1716204 '修改为：W.i.n.d.o.w.s.
ado_stream.Write HexToByte("570069006E0064006F00770073000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000")
ado_stream.position = 1719400 '修改为：B.u.s.i.n.e.s.s. .L.i.c.e.n.s.e.
ado_stream.Write HexToByte("42007500730069006E0065007300730020004C006900630065006E00730065000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000")
ado_stream.position = 1721168 '修改为：5. .U.s.e.r.
ado_stream.Write HexToByte("35002000550073006500720000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000")
ado_stream.position = 1725000 '修改为：0.5./.1.7./.2.0.8.3.
ado_stream.Write HexToByte("300035002F00310037002F0032003000380033000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000")
ado_stream.position = 3016208 '8B15CC1175008B12
ado_stream.Write HexToByte("BAEC3B5A00909090")
ado_stream.position = 3016246 '8B1558FF74008B12
ado_stream.Write HexToByte("BA68485A00909090")
ado_stream.position = 3016284 '8B15C81175008B12
ado_stream.Write HexToByte("BA504F5A00909090")
ado_stream.position = 3016322 '8B15740675008B12
ado_stream.Write HexToByte("BA485E5A00909090")
ado_stream.position = 3390546 '83F802
ado_stream.Write HexToByte("3BC090")
ado_stream.position = 3413077 '88
ado_stream.Write HexToByte("FE")
ado_stream.SaveToFile IL & "restuner.exe", 2
ado_stream.Close
Set ado_stream = Nothing
WshShell.Popup "已破解主程序！"& vbcrlf & vbcrlf & "VBScript by ChiShingChan", 10, DN & " v" & DV, 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
安装包：http://bbs.wuyou.net/forum.php?mod=viewthread&tid=428688 运行后地址报错 006D6???
希望破一下命令行版本Resource Tuner Console，几年前的patch失效了，可以参考：
谢谢 2010hook 发表于 2022-1-23 21:44
运行后地址报错 006D6???
希望破一下命令行版本Resource Tuner Console，几年前的patch失效了，可以参考 ...
这个版本已破！本想与这个一起放出来，现在等版本更新。 这工具的特色是什么呢？ 有什么用功???? chishingchan 发表于 2022-1-24 10:43
这个版本已破！本想与这个一起放出来，现在等版本更新。
这软件已经成熟，无需更新，希望分享 Console 2.22版本的破解脚本，感谢！ 谢谢分享 2010hook 发表于 2022-1-23 21:44
运行后地址报错 006D6???
希望破一下命令行版本Resource Tuner Console，几年前的patch失效了，可以参考 ...
Resource Tuner Console 与 Resource Tuner，啥区别？ martin313 发表于 2023-9-4 14:46
Resource Tuner Console 与 Resource Tuner，啥区别？
Console 是命令行版本，用于批处理执行，没操作窗口的。 使用脚本后，会不会出现下述情况：
打补丁后，用Resource Tuner修改目标程序，保存后会在目标程序的Version 处生成 Comments 的问题
Comments Value: Modified by an unpaid evaluation copy of Resource Tuner 2 (www.heaventools.com) 2010hook 发表于 2023-9-4 14:49
Console 是命令行版本，用于批处理执行，没操作窗口的。
好的，了解了
没试过此脚本。试过网上提供的Patch，会出现Comments 的问题。如果主楼提供的脚本，参考来自此Patch，没做修改的话，那么应该也会。 谢谢分享 martin313 发表于 2023-9-4 15:12
没试过此脚本。试过网上提供的Patch，会出现Comments 的问题。如果主楼提供的脚本，参考来自此Patch，没做 ...
这个脚本的数据的确有问题 ！我刚测试过，2.23版按照2.22版的数据进行破解是行不通的！ chishingchan 发表于 2023-9-4 21:32
这个脚本的数据的确有问题 ！我刚测试过，2.23版按照2.22版的数据进行破解是行不通的！
吾爱有分享 2.23 的完美版
完美简体中文语言包与完美简体中文帮助文件，纯净无个人信息 来学习 chishingchan 发表于 2023-9-4 21:32
这个脚本的数据的确有问题 ！我刚测试过，2.23版按照2.22版的数据进行破解是行不通的！
那个 2.22 版，无Comments 的问题？ martin313 发表于 2023-9-4 14:49
使用脚本后，会不会出现下述情况：
打补丁后，用Resource Tuner修改目标程序，保存后会在目标程序的Ver ...
代码已修正！
有个偏移地址弄错数据！未修正前也没有你说的情况！
本帖最后由 martin313 于 2023-9-5 05:09 编辑
chishingchan 发表于 2023-9-4 23:15
代码已修正！
有个偏移地址弄错数据！未修正前也没有你说的情况！
厉害！厉害！
感谢分享
这个破解脚本是怎么使用？双击 .vbs 文件，会自动执行破解程序吗？执行一次即可吗还是每次都得运行一下？
chishingchan 发表于 2023-9-4 23:15
代码已修正！
有个偏移地址弄错数据！未修正前也没有你说的情况！
啥时对 diskgenius V5.5.1动个刀 ? chishingchan 发表于 2023-9-4 23:15
代码已修正！
有个偏移地址弄错数据！未修正前也没有你说的情况！
楼主这脚本是怎么搞出来的？这么强悍！ martin313 发表于 2023-9-7 06:41
楼主这脚本是怎么搞出来的？这么强悍！
技术积累！ chishingchan 发表于 2023-9-7 07:39
技术积累！
佩服佩服
向楼主学习 佩服膜拜，测试确实可行，如果加上提权的代码就好了，在win10系统目录下运行会出错。 楼主 ，能提供下 Resource Tuner Console 2.22 这个命令行版本的出来吗？ 荣耀 发表于 2023-9-11 15:56
楼主 ，能提供下 Resource Tuner Console 2.22 这个命令行版本的出来吗？
为何找旧版本啊 martin313 发表于 2023-9-11 16:03
为何找旧版本啊
官网上显示，这个命令行版本。当前最新的就是 2.2.2 啊
w去w掉w.heaventools.com/rtconsole-news.htm
页:
[1]