找回密码
 加入
搜索
查看: 2624|回复: 6

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

[复制链接]
发表于 2009-2-7 22:57:11 | 显示全部楼层 |阅读模式
请问各位仁兄,小弟遇到个问题,搜索了一下论坛和帮助,依然没有找到答案,特请教一下,谢谢。

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

谢谢了

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

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?加入

×
发表于 2009-12-9 12:51:06 | 显示全部楼层
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
你试一下
发表于 2009-12-9 12:51:14 | 显示全部楼层
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
你试一下
发表于 2009-12-9 17:38:16 | 显示全部楼层
呵呵 ....................
发表于 2009-12-9 17:38:36 | 显示全部楼层
下东西还真是贵!
发表于 2009-12-9 17:39:06 | 显示全部楼层
多刷点钱!,,,,,,,,,,,

评分

参与人数 1金钱 -10 收起 理由
afan -10 恶意灌水,扣分警告!

查看全部评分

发表于 2009-12-9 17:39:16 | 显示全部楼层
我要钱.....

评分

参与人数 1金钱 -10 收起 理由
afan -10 恶意灌水,扣分警告!

查看全部评分

您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-12-23 10:09 , Processed in 0.105814 second(s), 29 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表