由于火绒官方的静默安装在5.0.11.1之后就砍掉了，想自己整，苦于看不懂NSIS脚本。

求道者

有没有成品或者教程？
旧版本NSIS脚本和新版差得有点远。
我对NSIS一窍不通。
属实不知道怎么动手了。

只有批处理也行。
这样以后部署只要解包安装包就行了。

weal2010

看看

wondaol

静默安装有什么缺点？

9zhmke

给你个VBS的吧，可以参照改成你自己的，或者改成批处理：

1. 
   
2. ProcessName="hr" & ".exe"'这里放火绒安装程序的名字
   
3. Set WshShell=WScript.CreateObject("WScript.Shell")
   
4. my_dir=left(wscript.scriptfullname,instrrev(wscript.scriptfullname,"")-1) & ""
   
5. file=my_dir & ProcessName
   
6. if not CreateObject("Scripting.FileSystemObject").FileExists(file) then msgbox "没找到:" & file:Wscript.Quit
   
7. WshShell.Run file,1
   
8. while CPU_busy >4 or Hard_busy >4096: wscript.sleep 200:Wend '忙则等
   
9. wscript.Sleep 3000
   
10. WshShell.SendKeys "{Enter}"'点击“下一步”
    
11. Wscript.Quit
    
12. 
    
13. 
    
14. 
    
15. 
    
16. 
    
17. 
    
18. '==================================程序完毕，下方是子程序==================================
    
19. Function CPU_busy() 'CPU使用率
    
20.     dim objProc
    
21.     Set objProc = GetObject("winmgmts:\\.\root\cimv2:win32_processor='cpu0'")
    
22.     CPU_busy=objProc.LoadPercentage 'CPU使用率
    
23.     Set objProc = nothing
    
24. End Function
    
25. Function Hard_busy() '硬盘忙闲
    
26.     Dim vName,IDE,cPPP,sNow,A,B,R1,W1,R2,W2,read,write
    
27.     Set objWMIService=GetObject("winmgmts:\\.\root\cimv2")
    
28.     Set IDE = objWMIService.ExecQuery("Select * from Win32_DiskDrive WHERE InterfaceType='IDE'")
    
29.     Set cPPP = objWMIService.ExecQuery("SELECT * FROM Win32_PerfRawData_PerfDisk_PhysicalDisk WHERE Name<>'_Total'")
    
30.     DskPs=WshShell.ExpandEnvironmentStrings("%SystemDrive%") '取系统驱动器
    
31.         Set A = objWMIService.ExecQuery("Select * from Win32_PerfRawData_PerfDisk_LogicalDisk Where Name = '"& DskPs &"'")
    
32.         For Each B In A
    
33.             R1 = B.DiskReadBytesPersec: W1 = B.DiskWriteBytesPersec
    
34.             If RA0 = "" Then RA0 = B.DiskReadBytesPersec Else RA1 = R1 End If
    
35.             If WA0 = "" Then WA0 = B.DiskWriteBytesPersec Else WA1 = W1 End If
    
36.         Next
    
37.     Set A = Nothing
    
38.     WScript.Sleep(500)
    
39.     Set A = objWMIService.ExecQuery("Select * from Win32_PerfRawData_PerfDisk_LogicalDisk Where Name = '"& DskPs &"'")
    
40.     For Each B In A
    
41.         R2 = B.DiskReadBytesPersec
    
42.         W2 = B.DiskWriteBytesPersec
    
43.     Next
    
44.     Set A = Nothing
    
45.     read=R2-R1:write=W2-W1   'msgbox  "半秒实时读取：" & read & "/s 实时写人：" & write
    
46.     Hard_busy = read + write
    
47.     Set IDE=nothing
    
48.     Set cPPP=nothing
    
49. End Function
    

复制代码

程序虽然不是静默，但适用于机房批量安装，实际上也就是打开同文件夹下的hr.exe，然后等待安装完成后，点击一个回车键。

求道者

9zhmke 发表于 2022-9-4 09:15
给你个VBS的吧，可以参照改成你自己的，或者改成批处理：

我脚本是用ahk写的，能捕捉按钮，只是我不想弄这种东西，而且要求也不急。

weal2010

看看

sgyfx

这个有难度，帮不到你。

cxincn

看看

weal2010

谢谢

yechengzhou

SUT整合包,版本有点旧
https://cloud.189.cn/web/share?code=n6nEFn6NVbQf（访问码：fe58）

求道者

yechengzhou 发表于 2022-9-7 15:55
SUT整合包,版本有点旧
https://cloud.189.cn/web/share?code=n6nEFn6NVbQf（访问码：fe58）

我看能不能参考一下。

dxhjh

谢谢分享

sufeiy

谢谢分享,太好了.

求道者

yechengzhou 发表于 2022-9-7 15:55
SUT整合包,版本有点旧
https://cloud.189.cn/web/share?code=n6nEFn6NVbQf（访问码：fe58）

仔细研究了一下包里的内容，注册表里有很多是多余的东西，缓存和其他的玩意。
然后我就研究NSIS去了。
发现安装脚本其实往注册表里只写了十条左右的命令。
其他的主要是installer-helper.dll动态生成的。

mayukun

感谢大佬指点