谁能告诉我这些代码怎么用啊，放在哪里运行啊-『提问交流』-AUTOIT CN

jayjiekou 发表于 2009-3-31 14:56:57

谁能告诉我这些代码怎么用啊，放在哪里运行啊

Func getqqhao()
$var = WinList()
For $i = 1 to $var
If $var[$i] <> "" Then
$s = StringInStr ($var[$i], "_QQMusic_SmallClient")
   if $s <> 0 then
   $ms = StringLeft ( $var[$i], $s-1)
   Return $ms
   EndIf
EndIf
Next
EndFunc

lxz 发表于 2009-3-31 18:23:47

$QQ = getqqhao()
msgbox(0,"提示","捕获到当前登陆的QQ号码是:" &@crlf&@crlf&"    "&$QQ)

Func getqqhao()
$var = WinList()
For $i = 1 to $var
If $var[$i] <> "" Then
$s = StringInStr ($var[$i], "_QQMusic_SmallClient")
   if $s <> 0 then
   $ms = StringLeft ( $var[$i], $s-1)
   Return $ms
   EndIf
EndIf
Next
EndFunc

jayjiekou 发表于 2009-4-1 10:33:06

不好使啊，可能是不会用

我把代码粘贴到编辑器里，然后保存为.au3，在打开显示，捕获到当前登陆的QQ号码为：0，我想知道这台机器在过去的时间都有哪些号码登陆过？只知道号码就可以了，密码不必，有没有成功的代码指导一下

[ 本帖最后由 jayjiekou 于 2009-4-1 10:34 编辑 ]

jayjiekou 发表于 2009-4-1 10:36:11

回复 2# lxz 的帖子

没有成功啊，可能是不会弄吧

sensel 发表于 2009-4-1 11:08:15

这段代码只能返回当前打开QQ音乐的QQ号吧？而且只返回第一个找到的。

要获取历史QQ号，可以查找QQ目录下的数字目录(对新版QQ似乎不适用)，或者分析QQ目录下的LoginUinList.dat(二进制文件)。

jayjiekou 发表于 2009-4-1 12:17:19

回复 5# sensel 的帖子

09版的qq有LoginUinList.dat这个文件吗？我没找到啊，除了这个办法，还有没有别的办法能获取本机曾经登陆过的QQ号码（前提是记录都被删除了）

顽固不化 发表于 2009-4-1 13:07:33

“当前登陆”和“登陆过”是两码事。

那么容易找到登陆过的信息，QQ安全性也太差了

secty9530 发表于 2009-4-2 12:56:42

回复 1# jayjiekou 的帖子

这个函数暂时不支持2009版的QQ,新的函数还没有写呢.

页: [1]

AUTOIT CN's Archiver