无忧启动论坛

标题: 由于火绒官方的静默安装在5.0.11.1之后就砍掉了，想自己整，苦于看不懂NSIS脚本。 [打印本页]
作者: 求道者    时间: 2022-9-3 20:05
标题: 由于火绒官方的静默安装在5.0.11.1之后就砍掉了，想自己整，苦于看不懂NSIS脚本。
本帖最后由 求道者 于 2022-9-3 20:06 编辑

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

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

作者: weal2010    时间: 2022-9-4 07:59
看看
作者: wondaol    时间: 2022-9-4 08:46
静默安装有什么缺点？
作者: 9zhmke    时间: 2022-9-4 09:15
本帖最后由 9zhmke 于 2022-9-4 09:17 编辑

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

  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






  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，然后等待安装完成后，点击一个回车键。
作者: 求道者    时间: 2022-9-4 10:34
9zhmke 发表于 2022-9-4 09:15
给你个VBS的吧，可以参照改成你自己的，或者改成批处理：



我脚本是用ahk写的，能捕捉按钮，只是我不想弄这种东西，而且要求也不急。
作者: weal2010    时间: 2022-9-5 11:24
看看
作者: sgyfx    时间: 2022-9-5 11:38
这个有难度，帮不到你。
作者: cxincn    时间: 2022-9-6 08:48
看看
作者: weal2010    时间: 2022-9-6 15:57
谢谢
作者: yechengzhou    时间: 2022-9-7 15:55
SUT整合包,版本有点旧
https://cloud.189.cn/web/share?code=n6nEFn6NVbQf（访问码：fe58）
作者: 求道者    时间: 2022-10-8 09:36
yechengzhou 发表于 2022-9-7 15:55
SUT整合包,版本有点旧
https://cloud.189.cn/web/share?code=n6nEFn6NVbQf（访问码：fe58）

我看能不能参考一下。
作者: dxhjh    时间: 2022-10-8 14:04
谢谢分享
作者: sufeiy    时间: 2022-10-8 14:37

谢谢分享,太好了.
作者: 求道者    时间: 2022-10-8 17:43
yechengzhou 发表于 2022-9-7 15:55
SUT整合包,版本有点旧
https://cloud.189.cn/web/share?code=n6nEFn6NVbQf（访问码：fe58）

仔细研究了一下包里的内容，注册表里有很多是多余的东西，缓存和其他的玩意。
然后我就研究NSIS去了。
发现安装脚本其实往注册表里只写了十条左右的命令。
其他的主要是installer-helper.dll动态生成的。
作者: mayukun    时间: 2022-10-8 20:19
感谢大佬指点



欢迎光临 无忧启动论坛 (http://wuyou.net/) Powered by Discuz! X3.3