搜狗拼音自动安装脚本

ygnh

搜狗拼音自动安装脚本
顺便问一个问题：需要加Exit函数吗

脚本：If Not(FileExists("搜狗拼音.exe"))Then
        MsgBox (16,"错误","安装程序-搜狗拼音.exe没找到",5)
        Exit
Else
Run("搜狗拼音.exe")
if WinWaitActive("搜狗拼音输入法 3.5奥运版 安装","您的系统里已经安装了最新版或相同版本, ",2)Then
        Send("!N")
EndIf
WinWaitActive("搜狗拼音输入法 3.5奥运版 安装", "欢迎使用“搜狗拼音输入法 3.5奥运版”安装向导")
Send("!N")
WinWaitActive("搜狗拼音输入法 3.5奥运版 安装", "许可证协议")
Send("!I")
WinWaitActive("搜狗拼音输入法 3.5奥运版 安装", "选择安装位置")
Send("!N")
WinWaitActive("搜狗拼音输入法 3.5奥运版 安装", "选择“开始菜单”文件夹")
Send("!I")
WinWaitActive("迷你快车","搜狗拼音输入法 3.5奥运版的安装过程已结束")
Send("{SPACE}")
Send("!F")
Exit
EndIf

[ 本帖最后由 ygnh 于 2008-9-21 11:55 编辑 ]

番茄

已经有3.6正式版了。

Run("sogou_pinyin_36.exe")

if WinWaitActive("搜狗拼音输入法 3.6正式版 安装") Then  
   send("!y")  
   EndIf 
WinWaitActive("搜狗拼音输入法 3.6正式版 安装","欢迎使用“搜狗拼音输入法 3.6正式版”安装向导")
Send("!N")

WinWaitActive("搜狗拼音输入法 3.6正式版 安装","许可证协议") 
Send("!I") 

WinWaitActive("搜狗拼音输入法 3.6正式版 安装","选择安装位置")
Send("D:\Program Files\SogouInput")
Send("!N")

WinWaitActive("搜狗拼音输入法 3.6正式版 安装","选择“开始菜单”文件夹")
Send("!I") 

WinWaitActive("搜狗拼音输入法 3.6正式版 安装","完成")
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

番茄

好像新装机时宽带连接未装的话，装搜狗拼音输入法会跳出宽带连接安装界面。下次再试试补上。

skyfree

#Region ;**** 参数创建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_icon=SougouPinyin.ico
#AutoIt3Wrapper_Res_Description=FreeSkyCD.Cn
#AutoIt3Wrapper_Res_Fileversion=1.0.0.1
#AutoIt3Wrapper_Res_Fileversion_AutoIncrement=y
#AutoIt3Wrapper_Res_LegalCopyright=Skyfree
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
Local $InstallPath

If $Cmdline[0] <> 0 Then
        $InstallPath = $Cmdline[1]
EndIf

Run(@ScriptDir&"\SougouPinyin.exe")

WinWait("搜狗拼音输入法","欢迎使用")
WinActivate("搜狗拼音输入法","欢迎使用")
Send("!N")
WinWait("搜狗拼音输入法","许可证协议")
WinActivate("搜狗拼音输入法","许可证协议")
Send("!I")
WinWait("搜狗拼音输入法","选择安装位置")
WinActivate("搜狗拼音输入法","选择安装位置")
If $InstallPath <> "" Then
        Send($InstallPath & "" & "SougouPinyin")
EndIf
Send("!N")
WinWait("搜狗拼音输入法","选择“开始菜单”文件夹")
WinActivate("搜狗拼音输入法","选择“开始菜单”文件夹")
Send("!I")
WinWait("搜狗拼音输入法","已成功安装完成")
WinActivate("搜狗拼音输入法","已成功安装完成")
Send("!F")
WinWait("搜狗拼音输入法 个性化设置向导","搜狗拼音输入法开发了很多实用功能")
WinActivate("搜狗拼音输入法 个性化设置向导","搜狗拼音输入法开发了很多实用功能")
Send("!N")
WinWait("搜狗拼音输入法 个性化设置向导","1/5皮肤设置")
WinActivate("搜狗拼音输入法 个性化设置向导","1/5皮肤设置")
Send("!N")
WinWait("搜狗拼音输入法 个性化设置向导","2/5细胞词库设置")
WinActivate("搜狗拼音输入法 个性化设置向导","2/5细胞词库设置")
Send("!N")
WinWait("搜狗拼音输入法 个性化设置向导","3/5模糊音设置")
WinActivate("搜狗拼音输入法 个性化设置向导","3/5模糊音设置")
Send("!N")
WinWait("搜狗拼音输入法 个性化设置向导","4/5个人词库随身行")
WinActivate("搜狗拼音输入法 个性化设置向导","4/5个人词库随身行")
Send("!N")
WinWait("搜狗拼音输入法 个性化设置向导","5/5输入法管理")
WinActivate("搜狗拼音输入法 个性化设置向导","5/5输入法管理")
Send("!N")
WinWait("搜狗拼音输入法 个性化设置向导","配置完成")
WinActivate("搜狗拼音输入法 个性化设置向导","配置完成")
Send("{ENTER}")
$PID = ProcessExists("IEXPLORE.EXE")
If $PID Then ProcessClose($PID)

番茄

楼上skyfree果然不同凡响。
你这脚本应该是配合你做的“[自由天空官方]软件安装管理器2.0”使用的吧。
我有个问题请教你：

If $InstallPaLocal $InstallPath

If $Cmdline[0] <> 0 Then
        $InstallPath = $Cmdline[1]
EndIf
。。。。。。
th <> "" Then
        Send($InstallPath & "\" & "SougouPinyin\")
EndIf
Send("!N")
这个应该是自定义的安装路径吧！如果是 那么安装路径里有中文那该怎么写呢？
如：
SendX($InstallPath & "\" & "搜狗拼音\")这样可以吗？

[ 本帖最后由 番茄 于 2008-9-21 21:45 编辑 ]

cxd

都是高手！呵呵！学习了！呵呵！

lzymbz

关注自定义路径问题

lc_lichuan

学习了，不知
If $InstallPath <> "" Then

        Send($InstallPath & "\" & "SougouPinyin\")

EndIf
如何解释