万能群发器售 发表于 2011-4-10 14:00:08

如何加入变量取所有的qq群成员 [已解决]

本帖最后由 万能群发器售 于 2011-4-10 16:04 编辑

$LeiBiaoLeiMingZi="ATL:30A4FE481"
$LieBiaoBiaoTi="群设置 — ACN Kernel"
$fi=ControlListView ($LieBiaoBiaoTi,"",$LeiBiaoLeiMingZi,"GetText",0,1)
$fi1=ControlListView ($LieBiaoBiaoTi,"",$LeiBiaoLeiMingZi,"GetText",0,2)
$fi2=ControlListView ($LieBiaoBiaoTi,"",$LeiBiaoLeiMingZi,"GetText",0,3)

$fi3=ControlListView ($LieBiaoBiaoTi,"",$LeiBiaoLeiMingZi,"GetText",1,1)
$fi4=ControlListView ($LieBiaoBiaoTi,"",$LeiBiaoLeiMingZi,"GetText",1,2)
$fi5=ControlListView ($LieBiaoBiaoTi,"",$LeiBiaoLeiMingZi,"GetText",1,3)

MsgBox(0,"QQ",$fi)
MsgBox(0,"昵称",$fi1)
MsgBox(0,"性别",$fi2)

MsgBox(0,"QQ",$fi3)
MsgBox(0,"昵称",$fi4)
MsgBox(0,"性别",$fi5)

;如上所示，求高人指教如何做变量，直接从第一行到第500行！！！！！！！！！！！！！！！！！！发错地方了....请管理 移动到【问题区...........

已经解决了.............
For $count = 0 To 500
       
$LeiBiaoLeiMingZi="ATL:30A4FE481"
$LieBiaoBiaoTi="群设置 — ACN Kernel"
$fi=ControlListView ($LieBiaoBiaoTi,"",$LeiBiaoLeiMingZi,"GetText",$count,1)
$fi1=ControlListView ($LieBiaoBiaoTi,"",$LeiBiaoLeiMingZi,"GetText",$count,2)
$fi2=ControlListView ($LieBiaoBiaoTi,"",$LeiBiaoLeiMingZi,"GetText",$count,3)

MsgBox(0,"qq群成员获取","    QQ   "&$fi&"    昵称   "&$fi1&"    性别   "&$fi2)

Next
以下是 闪屏的 源码强悍的 源码啊$Whd=WinGetHandle('群设置')
;_MouseClick($Whd,'left',60, 172)
Global $count=0,$NameList='帐号                昵称'
        $CtrlCalssList=WinGetClassList($Whd)
        $CtrlCalss=StringRegExp($CtrlCalssList,'(ATL:.+)',3)
        $CtrlList=$CtrlCalss&'1'
While 1
$number=ControlListView ($Whd,"",$CtrlList,"GetText",$count,1)
If $number='' Then ExitLoop
$nickname=ControlListView ($Whd,"",$CtrlList,"GetText",$count,2)
$NameList=$NameList&@CRLF&$number&'                '&$nickname
$count+=1
WEnd
FileWrite(StringReplace(WinGetTitle($Whd),'群设置 — ','')&'.txt',$NameList)
WinClose($Whd)

kadingxiaodi 发表于 2011-4-10 15:02:57

测试一下QQ，看看好不好用

javarike 发表于 2012-12-19 14:36:57

貌似不行呢。。。。

styore 发表于 2013-2-3 21:13:32

好像真不行
页: [1]
查看完整版本: 如何加入变量取所有的qq群成员 [已解决]