设为首页收藏本站
开启辅助访问

无忧启动论坛

 找回密码
 注册
搜索
无忧启动论坛»论坛 › ::启动制作:: › 综合讨论区 › 300无忧币希望找个人帮忙写个静默安装程序

300无忧币希望找个人帮忙写个静默安装程序

查看数: 1297 | 评论数: 43 | 收藏 2
关灯 | 提示：支持键盘翻页<-左 右->
帖子模式
    组图打开中，请稍候......
2012ccxbox
发布时间: 2025-12-20 20:17

正文摘要:

本帖最后由 2012ccxbox 于 2025-12-20 22:57 编辑 1.zd的搜狗输入法自带静默参数/S,但是静默参数不能选择自己想要的组件 搜狗输入法v12.5.0.6558去广告精简优化版.exe - 蓝奏云 https://423down.lanzouo.com/iW ...

回复

win82 发表于 3 天前
进来学习
kuwave 发表于 4 天前
简单    加我V   53852801
ppll2030 发表于 4 天前
建议楼主可以看看 BEIKING 大佬的精简版
http://bbs.wuyou.net/forum.php?mod=viewthread&tid=430198
喜欢手写功能的，可以考虑这个智慧版。
基本功能+手写+语音等功能都具备了

2012ccxbox 发表于 4 天前
nttwqz 发表于 2025-12-23 16:39
还能休假？看来楼主在相当大的“单位”……

年假。。法定的假期啊
nttwqz 发表于 5 天前
2012ccxbox 发表于 2025-12-23 15:21
已下载 由于休假。。下周一测试 没问题的话就是答案了

还能休假？看来楼主在相当大的“单位”……

点评

2012ccxbox
年假。。法定的假期啊  详情 回复 发表于 4 天前
2012ccxbox 发表于 5 天前
nttwqz 发表于 2025-12-22 20:16
增加后超过论坛附件限制，已临时上传至蓝奏bdju，请尽快下载并考虑分享，将于几日后删除，在沙盘中测试手 ...

已下载 由于休假。。下周一测试 没问题的话就是答案了

点评

nttwqz
还能休假？看来楼主在相当大的“单位”……  详情 回复 发表于 5 天前
nttwqz 发表于 6 天前
本帖最后由 nttwqz 于 2025-12-23 08:49 编辑
2012ccxbox 发表于 2025-12-22 10:39
Components.rar - 蓝奏云
https://abcx.lanzoul.com/iZLms3e7gksj
能否帮忙讲这个组件替换过去？就是包 ...

增加后超过论坛附件限制，已临时上传至蓝奏bdju，请尽快下载并考虑分享，将于几日后删除，在沙盘中测试手写功能正常。
这是更改后的源码，可下载NSIS自行编译。
https://nsis.sourceforge.io/Main_Page

搜狗拼音附加组件源码.7z (202.32 KB, 下载次数: 6)



点评

2012ccxbox
已下载 由于休假。。下周一测试 没问题的话就是答案了  详情 回复 发表于 5 天前
ebaqiang 发表于 6 天前
纯支持～帮顶
2012ccxbox 发表于 6 天前
nttwqz 发表于 2025-12-21 12:12
NSIS源码在此，其它文件自行从原安装包中提取。

Components.rar - 蓝奏云
https://abcx.lanzoul.com/iZLms3e7gksj
能否帮忙讲这个组件替换过去？就是包括了手写组件的、
谢谢
如果您愿意抽空帮忙 最佳答案奉上

点评

nttwqz
增加后超过论坛附件限制，已临时上传至蓝凑，请尽快下载并考虑分享，将于几日后删除。 这是更改后的源码，可下载NSIS自行编译。 https://nsis.sourceforge.io/Main_Page  详情 回复 发表于 6 天前
2012ccxbox 发表于 6 天前
门口 发表于 2025-12-22 09:41
其实最好的方法是让制作者修改那个组件的默认选中状态，或者干脆修改安装脚本来支持命令行设置组件功能。别 ...

感谢提供思路
门口 发表于 6 天前
其实最好的方法是让制作者修改那个组件的默认选中状态，或者干脆修改安装脚本来支持命令行设置组件功能。别的方法就是自己解包安装脚本重新编译，或者用工具跟踪后重新制作。

点评

2012ccxbox
感谢提供思路  详情 回复 发表于 6 天前

评分

参与人数 1无忧币 +5 收起 理由
2012ccxbox + 5

查看全部评分

2012ccxbox 发表于 6 天前
本帖最后由 2012ccxbox 于 2025-12-22 09:46 编辑
chishingchan 发表于 2025-12-22 08:45
就算弄也只弄下面这个版本！

其实我最终目的就是想默认连同手写组件一块安装。。
chishingchan 发表于 6 天前
就算弄也只弄下面这个版本！

点评

2012ccxbox
可以的。其实我最终目的就是想默认连同手写组件一块安装。。  详情 回复 发表于 6 天前
likunrong 发表于 7 天前
等高手
huangyi2008 发表于 7 天前
qq362817567 发表于 2025-12-21 15:21
你所说的静默安装是完全看不到安装界面还是仅仅自动化操作？

这是个大神~
qq362817567 发表于 7 天前
qq362817567 发表于 2025-12-21 15:21
你所说的静默安装是完全看不到安装界面还是仅仅自动化操作？

其实也还好，控件点击比坐标点击靠谱的多，窗口非激活状态应该也是能点到的。当然如果有大神直接给出静默包是最好了，期待。
2012ccxbox 发表于 7 天前
nttwqz 发表于 2025-12-21 12:12
NSIS源码在此，其它文件自行从原安装包中提取。


即使不是最佳答案，100论坛也会奉上感谢提供新的思路
qq362817567 发表于 7 天前
你所说的静默安装是完全看不到安装界面还是仅仅自动化操作？
  1. #Region ;**** 由 AutoIt3Wrapper_GUI 编译参数创建 ****
  2. #AutoIt3Wrapper_Icon=
  3. #AutoIt3Wrapper_Outfile=搜狗输入法自动安装.exe
  4. #AutoIt3Wrapper_Compression=4
  5. #AutoIt3Wrapper_UseUpx=y
  6. #AutoIt3Wrapper_Change2CUI=y
  7. #AutoIt3Wrapper_Run_AU3Check=n
  8. #EndRegion ;**** 由 AutoIt3Wrapper_GUI 编译参数创建 ****

  10. Opt("TrayIconHide", 1) ; 隐藏托盘图标
  11. Opt("WinTitleMatchMode", 2) ; 窗口标题部分匹配
  12. Opt("MouseClickDelay", 5) ; 减少鼠标点击延迟
  13. Opt("SendKeyDelay", 2) ; 减少按键延迟

  15. ; 主安装程序文件名
  16. Global $sSetupExe = "搜狗输入法v12.5.0.6558去广告精简优化版.exe"

  18. ; 气泡提示函数
  19. Func _ShowBubbleTip($sMessage)
  20.     ToolTip($sMessage, @DesktopWidth/2, 10, "搜狗输入法自动安装", 1, 1)
  21. EndFunc

  23. Func _ClearBubbleTip()
  24.     ToolTip("")
  25. EndFunc

  27. ; 等待特定控件出现
  28. Func _WaitForControl($hWnd, $sControlID, $iTimeout = 10)
  29.     Local $iStart = TimerInit()
  30.    
  31.     While TimerDiff($iStart) < $iTimeout * 1000
  32.         Local $hControl = ControlGetHandle($hWnd, "", $sControlID)
  33.         If $hControl Then
  34.             Return True
  35.         EndIf
  36.         Sleep(50)
  37.     WEnd
  38.    
  39.     Return False
  40. EndFunc

  42. ; 等待控件文本出现
  43. Func _WaitForControlText($hWnd, $sControlID, $sText, $iTimeout = 10)
  44.     Local $iStart = TimerInit()
  45.    
  46.     While TimerDiff($iStart) < $iTimeout * 1000
  47.         Local $hControl = ControlGetHandle($hWnd, "", $sControlID)
  48.         If $hControl Then
  49.             Local $sControlText = ControlGetText($hWnd, "", $sControlID)
  50.             If StringInStr($sControlText, $sText) Then
  51.                 Return True
  52.             EndIf
  53.         EndIf
  54.         Sleep(50)
  55.     WEnd
  56.    
  57.     Return False
  58. EndFunc

  60. ; 快速点击函数
  61. Func _QuickClick($hWnd, $sControlID)
  62.     Local $hControl = ControlGetHandle($hWnd, "", $sControlID)
  63.     If $hControl Then
  64.         ControlClick($hWnd, "", $sControlID)
  65.         Return True
  66.     EndIf
  67.     Return False
  68. EndFunc

  70. ; 处理已安装版本提示
  71. Func _HandleAlreadyInstalled()
  72.     Local $hWindow = WinWait("搜狗输入法", "系统里已经安装了相同的版本", 2)
  73.    
  74.     If $hWindow Then
  75.         _ShowBubbleTip("检测到已安装版本，点击是继续...")
  76.         WinActivate($hWindow)
  77.         Sleep(50)
  78.         
  79.         ; 使用多种方式点击"是"按钮
  80.         For $i = 1 To 3
  81.             ControlClick($hWindow, "", "[CLASS:Button; INSTANCE:1]")
  82.             Sleep(20)
  83.             ControlSend($hWindow, "", "", "{ENTER}")
  84.             Sleep(20)
  85.             
  86.             If Not WinExists($hWindow) Then
  87.                 ExitLoop
  88.             EndIf
  89.         Next
  90.         
  91.         ; 等待窗口关闭
  92.         Local $iWait = 0
  93.         While WinExists($hWindow) And $iWait < 5
  94.             Sleep(50)
  95.             $iWait += 1
  96.         WEnd
  97.         
  98.         Return True
  99.     EndIf
  100.    
  101.     Return False
  102. EndFunc

  104. ; 主要安装流程
  105. _ShowBubbleTip("启动安装程序...")

  107. ; 检查安装程序是否存在
  108. If Not FileExists($sSetupExe) Then
  109.     _ShowBubbleTip("错误: 未找到安装程序")
  110.     Sleep(1500)
  111.     _ClearBubbleTip()
  112.     Exit 1
  113. EndIf

  115. ; 运行安装程序
  116. Local $iPID = Run($sSetupExe)
  117. If $iPID = 0 Then
  118.     _ShowBubbleTip("错误: 无法启动安装程序")
  119.     Sleep(1500)
  120.     _ClearBubbleTip()
  121.     Exit 1
  122. EndIf

  124. Sleep(100) ; 短暂等待让安装程序启动

  126. ; 步骤0: 处理已安装版本提示
  127. _HandleAlreadyInstalled()

  129. ; 步骤1: 等待主安装窗口
  130. Local $hMainWindow = WinWait("搜狗输入法 安装", "", 5)
  131. If Not $hMainWindow Then
  132.     _ShowBubbleTip("错误: 未找到安装窗口")
  133.     Sleep(1500)
  134.     _ClearBubbleTip()
  135.     Exit 1
  136. EndIf

  138. _ShowBubbleTip("开始安装流程...")
  139. WinActivate($hMainWindow)
  140. Sleep(50)

  142. ; 步骤2: 点击第一个下一步
  143. _ShowBubbleTip("点击下一步...")
  144. _QuickClick($hMainWindow, "[ID:1]")
  145. Sleep(80)

  147. ; 步骤3: 检查并处理组件选择界面
  148. _ShowBubbleTip("检查组件选项...")
  149. If _WaitForControl($hMainWindow, "SysTreeView321", 2) Then
  150.     ; 组件选择界面存在，勾选第三项
  151.     ControlFocus($hMainWindow, "", "SysTreeView321")
  152.     Sleep(300)
  153.    
  154.     ControlTreeView($hMainWindow, "", "SysTreeView321", "Select", "#2")
  155.     Sleep(300)
  156.    
  157.     ControlSend($hMainWindow, "", "SysTreeView321", "{SPACE}")
  158.     Sleep(500)
  159.    
  160.     _ShowBubbleTip("继续下一步...")
  161.     _QuickClick($hMainWindow, "[ID:1]")
  162.     Sleep(80)
  163. EndIf

  165. ; 步骤4: 点击安装按钮
  166. _ShowBubbleTip("开始安装...")
  167. _QuickClick($hMainWindow, "[ID:1]")
  168. Sleep(80)

  170. ; 步骤5: 等待安装完成
  171. _ShowBubbleTip("正在安装...")

  173. ; 等待完成界面出现 - 等待"完成"按钮出现
  174. Local $bInstallComplete = False
  175. Local $iTimeout = 0

  177. While Not $bInstallComplete And $iTimeout < 60  ; 最多等待60秒
  178.     ; 检查窗口是否仍然存在
  179.     If Not WinExists($hMainWindow) Then
  180.         ; 窗口已关闭，可能安装已完成
  181.         _ShowBubbleTip("安装窗口已关闭，安装可能已完成")
  182.         $bInstallComplete = True
  183.         ExitLoop
  184.     EndIf
  185.    
  186.     ; 检查是否出现"完成"按钮
  187.     If _WaitForControlText($hMainWindow, "[ID:1]", "完成", 1) Then
  188.         _ShowBubbleTip("检测到完成按钮")
  189.         $bInstallComplete = True
  190.         ExitLoop
  191.     EndIf
  192.    
  193.     Sleep(500)
  194.     $iTimeout += 1
  195.    
  196.     ; 每5秒更新一次提示
  197.     If Mod($iTimeout, 10) = 0 Then
  198.         _ShowBubbleTip("正在安装... 已等待 " & $iTimeout/2 & " 秒")
  199.     EndIf
  200. WEnd

  202. _ClearBubbleTip()

  204. ; 步骤6: 处理安装完成界面
  205. If WinExists($hMainWindow) Then
  206.     ; 确保窗口激活
  207.     WinActivate($hMainWindow)
  208.     Sleep(100)
  209.    
  210.     _ShowBubbleTip("正在处理安装完成选项...")
  211.    
  212.     ; 首先等待并选择"不重启"选项
  213.     If _WaitForControl($hMainWindow, "[ID:1204]", 5) Then
  214.         _ShowBubbleTip("选择不重启选项...")
  215.         
  216.         ; 等待更长时间确保控件完全加载
  217.         Sleep(300)
  218.         
  219.         ; 点击不重启选项
  220.         For $i = 1 To 3
  221.             _QuickClick($hMainWindow, "[ID:1204]")
  222.             Sleep(100)
  223.             
  224.             ; 同时尝试文本点击
  225.             ControlClick($hMainWindow, "否，我会在之后重新启动(&N)", "[TEXT:否，我会在之后重新启动(&N)]")
  226.             Sleep(100)
  227.             
  228.             ; 尝试Button5
  229.             ControlClick($hMainWindow, "", "Button5")
  230.             Sleep(100)
  231.             
  232.             ; 等待选项生效
  233.             Sleep(200)
  234.         Next
  235.         
  236.         _ShowBubbleTip("不重启选项已选择")
  237.     EndIf
  238.    
  239.     ; 等待完成按钮完全出现
  240.     If _WaitForControlText($hMainWindow, "[ID:1]", "完成", 5) Then
  241.         _ShowBubbleTip("点击完成按钮...")
  242.         
  243.         ; 等待确保完成按钮可用
  244.         Sleep(300)
  245.         
  246.         ; 点击完成按钮
  247.         For $i = 1 To 3
  248.             _QuickClick($hMainWindow, "[ID:1]")
  249.             Sleep(100)
  250.             
  251.             ; 同时尝试文本点击
  252.             ControlClick($hMainWindow, "完成(&F)", "[TEXT:完成(&F)]")
  253.             Sleep(100)
  254.             
  255.             ; 尝试Button2
  256.             ControlClick($hMainWindow, "", "Button2")
  257.             Sleep(100)
  258.             
  259.             ; 检查窗口是否已关闭
  260.             If Not WinExists($hMainWindow) Then
  261.                 ExitLoop
  262.             EndIf
  263.         Next
  264.         
  265.         ; 如果窗口还在，尝试坐标点击
  266.         If WinExists($hMainWindow) Then
  267.             _ShowBubbleTip("使用坐标点击完成按钮...")
  268.             Local $aPos = WinGetPos($hMainWindow)
  269.             If IsArray($aPos) Then
  270.                 ; 根据您提供的坐标: 位置324,302 和 ControlClick坐标40,12
  271.                 Local $iClickX = $aPos[0] + 324 + 40
  272.                 Local $iClickY = $aPos[1] + 302 + 12
  273.                 MouseClick("left", $iClickX, $iClickY, 1, 0)
  274.                 Sleep(200)
  275.             EndIf
  276.         EndIf
  277.     EndIf
  278.    
  279.     ; 等待窗口关闭
  280.     Local $iCloseTimeout = 0
  281.     While WinExists($hMainWindow) And $iCloseTimeout < 10
  282.         _QuickClick($hMainWindow, "[ID:1]")
  283.         Sleep(200)
  284.         $iCloseTimeout += 1
  285.     WEnd
  286.    
  287.     If WinExists($hMainWindow) Then
  288.         _ShowBubbleTip("警告: 安装窗口仍未关闭")
  289.         Sleep(1000)
  290.     EndIf
  291. EndIf

  293. _ClearBubbleTip()

  295. ; 安装完成提示
  296. _ShowBubbleTip("搜狗输入法安装完成！")
  297. Sleep(800)
  298. _ClearBubbleTip()

  300. Exit 0
复制代码

点评

qq362817567
其实也还好，控件点击比坐标点击靠谱的多，窗口非激活状态应该也是能点到的。当然如果有大神直接给出静默包是最好了，期待。  详情 回复 发表于 7 天前

评分

参与人数 1无忧币 +5 收起 理由
2012ccxbox + 5 有界面的话安装的时候如果鼠标键盘动了 会.

查看全部评分

好好学些 发表于 7 天前
学习一下
孑然 发表于 7 天前
等高手出作品！
liuyang2025 发表于 7 天前
论坛里面有，搜索下看看
神话再现 发表于 7 天前
全是高手
guong 发表于 7 天前
来看一下
nttwqz 发表于 7 天前
本帖最后由 nttwqz 于 2025-12-21 12:32 编辑

NSIS源码在此，其它文件自行从原安装包中提取。

搜狗拼音工具箱及扩展管理器组件源码.7z (202.24 KB, 下载次数: 25)

点评

2012ccxbox
Components.rar - 蓝奏云 https://abcx.lanzoul.com/iZLms3e7gksj 能否帮忙讲这个组件替换过去？就是包括了手写组件的、 谢谢 如果您愿意抽空帮忙 最佳答案奉上  详情 回复 发表于 6 天前
2012ccxbox
即使不是最佳答案，100论坛也会奉上感谢提供新的思路  详情 回复 发表于 7 天前

评分

参与人数 1无忧币 +5 收起 理由
2012ccxbox + 5

查看全部评分

nttwqz 发表于 7 天前
本帖最后由 nttwqz 于 2025-12-21 12:32 编辑

懒得弄个完整版了，所以，将此组件独立了出来，需在其安装后安装，仅在沙盘中测试扩展管理器可以打开，其它自行测试，如需要完整版，请等待其他大神。



搜狗拼音工具箱及扩展管理器组件.7z (1001.12 KB, 下载次数: 8)


评分

参与人数 1无忧币 +5 收起 理由
2012ccxbox + 5 也是一种思路，感谢，这个也可以静默安装么.

查看全部评分

yyz2191958 发表于 7 天前
18#的思路很好
austere 发表于 7 天前
9zhmke 发表于 2025-12-21 09:49
一个思路是分析后重新打包，二是AU3隐藏界面再用鼠标键盘操作实现“静默”，不隐藏的话应该会更容易点。

楼上回复是正解
9zhmke 发表于 7 天前
一个思路是分析后重新打包，二是AU3隐藏界面再用鼠标键盘操作实现“静默”，不隐藏的话应该会更容易点。

点评

austere
楼上回复是正解  详情 回复 发表于 7 天前
hhcha 发表于 7 天前
等高手出作品！
xiaomiaom 发表于 7 天前
找人重新封装一下输入法

小黑屋|手机版|Archiver|捐助支持|无忧启动 ( 闽ICP备05002490号-1 )

闽公网安备 35020302032614号

GMT+8, 2025-12-28 18:46

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表