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

无忧启动论坛

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

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

查看数: 824 | 评论数: 30 | 收藏 1
关灯 | 提示：支持键盘翻页<-左 右->
帖子模式
    组图打开中，请稍候......
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 ...

回复

likunrong 发表于 3 小时前
等高手
huangyi2008 发表于 6 小时前
qq362817567 发表于 2025-12-21 15:21
你所说的静默安装是完全看不到安装界面还是仅仅自动化操作？

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

评分

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

查看全部评分

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

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

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

点评

2012ccxbox
即使不是最佳答案，100论坛也会奉上感谢提供新的思路  详情 回复 发表于 7 小时前

评分

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

查看全部评分

nttwqz 发表于 10 小时前
本帖最后由 nttwqz 于 2025-12-21 12:32 编辑

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



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


评分

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

查看全部评分

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

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

点评

austere
楼上回复是正解  详情 回复 发表于 12 小时前
hhcha 发表于 14 小时前
等高手出作品！
xiaomiaom 发表于 14 小时前
找人重新封装一下输入法
PCHH 发表于 15 小时前
支持折腾
vsvsvs 发表于 16 小时前
低版本确实是好选择
gordonhf 发表于 22 小时前
等高手
RNM25728 发表于 昨天 23:17
坛里找 有的
2012ccxbox 发表于 昨天 22:56
邪恶海盗 发表于 2025-12-20 21:44
换低版本的，比如经典的6.7i不香么，还没那么多流氓...

6.7没手写 没语音。。
2012ccxbox 发表于 昨天 22:55
本帖最后由 2012ccxbox 于 2025-12-20 23:21 编辑
chishingchan 发表于 2025-12-20 21:24
给多少时间？Load.exe 类程序可以吗？

两个星期吧？所有方法都可以。。
1e3e 发表于 昨天 22:42
等高手
邪恶海盗 发表于 昨天 21:44
换低版本的，比如经典的6.7i不香么，还没那么多流氓...


二○二五年十二月二十日

点评

2012ccxbox
6.7没手写 没语音。。  详情 回复 发表于 昨天 22:56
smile_z 发表于 昨天 21:31
等高手
chishingchan 发表于 昨天 21:24
给多少时间？Load.exe 类程序可以吗？

点评

2012ccxbox
两个星期吧？所有方法都可以。。我只知道AU3可以  详情 回复 发表于 昨天 22:55
jlcc369 发表于 昨天 20:43
我用五笔，但支持折腾！
a66 发表于 昨天 20:30
等大佬...
yyz2191958 发表于 昨天 20:26
支持折腾，祝福早日解决问题

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

闽公网安备 35020302032614号

GMT+8, 2025-12-21 23:02

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

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