[已解决]PrimoCache4.3安装过程RUN运行程序出错？

gyp2000

测试可用代码。

1. #include <File.au3>
   
2. #include <WinAPIError.au3>
   
3. Global $Log = @ScriptDir & "\日志.log"
   
4. Global $path = @ProgramFilesDir & "\PrimoCache"
   
5. _drivers($path)
   
6. 
   
7. Func _drivers($Dir)
   
8.         $Pid = Run('"' & $Dir & "\fcsetup.exe" & '"' & ' -i ' & '"' & $Dir & "\drv\rxfcv.inf" & '"' & ' 257', $Dir, @SW_HIDE)
   
9.         ProcessWaitClose($Pid)
   
10.         $Handle = _ProcessExitCode($Pid)
    
11.         $ExitCode = _ProcessExitCode($Pid, $Handle)
    
12.         If $ExitCode <> 0 Then
    
13.                 _FileWriteLog($Log, "驱动安装完成。 退出代码:" & $ExitCode & ":" & _WinAPI_GetErrorMessage($ExitCode))
    
14.         Else
    
15.                 _FileWriteLog($Log, "驱动安装完成")
    
16.         EndIf
    
17. EndFunc   ;==>_drivers
    
18. 
    
19. Func _ProcessExitCode($i_Pid, $h_Process = 0)
    
20.         Local $v_Placeholder
    
21.         If Not IsArray($h_Process) Then
    
22.                 $h_Process = DllCall('kernel32.dll', 'ptr', 'OpenProcess', 'int', 0x400, 'int', 0, 'int', $i_Pid)
    
23.                 If Not @error Then Return $h_Process
    
24.         Else
    
25.                 $h_Process = DllCall('kernel32.dll', 'ptr', 'GetExitCodeProcess', 'ptr', $h_Process[0], 'int*', $v_Placeholder)
    
26.                 If Not @error Then Return $h_Process[2]
    
27.         EndIf
    
28.         Return 0
    
29. EndFunc   ;==>_ProcessExitCode

复制代码

gyp2000

这软件可以脱离原版自己安装的。

1. #AutoIt3Wrapper_UseX64=y
   
2. #NoTrayIcon
   
3. #include <File.au3>
   
4. #include <WinAPIError.au3>
   
5. Global $Log = @ScriptDir & "\日志.log"
   
6. Global $path = @ProgramFilesDir & "\PrimoCache"
   
7. If @OSBuild < 6001 Then Exit MsgBox(0, "错误", "不支持的操作系统.")
   
8. _install($path)
   
9. _TestCertificate($path & "\TestCertificate.cer")
   
10. _drivers($path)
    
11. _RegCache($path)
    
12. _FileWriteLog($Log, "安装完毕")
    
13. 
    
14. 
    
15. 
    
16. Func _install($Dir)
    
17.         If Not FileExists($Dir) Then DirCreate($Dir)
    
18.         If Not FileExists($Dir & "\drv") Then DirCreate($Dir & "\drv")
    
19.         If Not FileExists($Dir & "\lang") Then DirCreate($Dir & "\lang")
    
20.         FileInstall(".\Resources\FancyCcV.exe", $Dir & "\FancyCcV.exe", 1)
    
21.         FileInstall(".\Resources\fcsetup.exe", $Dir & "\fcsetup.exe", 1)
    
22.         FileInstall(".\Resources\rxpcc.exe", $Dir & "\rxpcc.exe", 1)
    
23.         FileInstall(".\Resources\TestCertificate.cer", $Dir & "\TestCertificate.cer", 1)
    
24.         FileInstall(".\Resources\unins000.exe", $Dir & "\unins000.exe", 1)
    
25.         FileInstall(".\Resources\unins000.dat", $Dir & "\unins000.dat", 1)
    
26.         FileInstall(".\Resources\pcc_chs.dll", $Dir & "\lang\pcc_chs.dll", 1)
    
27.         Select
    
28.                 Case @OSBuild >= 6001 And @OSBuild < 10240
    
29.                         FileInstall(".\Resources\rxfcv,7.cat", $Dir & "\drv\rxfcv.cat", 1)
    
30.                         FileInstall(".\Resources\rxfcv,7.inf", $Dir & "\drv\rxfcv.inf", 1)
    
31.                         FileInstall(".\Resources\rxfcv,7.sys", $Dir & "\drv\rxfcv.sys", 1)
    
32.                         FileInstall(".\Resources\rxbsknl,7.sys", @SystemDir & "\drivers\rxbsknl.sys", 1)
    
33.                 Case @OSBuild >= 10240
    
34.                         FileInstall(".\Resources\rxfcv,10.cat", $Dir & "\drv\rxfcv.cat", 1)
    
35.                         FileInstall(".\Resources\rxfcv,10.inf", $Dir & "\drv\rxfcv.inf", 1)
    
36.                         FileInstall(".\Resources\rxfcv,10.sys", $Dir & "\drv\rxfcv.sys", 1)
    
37.                         FileInstall(".\Resources\rxbsknl,10.sys", @SystemDir & "\drivers\rxbsknl.sys", 1)
    
38.                 Case Else
    
39.         EndSelect
    
40.         If Not FileExists(@StartMenuCommonDir & "\PrimoCache") Then DirCreate(@StartMenuCommonDir & "\PrimoCache")
    
41.         FileCreateShortcut($Dir & "\FancyCcV.exe", @StartMenuCommonDir & "\PrimoCache\PrimoCache.lnk", $Dir)
    
42.         FileCreateShortcut($Dir & "\unins000.exe", @StartMenuCommonDir & "\PrimoCache\卸载PrimoCache.lnk", $Dir)
    
43. 
    
44. EndFunc   ;==>_install
    
45. 
    
46. Func _drivers($Dir)
    
47.         $Pid = Run('"' & $Dir & "\fcsetup.exe" & '"' & ' -i ' & '"' & $Dir & "\drv\rxfcv.inf" & '"' & ' 257', $Dir, @SW_HIDE)
    
48.         ProcessWaitClose($Pid)
    
49.         $Handle = _ProcessExitCode($Pid)
    
50.         $ExitCode = _ProcessExitCode($Pid, $Handle)
    
51.         If $ExitCode <> 0 Then
    
52.                 _FileWriteLog($Log, "驱动安装完成。 退出代码:" & $ExitCode & ":" & _WinAPI_GetErrorMessage($ExitCode))
    
53.         Else
    
54.                 _FileWriteLog($Log, "驱动安装完成")
    
55.         EndIf
    
56. EndFunc   ;==>_drivers
    
57. 
    
58. Func _TestCertificate($File)
    
59.         If Not FileExists($File) Then Return False
    
60.         RegRead("HKLM64\SOFTWARE\Microsoft\SystemCertificates\ROOT\Certificates\D39680ED59502209941759C74229F7E2FAC72749", "Blob")
    
61.         If @error Then
    
62.                 If FileExists(@SystemDir & "\certutil.exe") and FileExists($File) Then
    
63.                         RunWait(@SystemDir & "\certutil.exe" & " -f -addstore Root " & '"' & $File & '"', @ScriptDir, @SW_HIDE)
    
64.                         RunWait(@SystemDir & "\certutil.exe" & " -f -addstore TrustedPublisher " & '"' & $File & '"', @ScriptDir, @SW_HIDE)
    
65.                         _FileWriteLog($Log, "添加驱动证书")
    
66.                         FileDelete($File)
    
67.                 Else
    
68.                         FileDelete($File)
    
69.                         Return False
    
70.                 EndIf
    
71.         Else
    
72.                 _FileWriteLog($Log, "驱动证书已存在")
    
73.                 FileDelete($File)
    
74.         EndIf
    
75.         Return True
    
76. EndFunc   ;==>_TestCertificate
    
77. 
    
78. Func _RegCache($Dir)
    
79.         Local $iRegWrite, $Data, $Uninstall
    
80.         $Uninstall = "HKLM64\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{7A37EA43-BF6F-4DB7-83DB-97AA19BF9408}_is1"
    
81.         RegWrite("HKLM64\SOFTWARE\Romex Software\FancyCcV", "Version", "REG_DWORD", 67305472)
    
82.         RegWrite("HKLM64\SOFTWARE\Romex Software\FancyCcV", "Multilingual", "REG_SZ", "mui")
    
83.         RegWrite("HKLM64\SOFTWARE\Romex Software\FancyCcV", "PrefetchPath", "REG_SZ", "\DosDevices" & $Dir & "\prefetch")
    
84.         RegWrite("HKCU64\SOFTWARE\Romex Software\PrimoCache", "LanguageId", "REG_DWORD", 2052)
    
85. 
    
86.         RegWrite($Uninstall, "DisplayName", "REG_SZ", "PrimoCache 4.3.0")
    
87.         RegWrite($Uninstall, "DisplayVersion", "REG_SZ", "4.3.0")
    
88.         RegWrite($Uninstall, "UninstallString", "REG_SZ", $Dir & "\unins000.exe")
    
89.         RegWrite($Uninstall, "DisplayIcon", "REG_SZ", $Dir & "\FancyCcV.exe")
    
90.         RegWrite($Uninstall, "InstallLocation", "REG_SZ", $Dir & "")
    
91.         RegWrite($Uninstall, "Publisher", "REG_SZ", "Romex Software")
    
92.         RegWrite($Uninstall, "URLInfoAbout", "REG_SZ", "http://www.romexsoftware.com/")
    
93.         RegWrite($Uninstall, "NoModify", "REG_DWORD", 1)
    
94.         RegWrite($Uninstall, "NoRepair", "REG_DWORD", 1)
    
95.         RegWrite($Uninstall, "InstallDate", "REG_SZ", @YEAR & @MON & @MDAY)
    
96.         RegWrite($Uninstall, "EstimatedSize", "REG_DWORD", DirGetSize($Dir) / 1000)
    
97. 
    
98.         RegWrite("HKLM64\SYSTEM\CurrentControlSet\Services\FancyCcV\Parameters", "Scode", "REG_BINARY", Binary("0x5461dce9066ead46b4fb4d1b2cc61c6f"))
    
99.         $Data = "0xB800000055EAC6F98FECF94466FF7C07" & _
    
100.                         "07075BB7A8F7700FE09E0AA48C81C369" & _
     
101.                         "580C83A26E217A8EF08E1A94BCB1F399" & _
     
102.                         "281C73B25E114A7E2B7B28616E23E0B0" & _
     
103.                         "C231D0F8D16FD3C6B8DDEC122FF6057D" & _
     
104.                         "9E95E754A3F8CA261AEC6E7841899990" & _
     
105.                         "D1BEA09F2CB41E72672C98FD5690E585" & _
     
106.                         "2619AECBF177C5C88A2B8CAECA3EE093" & _
     
107.                         "2F1DAEC82B3ADF1E7EDF43AFBF9C7090" & _
     
108.                         "0A2D5B9CA45B172E0FF6F77AAA1B704C" & _
     
109.                         "D0C48096B7E8674F9BE9416EAEB7547B" & _
     
110.                         "1B417F848265302A"
     
111.         $iRegWrite = RegWrite("HKLM64\SYSTEM\CurrentControlSet\Services\FancyCcV\Parameters", "Data3", "REG_BINARY", Binary($Data))
     
112.         If $iRegWrite = False Then
     
113.                 _FileWriteLog($Log, "添加激活信息失败")
     
114.                 Return False
     
115.         Else
     
116.                 _FileWriteLog($Log, "添加激活信息成功")
     
117.                 Return True
     
118.         EndIf
     
119. EndFunc   ;==>_RegCache
     
120. 
     
121. Func _GetVer()
     
122.         Select
     
123.                 Case @OSBuild >= 6001 And @OSBuild < 10240
     
124.                         Return "win7"
     
125.                 Case @OSBuild >= 10240
     
126.                         Return "win10"
     
127.                 Case Else
     
128.                         Return
     
129.         EndSelect
     
130. EndFunc   ;==>_GetVer
     
131. 
     
132. Func _ProcessExitCode($i_Pid, $h_Process = 0)
     
133.         Local $v_Placeholder
     
134.         If Not IsArray($h_Process) Then
     
135.                 $h_Process = DllCall('kernel32.dll', 'ptr', 'OpenProcess', 'int', 0x400, 'int', 0, 'int', $i_Pid)
     
136.                 If Not @error Then Return $h_Process
     
137.         Else
     
138.                 $h_Process = DllCall('kernel32.dll', 'ptr', 'GetExitCodeProcess', 'ptr', $h_Process[0], 'int*', $v_Placeholder)
     
139.                 If Not @error Then Return $h_Process[2]
     
140.         EndIf
     
141.         Return 0
     
142. EndFunc   ;==>_ProcessExitCode

复制代码

msold5

gyp2000 发表于 2023-9-10 01:39
这软件可以脱离原版自己安装的。

越来越完善了，厉害！