如何获取当前登陆QQ的QQ号码？

passkalilo · 发表于 2009-5-22 22:23:08

8错8错，支持一下

ahkang · 发表于 2010-1-20 01:25:33

这代码怎么用啊？能不能说详细点，QQ282076333
jayjiekou 发表于 2009-3-31 11:59

测试可行，用法如下：

getqqhao()
Func getqqhao()
$var = WinList()
For $i = 1 to $var[0][0]
  If $var[$i][0] <> "" Then
$s = StringInStr ($var[$i][0], "_QQMusic_SmallClient")
;$s = StringRegExp($var[$i][0], "\d{6,12}", 1) ;使用7#建议修改测试失败，方法不对吗？
      if $s <> 0 then
      $ms = StringLeft ( $var[$i][0], $s-1)
      MsgBox(262144,'','您的QQ号是：'&$ms) ;只需在此处加一个对话框回显返回值即可。
Return $ms
      EndIf
  EndIf
Next
EndFunc

zmj2008 · 发表于 2010-3-16 11:50:58

很好不过原理不知道找找什么原理

m765555 · 发表于 2011-3-8 13:30:47

2010版也支持不了

getqqhao()
Func getqqhao()
$var = WinList()
For $i = 1 to $var[0][0]
  If $var[$i][0] <> "" Then
    ;$s = StringInStr ($var[$i][0], "_QQMusic_SmallClient")
    $s = StringRegExp($var[$i][0], "\d{6,12}", 1) ;使用7#建议修改测试失败，方法不对吗？
        if $s <> 0 then 
        $ms = StringLeft ( $var[$i][0], $s-1)
        MsgBox(262144,'','您的QQ号是：'&$ms) ;只需在此处加一个对话框回显返回值即可。
                Return $ms
        EndIf
  EndIf
Next
EndFunc

kxing · 发表于 2011-3-8 14:17:59

有意思。。。。

5735988 · 发表于 2012-3-21 01:45:14

2012 QQ 不行了，能修改一i下吗。

wangxiaolinlin · 发表于 2012-11-26 15:19:30

wangxiaolinlin · 发表于 2012-11-26 15:23:04

不错，可以试试，嘿嘿

wangxiaolinlin · 发表于 2012-11-26 15:23:13

不错，可以试试，嘿嘿

zpmc123 · 发表于 2016-12-17 18:55:09

这个好软件啊

		自动登录	找回密码
密码			加入