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

8错8错，支持一下

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

这代码怎么用啊？能不能说详细点，QQ282076333
jayjiekou 发表于 2009-3-31 11:59 http://www.autoitx.com/images/common/back.gif


    测试可行，用法如下：

getqqhao()
Func getqqhao()
$var = WinList()
For $i = 1 to $var
If $var[$i] <> "" Then
    $s = StringInStr ($var[$i], "_QQMusic_SmallClient")
    ;$s = StringRegExp($var[$i], "\d{6,12}", 1) ;使用7#建议修改测试失败，方法不对吗？
      if $s <> 0 then
      $ms = StringLeft ( $var[$i], $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
If $var[$i] <> "" Then
    ;$s = StringInStr ($var[$i], "_QQMusic_SmallClient")
    $s = StringRegExp($var[$i], "\d{6,12}", 1) ;使用7#建议修改测试失败，方法不对吗？
      if $s <> 0 then
      $ms = StringLeft ( $var[$i], $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

{:face (229):}

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

不错，可以试试，嘿嘿

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

不错，可以试试，嘿嘿

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

这个好软件啊
页: 1 [2]
查看完整版本: 如何获取当前登陆QQ的QQ号码？