如何编程获取本机在用的QQ号

Question

如题。主要是指QQ2003 版，窗口上没有号码标题。解决后立即给分。

Answer 1

up!
以下是关登陆窗口的，可我就是不能得到上面的QQ号
Private Const WM_CLOSE = &H10Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPrivate Sub Command1_Click()
Dim a
Dim b As String * 256
a = FindWindow("Edit", vbNullString)
cc = SendMessage(a, WM_CLOSE, 0, 0)
End Sub

Answer 2

你根本没有得到正确的QQ登录窗口句柄。可用findwindowex来一层层得到该句柄，然后用SendMessage得到编辑框中的密码。
其实在VB中做是有缺点的，因为在VB中无法创建全局钩子，所以不大可能做出真正的密码窃取器，建议在VC中做动态链接库，在VB中调用。我就是这样做的，很好用