系统托盘操作之截获QQ昵称留脚印专用 以备以后查阅.
刚测试了下，基本没问题，偶尔一下没读到
好东西，学习学习
好东西。 试下
刚测试了下，基本没问题，偶尔一下没读到
jycel 发表于 2010-6-15 12:28 http://www.autoitx.com/images/common/back.gif
"偶尔一下没读到"那就不爽了，请提供偶尔出现的具体情况（是否同一账号出现的偶尔？是否还未完全登录完成？），以确认是否为bug而便于修正之
呵呵，学习一下。。
高手,,学习了
回复 20# afan
是这样的，当时你修改可以读主账号为邮箱的时候，我测试时都读出来了（全是QQ号显示），后头我把QQ号显示改成邮箱显示的时候没读取这个号，重新登陆了下又没问题了！现在测试多次都没问题
本帖最后由 jycel 于 2010-6-16 22:29 编辑
6-16发现一个新问题
在网吧使用过程中，发现有个别QQ用户无昵称（全是空格），这里不是程序问题，如果新手的话最好在读取时加个判断，免得造成在向服务端发送时产生错误，我当时忘了加判断，一直在提示数组错误,后面才查出是没得昵称的原因
……………………………………………………………………………………………………………………………………
我改了下写到配置文件中去以便程序调用
number为共读取了多少个号 date值自己去分割 别忘了读取内容后将文件删除，免得像网吧用户在读取客户机时，让顾客抓住把柄呵呵#include <Array.au3>
#include <GUIToolbar.au3>
Dim $qqini=@ScriptDir&"\dir.ini"
If FileExists($qqini) Then FileDelete($qqini)
If Not ProcessExists("qq.exe") Then
IniWrite($qqini,"Temp","Number","0")
IniWrite($qqini,"Temp","date","查询失败本机未成功登陆QQ")
Exit
EndIf
QQInfo()
$var=IniReadSectionNames($qqini)
IniWrite($qqini,"Temp","Number",$var)
For $i=1 To $var
$j = IniRead($qqini, "Temp","date","")
If $i = 1 Then IniWrite($qqini, "Temp","date", IniRead($qqini,$var[$i],$var[$i],""))
If $i > 1 Then IniWrite($qqini, "Temp","date", $j & "|" &IniRead($qqini,$var[$i],$var[$i],""))
Next
For $d =$var To 1 Step -1
IniDelete($qqini,$var[$d])
Next
Func QQInfo()
Local $info, $sR, $i, $i_C, $txt
Local $hTb = ControlGetHandle('', '', 'ToolbarWindow321')
For $i = 0 To _GUICtrlToolbar_ButtonCount($hTb) - 1
$i_C = _GUICtrlToolbar_IndexToCommand($hTb, $i)
$txt = _GUICtrlToolbar_GetButtonText($hTb, $i_C)
$sR = StringRegExp($txt, '^QQ\:\h(.+)\((\d{5,}|.+@.+)\)', 3)
If Not @error Then
$info += 1
ReDim $info[$info + 1]
$info[$info] = $sR
$info[$info] = $sR
IniWrite($qqini,$info,$info,$sR&"~!@#$"&$sR)
EndIf
Next
Return $info
EndFunc ;==>QQInfo
回复afan
是这样的，当时你修改可以读主账号为邮箱的时候，我测试时都读出来了（全是QQ号显示），后头我 ...
jycel 发表于 2010-6-15 17:22 http://www.autoitx.com/images/common/back.gif
呵呵，这是正常的，那个是QQ的规则，修改主显帐号后需要在重新登录后才生效~
上传张图片，感觉太爽了
不错,学习了
QQ2009和QQ2010都可以读取到，QQ2008好象读取不到。
收藏 学习``
要是能读 得密码那才叫“爽”
呵呵`