搜狗拼音输入法 6.5正式版 安装程序变态窗口[已解决]

chishingchan

在本论坛里买了个帖子学习了酷狗的变态窗口自动安装脚本，经实践成功了。想着应用在搜狗拼音输入法身上，谁知出现了更变态的结果！

;        设定界面标题
Local $Title = "搜狗拼音输入法 6.5正式版 安装"
;        设定安装路径(只是例子)
Local $Path = "D:\Path"
;        运行安装程序
Run("sogou_pinyin_65i.exe")
;        获取指定被激活窗口句柄
Local $HWnd = WinWait($Title)
;        MsgBox(0,"获取指定控件的内部句柄",WinGetClassList($HWnd))
;        随便找一个按钮控件+值试试看
Local $Class = ControlGetHandle($HWnd,"","Button2")
;        向按钮控件发送回车键
ControlSend($HWnd,"",$Class,"{Enter}")
;        获取指定窗口句柄
$HWnd = WinWait($Title,"目标文件夹")
;        显示控件文本（注意此行）
MsgBox(0,"",ControlGetText($HWnd,"","Edit1"))
;        设定控件文本（注意此行）
ControlSetText($HWnd,"","Edit1",$Path,1)
;        两秒后自动结束安装（测试用）
Sleep(2000)
ProcessClose("sogou_pinyin_65i.exe")

请高手帮助解决修改安装路径的难题，谢谢！

chishingchan

提供一下官方下载地址方便测试：
http://ime.sogou.com/dl/sogou_pinyin_65i.exe

chishingchan

看的人多，回复的没有！

nangua111111

[quote]WinWait("搜狗拼音输入法 6.5正式版 安装","您需要拥有邀请码才能获得预览资格")
WinActivate("搜狗拼音输入法 6.5正式版 安装")
ControlClick("搜狗拼音输入法 6.5正式版 安装","","")
WinWait("f:\Program Files\SogouInput","")
WinActivate("f:\Program Files\SogouInput")
ControlClick("f:\Program Files\SogouInput","","")
ControlClick("f:\Program Files\SogouInput","","")
WinWait("搜狗拼音输入法 6.5正式版 安装 ","安装程序将安装 搜狗拼音输入法 6.5正式版 在下列文件夹。")
WinActivate("搜狗拼音输入法 6.5正式版 安装 ")
ControlClick("搜狗拼音输入法 6.5正式版 安装 ","","")
WinWait("搜狗拼音输入法 6.5正式版 安装","网络收藏夹、个性化皮肤，打造专属于您的浏览器！")
WinActivate("搜狗拼音输入法 6.5正式版 安装")
ControlClick("搜狗拼音输入法 6.5正式版 安装","","")
ControlClick("搜狗拼音输入法 6.5正式版 安装","","")
WinWait("搜狗拼音输入法 6.5正式版 安装 ","所有新打开的程序都将启用搜狗拼音输入法 6.5正式版。但仍建")
WinActivate("搜狗拼音输入法 6.5正式版 安装 ")
ControlClick("搜狗拼音输入法 6.5正式版 安装 ","","")
ControlClick("搜狗拼音输入法 6.5正式版 安装 ","","")
ControlClick("搜狗拼音输入法 6.5正式版 安装 ","","")
WinWaitClose("搜狗拼音输入法 6.5正式版 安装 ")

用autoins 自动编译，参考一下他的中间部分。

nangua111111

果然很流氓，窗口信息抓不出来

chishingchan

回复 4# nangua111111


    好像没有参考的价值！

nangua111111

窗口信息 抓不出来 有参考又有毛用

chishingchan

将窗口的控件都分析过了，还是没徹！但Edit1的标题栏名称竟然是路径名称，但修改标题栏名称也没效，放弃了，但希望高手关注解决此问题。

;#32770        1=搜狗拼音输入法 6.5正式版 安装 
;Button        1=< 上一步(&P)
;Button        2=安装(&I)
;Button        3=取消(&C)
;Static 1=
;Static 2=
;Static 3=
;Static 4=
;Static 5=
;Static 6=搜狗拼音输入法
;Static 7=搜狗拼音输入法
;Static 8=+
;Static 9=选择安装位置
;Static 10=选择“搜狗拼音输入法 6.5正式版”的安装文件夹。
;Static 11=
;#32770        2=+
;Edit        1=C:\Program Files\SogouInput
;Button        4=浏览(&B)...
;Static 12=可用空间: 12.2GB
;Button 5=
;Static 13=所需空间: 70.3MB
;Static 14=安装程序将安装 搜狗拼音输入法 6.5正式版 在下列文件夹。要安装到不同文件夹，单击 [浏览(B)] 并选择其他的文件夹。 单击 [下一步(N)] 继续。
;Button 6=目标文件夹

qiu491996004

路过看下   这个自动安装很实用啊  学习了

chishingchan

路过看下   这个自动安装很实用啊  学习了
qiu491996004 发表于 2013-2-17 19:57

    这个本来要金币的（因为我是花金币学到的），不过既然是求助那只好免费了！

xz00311

标题能获取到的你试一下控件在坐标我记得论坛上有这工具

星雨朝霞

$sogoupid=Run('sogou_pinyin_65i.exe')
$Hwnd=WinWait('搜狗拼音输入法 6.5正式版 安装','欢迎使用“搜狗拼音输入法 6.5正式版”')
ControlClick($Hwnd,'','Button2')
$Hwnd=WinWait('搜狗拼音输入法 6.5正式版 安装','选择安装位置')
ControlClick($Hwnd,'','Button2')
WinWait('搜狗拼音输入法 6.5正式版 安装','选择安装“附加软件”')
ProcessClose($sogoupid)
;清理临时目录
Local $hSearch = FileFindFirstFile(@TempDir&"\*")
While 1
    Local $sFile = FileFindNextFile($hSearch)
    If @error Then ExitLoop
        If @extended=1 Then
                DirRemove(@TempDir&'\'&$sFile,1)
        Else
                FileDelete(@TempDir&'\'&$sFile)
        EndIf
WEnd

chishingchan

回复 12# 星雨朝霞


你这个根本就不顾路径设置！我自己都编好了！不过用鼠标拖拉然后粘贴上去的路径。

星雨朝霞

回复 13# chishingchan

试一下这个.

$sogoupid=Run('sogou_pinyin_65i.exe')
$Hwnd=WinWait('搜狗拼音输入法 6.5正式版 安装','欢迎使用“搜狗拼音输入法 6.5正式版”')
ControlClick($Hwnd,'','Button2')
$Hwnd=WinWait('搜狗拼音输入法 6.5正式版 安装','选择安装位置')
WinSetTitle('[Class:Edit]','','D:\SogouInput') ;经过查看,地址的编辑框是独立的子窗口,地址文本就是这个子窗口的标题,
ControlSend($Hwnd,'','','{enter}')
WinWait('搜狗拼音输入法 6.5正式版 安装','选择安装“附加软件”')
ProcessClose($sogoupid)

chishingchan

回复 14# 星雨朝霞


    成功！谢谢！