搜狗拼音V4.3b自动安装----集成管理员权限，文件校验，企业内部推广必备！
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.0.0
Author: yangyatao@sf-express.com
Script Function:
sogou_pinyin_43b install AutoIt script.
#ce ----------------------------------------------------------------------------
; Script Start - Add your code below here
;确保只有一个程序在运行
$g_szVersion = "sogou_pinyin_43b install"
If WinExists($g_szVersion) Then
Exit
EndIf
AutoItWinSetTitle($g_szVersion)
; Fill in the username and password appropriate for your system.
Local $sUserName
$sUserName = "administrator"
$sUserName = "admin"
Local $sPassword
$sPassword = "12345678"
$sPassword = "87654321"
$sPassword = "74125896"
$sPassword = "14123456"
$soft = "sogou_pinyin_43b.exe"
$size = "15714488"
;校验文件大小
If FileGetSize($soft) <> $size Then
msgbox(64,"文件校验错误","大侠不吃这一套！",3)
Exit
EndIf
For $i In $sUserName
For $j In $sPassword
$pid = RunAs($i, @ComputerName, $j, 1, $soft)
If $pid <> 0 Then
;MsgBox(4096, "", "Key: " & @CRLF & "Value: " & $soft)
WinWaitActive("搜狗拼音输入法 4.3正式版 安装","欢迎使用“搜狗拼音输入法 4.3正式版”安装向导")
Send("!n")
WinWaitActive("搜狗拼音输入法 4.3正式版 安装","许可证协议")
Send("!i")
WinWaitActive("搜狗拼音输入法 4.3正式版 安装","选择安装位置")
ControlSetText("搜狗拼音输入法 4.3正式版 安装","选择安装位置", "", "D:\Program Files\SogouInput\" )
Send("!n")
WinWaitActive("搜狗拼音输入法 4.3正式版 安装","选择“开始菜单”文件夹")
Send("!i")
WinWaitActive("搜狗拼音输入法 4.3正式版 安装","搜狗拼音输入法已经安装")
Send("!f")
;第二次安装，则未必可以弹得出来
WinWaitActive("搜狗拼音输入法 个性化设置向导","下一步")
Send("!n")
WinWaitActive("搜狗拼音输入法 个性化设置向导","模糊音设置")
Send("!n")
WinWaitActive("搜狗拼音输入法 个性化设置向导","下一步")
Send("!n")
WinWaitActive("搜狗拼音输入法 个性化设置向导","全选")
;未实现
;ControlClick("搜狗拼音输入法 个性化设置向导","全选", "", , , 11, 77 )
Send("!n")
WinWaitActive("搜狗拼音输入法 个性化设置向导","设为默认")
Send("!n")
WinWaitActive("搜狗拼音输入法 个性化设置向导","立即登录通行证")
Send("!n")
WinWaitActive("搜狗拼音输入法 个性化设置向导","完成")
Send("!f")
EndIf
Next
Next
集成管理员权限，文件校验，企业内部推广必备！
什么意思 回复 2# bluegua
很显然的，检验文件可以防止文件被替换；
如果是企业中，大部分用户的权限都是user，以管理员权限运行这个可以方便推广部署软件 学习了呵呵感谢 集成管理员权限，文件校验，企业内部推广必备！
什么意思
bluegua 发表于 2009-11-18 13:55 http://www.autoitx.com/images/common/back.gif
不明白，呵呵，我一直做搜狗拼音的自动安装总是不会~
clark7 发表于 2009-11-16 21:22 http://www.autoitx.com/images/common/back.gif
貌似有点麻烦了不过支持下先 Run("sogou.exe")
if WinWaitActive("搜狗拼音输入法 4.3正式版 安装") Then
send("!Y")
EndIf
WinWaitActive("搜狗拼音输入法 4.3正式版 安装","欢迎使用“搜狗拼音输入法 4.3正式版”安装向导")
Send("!N")
WinWaitActive("搜狗拼音输入法 4.3正式版 安装","许可证协议")
Send("!I")
WinWaitActive("搜狗拼音输入法 4.3正式版 安装","选择安装位置")
Send("C:\Program Files\SogouInput")
Send("!N")
WinWaitActive("搜狗拼音输入法 4.3正式版 安装","选择“开始菜单”文件夹")
Send("!I")
WinWaitActive("搜狗拼音输入法 4.3正式版 安装","完成")
Send("!F")
Sleep(50)
WinWaitActive("搜狗拼音输入法 个性化设置向导","下一步(&N) >")
ControlClick ("搜狗拼音输入法 个性化设置向导","下一步(&N) >", "Button2")
Sleep(50)
WinWaitActive("搜狗拼音输入法 个性化设置向导","1/5皮肤设置")
ControlClick ("搜狗拼音输入法 个性化设置向导","1/5皮肤设置", "Button2")
Sleep(50)
WinWaitActive("搜狗拼音输入法 个性化设置向导","2/5细胞词库设置")
ControlClick ("搜狗拼音输入法 个性化设置向导","2/5细胞词库设置", "Button2")
Sleep(50)
WinWaitActive("搜狗拼音输入法 个性化设置向导","3/5模糊音设置")
ControlClick ("搜狗拼音输入法 个性化设置向导","3/5模糊音设置", "Button8")
ControlClick ("搜狗拼音输入法 个性化设置向导","3/5模糊音设置", "Button2")
Sleep(50)
WinWaitActive("搜狗拼音输入法 个性化设置向导","4/5个人词库随身行")
ControlClick ("搜狗拼音输入法 个性化设置向导","4/5个人词库随身行", "Button2")
Sleep(50)
WinWaitActive("搜狗拼音输入法 个性化设置向导","5/5输入法管理")
ControlClick ("搜狗拼音输入法 个性化设置向导","5/5输入法管理", "Button2")
WinWaitActive("搜狗拼音输入法 个性化设置向导","完成")
ControlClick ("搜狗拼音输入法 个性化设置向导","完成", "Button2")
Sleep(800)
If ProcessExists("iexplore.exe") Then
ProcessClose("iexplore.exe")
EndIf 搜狗有静默参数/S 五笔的怎么写？ 回复 8# wyl0205
这个“参数”我的倒是没注意过，不过模拟点击可以练习下手。
页:
[1]