请教如何读取qq在线号码列表，谢谢-『提问交流』-AUTOIT CN

rain 发表于 2009-2-7 22:57:11

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

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

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

谢谢了

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

xz00311 发表于 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 ( "设备列表", "", "");获取指定控件的内部句柄.

;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<>2Then
Exit 0
EndIf
EndFunc
你试一下

xz00311 发表于 2009-12-9 12:51:14

tianrenhao 发表于 2009-12-9 17:38:16

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

tianrenhao 发表于 2009-12-9 17:38:36

下东西还真是贵!

tianrenhao 发表于 2009-12-9 17:39:06

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

tianrenhao 发表于 2009-12-9 17:39:16

我要钱.....

页: [1]

AUTOIT CN's Archiver

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