找回密码
 加入
搜索
AUTOIT CN»论坛 › AU3交流 › 『 提问交流 』 › ［求助］请大虾们帮我写个搜狗拼音最新版的脚本！ ...
返回列表 发新帖
查看: 2921|回复: 7

［求助］请大虾们帮我写个搜狗拼音最新版的脚本！

[复制链接]
lonely040340
发表于 2009-7-9 14:50:35 | 显示全部楼层 |阅读模式
本帖最后由 lonely040340 于 2009-7-9 14:53 编辑

我自己写了个搜狗拼音最新版的脚本,但在个性向导的时候进行不了``
脚本如下:

$variable0="搜狗拼音输入法 4.2正式版 安装"
$variable1="欢迎使用“搜狗拼音输入法 4.2正式版”安装向导"
$variable2="许可证协议"
$variable3="选择安装位置"
$variable4="选择“开始菜单”文件夹"
$variable5="完成"
$variable6="1/6搜狗功能推荐"
$variable7="2/6英文输入法"
$variable8="3/6输入法管理"
$variable9="4/6皮肤设置"
$variable10="5/6细胞词库设置"
$variable11="6/6个人词库随身行"
$variable12="配置完成"

Run( "sogou_pinyin_42g.exe")

TrayTip( "正在安装","sogou_pinyin_42g.exe,请稍后......",10,1)

Sleep(1000)

if WinWaitActive("搜狗拼音输入法 4.2正式版 安装") Then
       
   send("!y")  
EndIf

WinWaitActive($variable0,$variable1) ;--------激活目标窗口--------

send("!n") ;--------发送键盘命令--------

WinWaitActive($variable0,$variable2) ;--------激活目标窗口--------

send("!i") ;--------发送键盘命令--------

Sleep(50)

WinWaitActive($variable0,$variable3) ;--------激活目标窗口--------

Send("D:\Program Files\SogouInput") ;--------发送键盘命令--------

Sleep(50)

send("!n") ;--------发送键盘命令--------

WinWaitActive($variable0,$variable4) ;--------激活目标窗口--------

send("{TAB}{TAB}{SPACE}") ;--------发送键盘命令--------

Sleep(50)

send("!i") ;--------发送键盘命令--------

WinWaitActive($variable0,$variable5) ;--------激活目标窗口--------

Send("{SPACE}") ;--------发送键盘命令--------

send("{enter}") ;--------发送键盘命令--------

Sleep(50)

WinWaitActive("搜狗拼音输入法个性化设置向导",$variable6) ;--------激活目标窗口--------

Controlclick("搜狗拼音输入法 个性化设置向导", "","Button2" ) ;--------点击目标按钮--------

Sleep(50)

WinWaitActive("搜狗拼音输入法个性化设置向导",$variable7) ;--------激活目标窗口--------

Controlclick("搜狗拼音输入法 个性化设置向导", "","Button2" ) ;--------点击目标按钮--------

Sleep(50)

WinWaitActive("搜狗拼音输入法个性化设置向导",$variable8) ;--------激活目标窗口--------

MouseClick("left",538,571, 1,0) ;--------标准鼠标位置单击--------

controlclick("搜狗拼音输入法 个性化设置向导", "","Button2" ) ;--------点击目标按钮--------

Sleep(50)

WinWaitActive("搜狗拼音输入法个性化设置向导",$variable9) ;--------激活目标窗口--------

Send("{TAB}{TAB}{DOWN}{DOWN}{DOWN}{DOWN}") ;--------发送键盘命令--------

Controlclick("搜狗拼音输入法 个性化设置向导", "","Button2" ) ;--------点击目标按钮--------

Sleep(50)

WinWaitActive("搜狗拼音输入法个性化设置向导",$variable10) ;--------激活目标窗口--------

Controlclick("搜狗拼音输入法 个性化设置向导", "","Button2" ) ;--------点击目标按钮--------

Sleep(50)

WinWaitActive("搜狗拼音输入法个性化设置向导",$variable11) ;--------激活目标窗口--------

controlclick("搜狗拼音输入法 个性化设置向导", "","Button2" ) ;--------点击目标按钮--------

Sleep(50)

WinWaitActive("搜狗拼音输入法个性化设置向导",$variable12) ;--------激活目标窗口--------

ControlClick ("搜狗拼音输入法 个性化设置向导", "", "Button2") ;--------点击目标按钮--------

Sleep(800)

If ProcessExists("iexplore.exe") Then
       
    ProcessClose("iexplore.exe")
       
EndIf



但这样写的话个性向导就进行不了``请大虾们赐教!
还有就是怎么才能在安装完后自动关闭弹出的网页!~
大虾, 脚本, 拼音, 求助, 搜狗

相关帖子
回复

举报

Au3代码高亮发贴标签： [AU3] 你的代码 [/AU3]                   支持论坛的发展，请添加此》》网址导航《《为您的主页          
水木子
发表于 2009-7-9 16:42:01 | 显示全部楼层
建议不要使用“Sleep”
毕竟每台电脑的运行速度不同
回复

举报

水木子
发表于 2009-7-10 11:24:38 | 显示全部楼层
试试我这个吧！
#NoTrayIcon

$variable0="搜狗拼音输入法 4.2正式版 安装"
;$variable1="欢迎使用“搜狗拼音输入法 4.2正式版”安装向导"
$variable2="搜狗拼音输入法 个性化设置向导"
;$variable3="搜狗拼音输入法 4.2正式版"


Run( "sogou_pinyin_42g.exe")

Sleep(1000);这里还没有找到好的方法解决

$er=WinExists ($variable0,"")
If $er=1 Then
        WinWait ($variable0,"")
        Send ("!y")
        EndIf

WinWaitActive($variable0,"欢迎使用“搜狗拼音输入法 4.2正式版”安装向导")
Send("!n")
WinWaitActive($variable0,"许可证协议")
Send("!i")
WinWaitActive($variable0,"选择安装位置")
Send("!n")
WinWaitActive($variable0,"选择“开始菜单”文件夹")
Send("!i");点击安装

WinWait($variable0,'欢迎使用"搜狗拼音输入法 4.2正式版"安装向导')
WinActivate($variable0,'欢迎使用"搜狗拼音输入法 4.2正式版"安装向导')
ControlClick($variable0,"完成(&F)","Button2");点击安装

WinWait($variable2,"")
WinActivate($variable2,"")
WinWaitActive($variable2,"")
Send("!n")
WinWaitActive($variable2,"")
Send("!n")
WinWaitActive($variable2,"")
Send("!n")
WinWaitActive($variable2,"")
Send("!n")
WinWaitActive($variable2,"")
Send("!n")
WinWaitActive($variable2,"")
Send("!n")
WinWaitActive($variable2,"")
ControlClick($variable2,"完成","Button2")
WinClose("搜狗输入法——特性 - Microsoft Internet Explorer","")
Exit
回复

举报

asssd
发表于 2009-7-27 03:25:38 | 显示全部楼层
正在找。。。。。。。。。。。
回复

举报

mn123456
发表于 2009-7-27 10:55:22 | 显示全部楼层
dddddddddddddddddddddddddddddddddddddddddd
回复

举报

tnt844
发表于 2009-7-30 00:37:33 | 显示全部楼层
用了蛮多的SLEEP，楼主不喜欢自己改吧，最后的那几个杀进程的，，，也只是我自己用到，你估计只用杀IE的进程就可以了。
Run( "sogou_pinyin_42f.exe")
Sleep(1300)
if WinActive("搜狗拼音输入法 4.2正式版 安装","您的系统里已经安装了最新版或相同版本。") Then
        Send("!y")
EndIf
WinWait("搜狗拼音输入法 4.2正式版 安装", "欢迎使用“搜狗拼音输入法 4.2正式版”安装向导")
WinWaitActive("搜狗拼音输入法 4.2正式版 安装", "欢迎使用“搜狗拼音输入法 4.2正式版”安装向导") ;--------激活目标窗口--------
send("!n") ;--------发送键盘命令--------
WinWait("搜狗拼音输入法 4.2正式版 安装", "许可证协议")
WinWaitActive("搜狗拼音输入法 4.2正式版 安装", "许可证协议") ;--------激活目标窗口--------
send("!i") ;--------发送键盘命令--------
WinWait("搜狗拼音输入法 4.2正式版 安装", "选择安装位置")
WinWaitActive("搜狗拼音输入法 4.2正式版 安装", "选择安装位置") 
send("!n") ;--------发送键盘命令--------
WinWait("搜狗拼音输入法 4.2正式版 安装", "选择“开始菜单”文件夹")
WinWaitActive("搜狗拼音输入法 4.2正式版 安装", "选择“开始菜单”文件夹") 
Send("{TAB}")
Sleep(100)
Send("{TAB}")
Sleep(100)
send("{SPACE}") ;--------发送键盘命令--------
Sleep(100)
send("!i") ;--------发送键盘命令--------
WinWait("搜狗拼音输入法 4.2正式版 安装", "温馨提示：")
WinWaitActive("搜狗拼音输入法 4.2正式版 安装", "温馨提示：") 
Sleep(100)
send("!f") ;--------发送键盘命令--------
AdlibEnable("KillProcess","300")
 Func KillProcess() 
If ProcessExists("360se.exe") Then
ProcessClose("360se.exe")
EndIf 
If ProcessExists("iexplore.exe") Then
ProcessClose("iexplore.exe")
EndIf 
If ProcessExists("theworld.exe") Then
ProcessClose("theworld.exe")
EndIf 
EndFunc;--------猎杀进程--------
Sleep(800)
WinWait("搜狗拼音输入法 个性化设置向导", "搜狗功能推荐")
Sleep(200)
controlclick("搜狗拼音输入法 个性化设置向导", "搜狗功能推荐","Button2")
WinWait("搜狗拼音输入法 个性化设置向导", "英文输入法")
Sleep(200)
controlclick("搜狗拼音输入法 个性化设置向导", "英文输入法","Button2")
WinWait("搜狗拼音输入法 个性化设置向导", "输入法管理")
Sleep(200)
controlclick("搜狗拼音输入法 个性化设置向导", "输入法管理","Button2")
Sleep(600)
if WinWait("搜狗拼音输入法 个性化设置向导", "皮肤设置") Then
        Sleep(200)
    controlclick("搜狗拼音输入法 个性化设置向导", "皮肤设置","Button2")
        EndIf
WinWait("搜狗拼音输入法 个性化设置向导", "细胞词库设置")
Sleep(200)
controlclick("搜狗拼音输入法 个性化设置向导", "细胞词库设置","Button2")
WinWait("搜狗拼音输入法 个性化设置向导", "个人词库随身行")
Sleep(200)
controlclick("搜狗拼音输入法 个性化设置向导", "个人词库随身行","Button2")
WinWait("搜狗拼音输入法 个性化设置向导", "配置完成！")
Sleep(200)
controlclick("搜狗拼音输入法 个性化设置向导", "配置完成！","Button2")
Sleep(500)
Exit
回复

举报

hcy168
发表于 2009-7-30 12:16:23 | 显示全部楼层
不错啊，支持下楼主吧！
回复

举报

netsdy
发表于 2009-8-9 08:58:48 | 显示全部楼层 
TrayTip("正在安装SOGOU拼音","请稍等....",5,1)
$hd="搜狗拼音输入法 4.2正式版 安装"
$hy='欢迎使用“搜狗拼音输入法 4.2正式版”安装向导'
$xy="许可证协议"
$wz="选择安装位置"
$kscd='选择“开始菜单”文件夹'
$hy1='欢迎使用"搜狗拼音输入法 4.2正式版"安装向导'
$gx="搜狗拼音输入法 个性化设置向导"
$tj="1/6搜狗功能推荐"
$tj1="2/6英文输入法"
$tj2="3/6输入法管理"
$tj3="4/6皮肤设置"
$tj4="5/6细胞词库设置"
$tj5="6/6个人词库随身行"


Run("soft\sogou_pinyin_42.exe")
WinWaitActive($hd,$hy)
send("!n")
WinWaitActive($hd,$xy)
send("!i")
ControlSetText($hd,$wz,"edit1","C:\Program Files\SogouInput")
send("!n")
WinWaitActive($hd,$kscd)
send("!i")
WinWaitActive($hd,$hy1)
send("!f")
Sleep(3000)
If ProcessExists("iexplore.exe") Then
        ProcessClose("iexplore.exe")
EndIf
WinWaitActive($gx,$tj)
send("!n")
WinWaitActive($gx,$tj1)
send("!n")
WinWaitActive($gx,$tj2)
send("!n")
WinWaitActive($gx,$tj3)
send("!n")
WinWaitActive($gx,$tj4)
send("!n")
WinWaitActive($gx,$tj5)
send("!n")
WinWaitActive($gx)
send("{enter}")
目前尚未解决输入法设置的问题.
回复

举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 加入

本版积分规则

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

GMT+8, 2024-9-22 23:34 , Processed in 0.072822 second(s), 21 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

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