yanjun1368 发表于 2011-2-16 23:20:08

搜狗拼音5.2

2011年2月16日最新版,新做的不太会,但还是愿意分享一下。高手略过。已下是源码,软件自已官网下吧。
Run("搜狗拼音5.2.exe")

WinWaitActive("搜狗拼音输入法 5.2正式版 安装","欢迎使用“搜狗拼音输入法 5.2正式版”")
ControlClick("搜狗拼音输入法 5.2正式版 安装","欢迎使用“搜狗拼音输入法 5.2正式版”","Button2")


WinWaitActive("搜狗拼音输入法 5.2正式版 安装","许可证协议")
ControlClick("搜狗拼音输入法 5.2正式版 安装","许可证协议","Button2")

WinWaitActive("搜狗拼音输入法 5.2正式版 安装","目标文件夹")
Send("d:\Program Files\SogouInput")
ControlClick("搜狗拼音输入法 5.2正式版 安装","目标文件夹","Button2")


If WinExists("搜狗拼音输入法 5.2正式版 安装","选择“开始菜单”文件夹,以便创建程序的快捷方式") Then
ControlClick("搜狗拼音输入法 5.2正式版 安装","选择“开始菜单”文件夹,以便创建程序的快捷方式","Button2")
EndIf       

If WinExists("搜狗拼音输入法 5.2正式版 安装","选择是否安装附加软件搜狗浏览器") Then
ControlClick("搜狗拼音输入法 5.2正式版 安装","选择是否安装附加软件搜狗浏览器","Button4")
ControlClick("搜狗拼音输入法 5.2正式版 安装","选择是否安装附加软件搜狗浏览器","Button2")
EndIf       


WinWaitActive("搜狗拼音输入法 5.2正式版 安装","安装完毕")
ControlClick("搜狗拼音输入法 5.2正式版 安装","安装完毕","Button1")


ProcessWait("iexplore.exe")
ProcessClose("iexplore.exe")

WinWaitActive("搜狗拼音输入法 个性化设置向导","< 上一步(&B)")
ControlClick("搜狗拼音输入法 个性化设置向导","< 上一步(&B)","Button2")

WinWaitActive("搜狗拼音输入法 个性化设置向导","模糊音设置")
ControlCommand("搜狗拼音输入法 个性化设置向导","模糊音设置","ComboBox2","SelectString","9")
ControlClick("搜狗拼音输入法 个性化设置向导","模糊音设置","Button2")

WinWaitActive("搜狗拼音输入法 个性化设置向导","< 上一步(&B)")
ControlClick("搜狗拼音输入法 个性化设置向导","< 上一步(&B)","Button2")

WinWaitActive("搜狗拼音输入法 个性化设置向导","反选")
ControlClick("搜狗拼音输入法 个性化设置向导","反选","Button5")
ControlClick("搜狗拼音输入法 个性化设置向导","反选","Button2")

WinWaitActive("搜狗拼音输入法 个性化设置向导","立即启用")
ControlClick("搜狗拼音输入法 个性化设置向导","立即启用","Button2")

WinWaitActive("搜狗拼音输入法 个性化设置向导","立即登录输入法账户")
ControlClick("搜狗拼音输入法 个性化设置向导","立即登录输入法账户","Button2")

WinWaitActive("搜狗拼音输入法 个性化设置向导","退出向导(&C)")
ControlClick("搜狗拼音输入法 个性化设置向导","退出向导(&C)","Button2")


Exit

学无止境 发表于 2011-4-9 22:47:54

刚才试了一下,安装完成后到设置向导就暂停了,请楼主看一下。

1043101064 发表于 2011-4-10 23:00:35

好长时间没上来了,顶一下

dyd 发表于 2011-4-18 08:38:03

“个性化设置向导”,在不同环境下有点不太一样

dyd 发表于 2011-4-18 08:39:03

我的是这样


FileInstall("sogou_pinyin_52b.exe", @TempDir & "\sogou_pinyin_52b.exe", 1)
Run(@TempDir & "\sogou_pinyin_52b.exe")
WinWait("搜狗拼音输入法 5.2正式版 安装")
If WinExists("搜狗拼音输入法 5.2正式版 安装", "您的系统里已经安装了最新版或相同版本。") Then
        WinActivate("搜狗拼音输入法 5.2正式版 安装", "您的系统里已经安装了最新版或相同版本。")
        ControlClick("搜狗拼音输入法 5.2正式版 安装", "您的系统里已经安装了最新版或相同版本。", "Button1")
EndIf
WinWait("搜狗拼音输入法 5.2正式版 安装", "欢迎使用“搜狗拼音输入法 5.2正式版”")
WinActivate("搜狗拼音输入法 5.2正式版 安装", "欢迎使用“搜狗拼音输入法 5.2正式版”")
ControlClick("搜狗拼音输入法 5.2正式版 安装", "欢迎使用“搜狗拼音输入法 5.2正式版”", "Button2")
WinWait("搜狗拼音输入法 5.2正式版 安装", "许可证协议")
WinActivate("搜狗拼音输入法 5.2正式版 安装", "许可证协议")
ControlClick("搜狗拼音输入法 5.2正式版 安装", "许可证协议", "Button2")
WinWait("搜狗拼音输入法 5.2正式版 安装", "选择安装位置")
WinActivate("搜狗拼音输入法 5.2正式版 安装", "选择安装位置")
ControlClick("搜狗拼音输入法 5.2正式版 安装", "选择安装位置", "Button2")
WinWait("搜狗拼音输入法 5.2正式版 安装", "选择“开始菜单”文件夹")
WinActivate("搜狗拼音输入法 5.2正式版 安装", "选择“开始菜单”文件夹")
ControlClick("搜狗拼音输入法 5.2正式版 安装", "选择“开始菜单”文件夹", "Button2")
WinWait("搜狗拼音输入法 5.2正式版 安装")
If WinExists("搜狗拼音输入法 5.2正式版 安装", "选择安装“附加软件”") Then
        WinActivate("搜狗拼音输入法 5.2正式版 安装", "选择安装“附加软件”")
        ControlClick("搜狗拼音输入法 5.2正式版 安装", "选择安装“附加软件”", "Button4")
        ControlClick("搜狗拼音输入法 5.2正式版 安装", "选择安装“附加软件”", "Button2")
EndIf
WinWait("搜狗拼音输入法 5.2正式版 安装", "安装完毕")
WinActivate("搜狗拼音输入法 5.2正式版 安装", "安装完毕")
ControlClick("搜狗拼音输入法 5.2正式版 安装", "安装完毕", "Button1")
WinWait("搜狗拼音输入法 个性化设置向导")
WinClose("搜狗拼音输入法 个性化设置向导")
If ProcessExists("IEXPLORE.EXE") Then
        ProcessClose("IEXPLORE.EXE")
EndIf

shuidi33 发表于 2012-1-16 09:18:46

我测试一下可以用的

5366286 发表于 2012-7-30 10:58:51

我是个新手,能帮我解释下这段是什么意思吗?
FileInstall("sogou_pinyin_52b.exe", @TempDir & "\sogou_pinyin_52b.exe", 1)
Run(@TempDir & "\sogou_pinyin_52b.exe")
页: [1]
查看完整版本: 搜狗拼音5.2