找回密码
 加入
搜索
查看: 7090|回复: 9

[原创] 搜狗拼音V4.3b自动安装----集成管理员权限,文件校验,企业内部推广必备!

  [复制链接]
发表于 2009-11-16 21:22:04 | 显示全部楼层 |阅读模式
#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 [2]
$sUserName[0] = "administrator"
$sUserName[1] = "admin"

Local $sPassword [4]
$sPassword[0] = "12345678"
$sPassword[1] = "87654321"
$sPassword[2] = "74125896"
$sPassword[3] = "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
发表于 2009-11-18 13:55:15 | 显示全部楼层
集成管理员权限,文件校验,企业内部推广必备!
什么意思
 楼主| 发表于 2009-11-18 14:20:02 | 显示全部楼层
回复 2# bluegua
很显然的,检验文件可以防止文件被替换;
如果是企业中,大部分用户的权限都是user,以管理员权限运行这个可以方便推广部署软件
发表于 2009-11-18 17:55:55 | 显示全部楼层
学习了  呵呵  感谢
发表于 2009-11-26 15:21:08 | 显示全部楼层
集成管理员权限,文件校验,企业内部推广必备!
什么意思
bluegua 发表于 2009-11-18 13:55



    不明白,呵呵,我一直做搜狗拼音的自动安装总是不会~
发表于 2009-12-3 22:06:01 | 显示全部楼层
clark7 发表于 2009-11-16 21:22



      貌似有点麻烦了  不过支持下先
发表于 2009-12-9 12:06:44 | 显示全部楼层
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
发表于 2009-12-28 10:15:06 | 显示全部楼层
搜狗有静默参数/S
发表于 2010-1-8 07:49:37 | 显示全部楼层
五笔的怎么写?
 楼主| 发表于 2010-3-8 17:32:26 | 显示全部楼层
回复 8# wyl0205


    这个“参数”我的倒是没注意过,不过模拟点击可以练习下手。
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-5-6 22:00 , Processed in 0.074996 second(s), 19 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

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