Resource Tuner v2.23 VBSCript 破解脚本

chishingchan

ResTuner_setup.vbs

1. Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
   
2. Set colItems = objWMIService.ExecQuery ("Select * from Win32_OperatingSystem")
   
3. For Each objItem in colItems
   
4.         OSA = objItem.OSArchitecture
   
5. Next
   
6. 
   
7. Const HKCU = &H80000001
   
8. Const HKLM = &H80000002
   
9. 
   
10. Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
    
11. 
    
12. If OSA = "64-bit" Or OSA = "64 位" Then
    
13.         oReg.GetStringValue HKLM,"SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\Resource Tuner_is1","DisplayName",DN
    
14.         oReg.GetStringValue HKLM,"SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\Resource Tuner_is1","DisplayVersion",DV
    
15.         oReg.GetStringValue HKLM,"SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\Resource Tuner_is1","InstallLocation",IL
    
16. Else
    
17.         oReg.GetStringValue HKLM,"SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Resource Tuner_is1","DisplayName",DN
    
18.         oReg.GetStringValue HKLM,"SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Resource Tuner_is1","DisplayVersion",DV
    
19.         oReg.GetStringValue HKLM,"SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Resource Tuner_is1","InstallLocation",IL
    
20. End If
    
21. 
    
22. Set WshShell = CreateObject("WScript.Shell")
    
23. 
    
24. Set objFSO = CreateObject("Scripting.FileSystemObject")
    
25. 
    
26. If IsNull(IL) Then
    
27.         WshShell.Popup "软件可能未安装！",5,"错误",0
    
28.         WScript.Quit
    
29. End If
    
30. 
    
31. If Not objFSO.FileExists(IL & "restuner.exe") Then
    
32.         WshShell.Popup "目标文件不存在！",5,"错误",0
    
33.         WScript.Quit
    
34. End If
    
35. 
    
36. If DV <> "2.23" Then
    
37.         WshShell.Popup "软件版本不支持！",5,"错误",0
    
38.         WScript.Quit
    
39. End If
    
40. 
    
41. Name = Array("restuner.exe")
    
42. Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate,(Debug)}!\\.\root\cimv2")
    
43. Set colProcessList = objWMIService.ExecQuery ("Select * from Win32_Process")
    
44. For Each objProcess In colProcessList
    
45.         For Each Process In Name
    
46.                 If LCase(objProcess.Name) = LCase(Process) Then
    
47.                         objProcess.Terminate()
    
48.                 End If
    
49.         Next
    
50. Next
    
51. 
    
52. Set ado_stream = CreateObject("ADODB.Stream")
    
53.         ado_stream.Type = 1
    
54.         ado_stream.open
    
55.         ado_stream.LoadFromFile IL & "restuner.exe"
    
56.         ado_stream.position = 1267962        '08000000E87DFBECFFBB01000000
    
57.         ado_stream.Write HexToByte("00000000E87DFBECFFEB20909090")
    
58.         ado_stream.position = 1716204        '修改为：W.i.n.d.o.w.s.
    
59.         ado_stream.Write HexToByte("570069006E0064006F00770073000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000")
    
60.         ado_stream.position = 1719400        '修改为：B.u.s.i.n.e.s.s. .L.i.c.e.n.s.e.
    
61.         ado_stream.Write HexToByte("42007500730069006E0065007300730020004C006900630065006E00730065000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000")
    
62.         ado_stream.position = 1721168        '修改为：5. .U.s.e.r.
    
63.         ado_stream.Write HexToByte("35002000550073006500720000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000")
    
64.         ado_stream.position = 1725000        '修改为：0.5./.1.7./.2.0.8.3.
    
65.         ado_stream.Write HexToByte("300035002F00310037002F0032003000380033000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000")
    
66.         ado_stream.position = 3016208        '8B15CC1175008B12
    
67.         ado_stream.Write HexToByte("BAEC3B5A00909090")
    
68.         ado_stream.position = 3016246        '8B1558FF74008B12
    
69.         ado_stream.Write HexToByte("BA68485A00909090")
    
70.         ado_stream.position = 3016284        '8B15C81175008B12
    
71.         ado_stream.Write HexToByte("BA504F5A00909090")
    
72.         ado_stream.position = 3016322        '8B15740675008B12
    
73.         ado_stream.Write HexToByte("BA485E5A00909090")
    
74.         ado_stream.position = 3390546        '83F802
    
75.         ado_stream.Write HexToByte("3BC090")
    
76.         ado_stream.position = 3413077        '88
    
77.         ado_stream.Write HexToByte("FE")
    
78.         ado_stream.SaveToFile IL & "restuner.exe", 2
    
79.         ado_stream.Close
    
80. Set ado_stream = Nothing
    
81. 
    
82. WshShell.Popup "已破解主程序！"& vbcrlf & vbcrlf & "VBScript by ChiShingChan", 10, DN & " v" & DV, 0
    
83. 
    
84. Function HexToByte(hexStr)
    
85.         Set xmldom = Wscript.CreateObject("Microsoft.XMLDOM")
    
86.         Set byteObj= xmldom.createElement("byteObj")
    
87.         byteObj.dataType = "bin.hex"
    
88.         byteObj.nodeTypedValue = hexStr
    
89.         HexToByte=byteObj.nodeTypedValue
    
90. End Function
    

复制代码

荣耀

martin313 发表于 2023-9-11 16:03
为何找旧版本啊

官网上显示，这个命令行版本。当前最新的就是 2.2.2 啊
w去w掉w.heaventools.com/rtconsole-news.htm

martin313

荣耀 发表于 2023-9-11 15:56
楼主 ，能提供下 Resource Tuner Console 2.22 这个命令行版本的出来吗？

为何找旧版本啊

荣耀

楼主 ，能提供下 Resource Tuner Console 2.22 这个命令行版本的出来吗？

201287zr

佩服膜拜，测试确实可行，如果加上提权的代码就好了，在win10系统目录下运行会出错。

martin313

chishingchan 发表于 2023-9-7 07:39
技术积累！

佩服佩服
向楼主学习

chishingchan

martin313 发表于 2023-9-7 06:41
楼主这脚本是怎么搞出来的？这么强悍！

技术积累！

martin313

chishingchan 发表于 2023-9-4 23:15
代码已修正！
有个偏移地址弄错数据！未修正前也没有你说的情况！

楼主这脚本是怎么搞出来的？这么强悍！

martin313

chishingchan 发表于 2023-9-4 23:15
代码已修正！
有个偏移地址弄错数据！未修正前也没有你说的情况！

啥时对 diskgenius V5.5.1  动个刀 ?

martin313

chishingchan 发表于 2023-9-4 23:15
代码已修正！
有个偏移地址弄错数据！未修正前也没有你说的情况！

厉害！厉害！
感谢分享
这个破解脚本是怎么使用？双击 .vbs 文件，会自动执行破解程序吗？执行一次即可吗还是每次都得运行一下？

chishingchan

martin313 发表于 2023-9-4 14:49
使用脚本后，会不会出现下述情况：

打补丁后，用Resource Tuner修改目标程序，保存后会在目标程序的Ver ...

代码已修正！
有个偏移地址弄错数据！未修正前也没有你说的情况！

martin313

chishingchan 发表于 2023-9-4 21:32
这个脚本的数据的确有问题 ！我刚测试过，2.23版按照2.22版的数据进行破解是行不通的！

那个 2.22 版，无Comments 的问题？

lyyf007

来学习

martin313

chishingchan 发表于 2023-9-4 21:32
这个脚本的数据的确有问题 ！我刚测试过，2.23版按照2.22版的数据进行破解是行不通的！

吾爱有分享 2.23 的完美版

完美简体中文语言包与完美简体中文帮助文件，纯净无个人信息

chishingchan

martin313 发表于 2023-9-4 15:12
没试过此脚本。试过网上提供的Patch，会出现Comments 的问题。如果主楼提供的脚本，参考来自此Patch，没做 ...

这个脚本的数据的确有问题 ！我刚测试过，2.23版按照2.22版的数据进行破解是行不通的！

yaojil

谢谢分享

martin313

没试过此脚本。试过网上提供的Patch，会出现Comments 的问题。如果主楼提供的脚本，参考来自此Patch，没做修改的话，那么应该也会。

martin313

2010hook 发表于 2023-9-4 14:49
Console 是命令行版本，用于批处理执行，没操作窗口的。

好的，了解了

martin313

使用脚本后，会不会出现下述情况：

打补丁后，用Resource Tuner修改目标程序，保存后会在目标程序的Version 处生成 Comments 的问题
Comments Value: Modified by an unpaid evaluation copy of Resource Tuner 2 (www.heaventools.com)

2010hook

martin313 发表于 2023-9-4 14:46
Resource Tuner Console 与 Resource Tuner，啥区别？

Console 是命令行版本，用于批处理执行，没操作窗口的。

martin313

2010hook 发表于 2022-1-23 21:44
运行后地址报错 006D6???

希望破一下命令行版本Resource Tuner Console，几年前的patch失效了，可以参考 ...

Resource Tuner Console 与 Resource Tuner，啥区别？

2010yuhongxi

谢谢分享

2010hook

chishingchan 发表于 2022-1-24 10:43
这个版本已破！本想与这个一起放出来，现在等版本更新。

这软件已经成熟，无需更新，希望分享 Console 2.22版本的破解脚本，感谢！

tcog

有什么用功????

Anson4

这工具的特色是什么呢？

chishingchan

2010hook 发表于 2022-1-23 21:44
运行后地址报错 006D6???

希望破一下命令行版本Resource Tuner Console，几年前的patch失效了，可以参考 ...

这个版本已破！本想与这个一起放出来，现在等版本更新。

lily9718

谢谢

2010hook

运行后地址报错 006D6???

希望破一下命令行版本Resource Tuner Console，几年前的patch失效了，可以参考：

chishingchan

安装包：http://bbs.wuyou.net/forum.php?mod=viewthread&tid=428688