【已解决】获取指定窗口控件文本。
本帖最后由 xiaogou5852 于 2011-12-16 13:13 编辑用ControlGetText,能准确的获取到指定的窗口控件文本。
但是,如果同时出现两个一样的窗口获取就有些乱了。
比如: $GetText = ControlGetText("快播下载器","","")
MsgBox(64,"",$GetText)能准确获取到,如图
当有新窗口的时候,获取到的就是新窗口的文本,如图
可能焦点在新窗口上,所以获取到的是新窗口的文本信息。
请问有什么办法能两个窗口上的信息都获取到呀。
弄了一个晚上了。。。 先枚举相关窗口, 后分别获取它们的文本呢? 回复 1# xiaogou5852
$rList = WinList("快播下载器")
For $i = 1 To $rList
$GetText = ControlGetText($rList[$i],"","")
MsgBox(64,"",$GetText)
Next
MsgBox(64,"","已经全部找到") 本帖最后由 xiaogou5852 于 2011-12-16 13:45 编辑
回复 3# Hen5ei
OK.非常感谢呀。
如果是实时读取应该怎样写呀。 咋个做的奥。给能把源码放出来奥 回复 3# Hen5ei #include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <WindowsConstants.au3>
#Include <GuiListView.au3>
Opt("GUIOnEventMode", 1)
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 387, 221, 345, 491)
GUISetOnEvent($GUI_EVENT_CLOSE,"_Exit")
$ListView1 = GUICtrlCreateListView("控件信息", 16, 16, 354, 158)
_GUICtrlListView_SetExtendedListViewStyle($ListView1, BitOR($LVS_SORTASCENDING,$LVS_EX_GRIDLINES, $LVS_EX_FULLROWSELECT, $LVS_EX_SUBITEMIMAGES,$LVS_EX_HEADERDRAGDROP,$LVS_EDITLABELS));添加网格
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 320)
$Button1 = GUICtrlCreateButton("Start", 156, 182, 75, 25)
GUICtrlSetOnEvent($Button1,"Start")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
Sleep(100)
WEnd
Func Start()
While 1
$rList = WinList("快播下载器")
GUICtrlSendMsg($listview1, 4105, 0, 0)
For $i = 1 To $rList
$GetText = ControlGetText($rList[$i],"","")
GUICtrlCreateListViewItem($GetText,$ListView1)
Next
Sleep(1000)
WEnd
EndFunc
Func _Exit()
Exit
EndFunc这样基本能实时获取,但是执行起来效率貌似有些低呀。
还有什么方法呀。 回复 1# xiaogou5852
试试这个代码
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#region ### START Koda GUI section ### Form=
Global $rList = WinList("快播下载器"),$rLabel
$Form1 = GUICreate("实时显示?", 380, 200, 192, 154)
GUICtrlCreateGroup(" 这是第一个实例 ", 10, 10, 360, 70)
$rLabel = GUICtrlCreateLabel("",20,30,340,40)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup(" 这是第二个实例 ", 10, 90, 360, 70)
$rLabel = GUICtrlCreateLabel("",20,110,340,40)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$rStart = GUICtrlCreateButton("捕捉消息", 10, 165, 100, 30)
$rStop = GUICtrlCreateButton("停止捕捉", 140, 165, 100, 30)
$rQuit = GUICtrlCreateButton("退出", 270, 165, 100, 30)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE,$rQuit
Exit
Case $rStart
AdlibRegister("_MyAdlib")
Case $rStop
AdlibUnRegister("_MyAdlib")
EndSwitch
WEnd
Func _MyAdlib()
For $i = 1 To $rList
$GetText = ControlGetText($rList[$i], "", "")
GUICtrlSetData($rLabel[$i],$GetText)
Next
EndFunc ;==>_MyAdlib 回复 6# xiaogou5852
可不可以将你的那个什么 快播下载器,给我。我好测试一下 本帖最后由 绿色风 于 2011-12-16 18:13 编辑
回复 8# Hen5ei
楼主用的是增强版的,有广告。老版本的没有广告。
**** Hidden Message *****
我另开一贴好了
传 送 门 学习围观一下!
页:
[1]