软件自动安装器的一些问题？(安装千千静听）
软件自动安装器的一些问题？(安装千千静听）软件自动安装器的一些问题？ 试试用窗口信息工具的坐标法。 我也遇到了這種問題，不過是先取消全部再選中要的部分，但繼續安裝時取不起作用。 单独的控件就是获取句柄，然后通过句柄在操作其中的子项就可以了。如果是控件嵌套控件的话，真没辙了。我就是遇到这样一个问题，哎，恼火，好像还没人遇到过似的，没人回答。等待中焦急啊。 呵呵~用AU3吧~ 本帖最后由 registered 于 2009-6-1 12:37 编辑
这个千千静听很不人性化，控件不能用键操作，送个能操纵这个控件的安装代码，就是办法笨了点，在官方版5.3.1上能正常运行
#Include <GuiTreeView.au3>
#Include <File.au3>
Run("ttpsetup_531.exe")
WinWaitActive("千千静听","")
Send("s")
WinWaitActive("千千静听","")
Send("a")
WinWaitActive("千千静听","")
$hTreeView=ControlGetHandle("千千静听","","")
_GUICtrlTreeView_Expand($hTreeView,0,False)
$aCPos=ControlGetPos("千千静听","","")
Opt("MouseCoordMode",2)
_GUICtrlTreeView_ClickItem($hTreeView,_GUICtrlTreeView_FindItem($hTreeView,"在线歌词下载组件"),"left",True)
_ClickItem_CheckBox()
_GUICtrlTreeView_ClickItem($hTreeView,_GUICtrlTreeView_FindItem($hTreeView,"第三方音频组件"),"left",True)
_ClickItem_CheckBox()
_GUICtrlTreeView_ClickItem($hTreeView,_GUICtrlTreeView_FindItem($hTreeView,"千千音乐窗 (Unicode)"),"left",True)
_ClickItem_CheckBox()
_GUICtrlTreeView_ClickItem($hTreeView,_GUICtrlTreeView_FindItem($hTreeView,"TTPlayer控件 (Unicode)"),"left",True)
_ClickItem_CheckBox()
Opt("MouseCoordMode",1)
Send("!n")
WinWaitActive("千千静听","目标文件夹")
ControlSetText("千千静听","","",@ProgramFilesDir & "\TTPlayer")
Send("!n")
WinWaitActive("千千静听","创建快捷方式")
ControlCommand("千千静听","","","Check","")
ControlCommand("千千静听","","","Check","")
ControlCommand("千千静听","","","UnCheck","")
ControlCommand("千千静听","","","Check","")
ControlClick("千千静听","","","left",1)
WinWaitActive("千千静听","完成")
ControlCommand("千千静听","","","UnCheck","")
ControlCommand("千千静听","","","UnCheck","")
ControlCommand("千千静听","","","UnCheck","")
ControlClick("千千静听","","","left",1)
WinWaitClose("千千静听")
FileCopy("TTPlayer.xml",@ProgramFilesDir & "\TTPlayer\")
FileDelete(@DesktopDir & "\千千音乐.url")
_FileWriteToLine(@ProgramFilesDir & "\TTPlayer\TTPlayer.XML",222," DownLoadFolder=""" & @ProgramFilesDir & "\TTPlayer\Lyrics\""",1)
_FileWriteToLine(@ProgramFilesDir & "\TTPlayer\TTPlayer.XML",268," CacheFolder=""" & @ProgramFilesDir & "\TTPlayer\Cache\""",1)
_FileWriteToLine(@ProgramFilesDir & "\TTPlayer\TTPlayer.XML",301," Folder=""" & @ProgramFilesDir & "\TTPlayer\Plugins\""",1)
_FileWriteToLine(@ProgramFilesDir & "\TTPlayer\TTPlayer.XML",313," EQCProfile=""" & @ProgramFilesDir & "\TTPlayer\Profile\1.tteq_cfg""",1)
_FileWriteToLine(@ProgramFilesDir & "\TTPlayer\TTPlayer.XML",314," LRCProfile=""" & @ProgramFilesDir & "\TTPlayer\Profile\1.ttlr_cfg""",1)
_FileWriteToLine(@ProgramFilesDir & "\TTPlayer\TTPlayer.XML",315," PLCProfile=""" & @ProgramFilesDir & "\TTPlayer\Profile\1.ttpl_cfg""",1)
Run(@ProgramFilesDir & "\ttplayer\ttplayer.exe")
WinWaitActive("千千静听","")
Send("{APPSKEY}{DOWN 2}{ENTER}")
WinWaitActive("千千静听 - 选项","")
$hTreeView=ControlGetHandle("千千静听 - 选项","","")
$aCPos=ControlGetPos("千千静听 - 选项","","")
Opt("MouseCoordMode",2)
IF _GUICtrlTreeView_GetImageIndex($hTreeView,_GUICtrlTreeView_FindItem($hTreeView,"所有音频格式"))<>1 Then
_GUICtrlTreeView_ClickItem($hTreeView,_GUICtrlTreeView_FindItem($hTreeView,"所有音频格式"),"left",True)
_ClickItem_CheckBox()
EndIf
Send("{DOWN 13}{RIGHT}")
_GUICtrlTreeView_ClickItem($hTreeView,_GUICtrlTreeView_FindItem($hTreeView,"MP4"),"left",True)
_ClickItem_CheckBox()
Opt("MouseCoordMode",1)
ControlClick("千千静听 - 选项","","","left",1)
ControlClick("千千静听 - 选项","","","left",1)
WinWaitClose("千千静听 - 选项","")
Send("{APPSKEY}x")
ProcessWaitClose ("TTPlayer.exe")
Func _ClickItem_CheckBox()
$aPos=MouseGetPos()
$aP1=-1
For $i= $aPos-$aCPos To 0 Step -2
If $aP1=-1 Then
If _GUICtrlTreeView_HitTest($hTreeView,$i,$aPos-$aCPos)==2 Then
$aP1=$i
EndIf
Else
If _GUICtrlTreeView_HitTest($hTreeView,$i,$aPos-$aCPos)<>2 Then
$aP1=($aP1+$i)/2
ExitLoop
EndIf
EndIf
Next
MouseClick("left",$aP1+$aCPos,$aPos)
EndFunc 楼主，把你的软件发给我好吗》？
页:
[1]