请教如何读取qq在线号码列表，谢谢

rain

请问各位仁兄，小弟遇到个问题，搜索了一下论坛和帮助，依然没有找到答案，特请教一下，谢谢。

小弟想获取到qq这个在线号码列表里的号码，只想要号码，不想要别的。
我尝试用这个，但获取的是"list1"
$var = ControlGetText("QQ2008 查找/添加好友", "", 245)
MsgBox(0,"",$var)

谢谢了

[ 本帖最后由 rain 于 2009-2-7 23:11 编辑 ]

xz00311

HotKeySet("!a", "ShowMessage")          ;ALT+a 注释符号（；）
HotKeySet("^!z", "ShowMessage")         ;CTRL+ALT+z



#Include <GuiListView.au3>
Local $xiaozhan ,$xiaoxiao, $count ,$aList, $x
ShellExecute("FT-200W.exe", "", "C:\Program Files\FT-200W-zh");
WinWait("设备列表")  ;暂停脚本的执行直至指定窗口存在(出现)为止.
;WinWaitActive( "设备列表");;暂停脚本的执行直至指定窗口被激活(成为活动状态)为止
WinActivate("设备列表","")  ;激活指定的窗口(设置焦点到该窗口,使其成为活动窗口)

Sleep( 8000 )
$xiaozhan = ControlGetHandle ( "设备列表", "", "[ID:1056]")  ;获取指定控件的内部句柄.

;MsgBox(4096, "测试",$xiaozhan)
$xiaoxiao = _GUICtrlListView_GetISearchString($xiaozhan) ;获取控件的增字搜索字符串
$count = _GUICtrlListView_GetItemCount($xiaozhan) ;获取列表视图控件的项目数
$aList = _GUICtrlListView_GetItemText($xiaozhan,0)  ;获取项目或子项目的文本
;MsgBox(4160, "Information", "Item Count: " & _GUICtrlListView_GetItemCount($xiaozhan))

For $x = 0 To $count-1
        $aList = _GUICtrlListView_GetItemText($xiaozhan,$x) ;获取项目或子项目的文本
        if $aList = "FT-200W-220" Then               
                _GUICtrlListView_ClickItem( $xiaozhan, $x ,"left","",3)  ;点击一个项目
                ConsoleWrite( $aList & @CRLF )  ;写入数据到 STDOUT 流.一些文本编辑器可以读取这个流作为其它程序可接受的数据.
        EndIf
Next
;WinClose( "Audio Repeater 1.20")

Func ShowMessage()   ;Func的意思创建自定义函数
    Dim $i=MsgBox(1,"退出脚本","确定退出脚本吗")
    if  $i<>2  Then
    Exit 0
    EndIf
EndFunc
你试一下

xz00311

HotKeySet("!a", "ShowMessage")          ;ALT+a 注释符号（；）
HotKeySet("^!z", "ShowMessage")         ;CTRL+ALT+z



#Include <GuiListView.au3>
Local $xiaozhan ,$xiaoxiao, $count ,$aList, $x
ShellExecute("FT-200W.exe", "", "C:\Program Files\FT-200W-zh");
WinWait("设备列表")  ;暂停脚本的执行直至指定窗口存在(出现)为止.
;WinWaitActive( "设备列表");;暂停脚本的执行直至指定窗口被激活(成为活动状态)为止
WinActivate("设备列表","")  ;激活指定的窗口(设置焦点到该窗口,使其成为活动窗口)

Sleep( 8000 )
$xiaozhan = ControlGetHandle ( "设备列表", "", "[ID:1056]")  ;获取指定控件的内部句柄.

;MsgBox(4096, "测试",$xiaozhan)
$xiaoxiao = _GUICtrlListView_GetISearchString($xiaozhan) ;获取控件的增字搜索字符串
$count = _GUICtrlListView_GetItemCount($xiaozhan) ;获取列表视图控件的项目数
$aList = _GUICtrlListView_GetItemText($xiaozhan,0)  ;获取项目或子项目的文本
;MsgBox(4160, "Information", "Item Count: " & _GUICtrlListView_GetItemCount($xiaozhan))

For $x = 0 To $count-1
        $aList = _GUICtrlListView_GetItemText($xiaozhan,$x) ;获取项目或子项目的文本
        if $aList = "FT-200W-220" Then               
                _GUICtrlListView_ClickItem( $xiaozhan, $x ,"left","",3)  ;点击一个项目
                ConsoleWrite( $aList & @CRLF )  ;写入数据到 STDOUT 流.一些文本编辑器可以读取这个流作为其它程序可接受的数据.
        EndIf
Next
;WinClose( "Audio Repeater 1.20")

Func ShowMessage()   ;Func的意思创建自定义函数
    Dim $i=MsgBox(1,"退出脚本","确定退出脚本吗")
    if  $i<>2  Then
    Exit 0
    EndIf
EndFunc
你试一下

tianrenhao

呵呵 ....................

tianrenhao

下东西还真是贵!

tianrenhao

多刷点钱!,,,,,,,,,,,

tianrenhao

我要钱.....