在VB中，知道QQ的用户名和密码，怎么实现QQ自动登录？

Question

在VB中，知道QQ的用户名和密码，怎么实现QQ自动登录？

Answer 1

不知道，谁知道QQ密码加密的方法，就好了，去查查，好象是MD5加上什么的欢迎到常州大学生网作客
http://www.czdxs.cn
http://bbs.czdxs.cn
http://www.czdxs.cn/bbs

Answer 2

打开QQ，置为当前运行程序，然后用SendKeys。

Answer 3

打开QQ，置为当前运行程序，然后用SendKeys前面两个我都可以做到，SendKeys要怎么做？

Answer 4

private sub command1_click()
dim aaa
aaa=shell("E:\QQ\QQ.exe",1)
AppActivate aaa
’比如你的QQ是45421456
sendkeys "{4}"
sendkeys "{5}"
sendkeys "{4}"
·
·
·
sendkeys "{tab}"'不清楚tab键是不是这样
再像上面一样输入密码
完后
sendkeys "{tab}"
'焦点到登入按钮
sendkeys "{enter}"'也不清楚是不是这样
ok了

Answer 5

private command1_click()
Dim ReturnValue, I
ReturnValue = Shell("Calc.EXE", 1)   ' 运行计算器。
AppActivate ReturnValue    ' 激活计算器。
For I = 1 To 100   ' 设置计数循环。
   SendKeys I & "{+}", True   ' 按下按键给计算器
Next I   ' 将所有 I 值相加。
SendKeys "=", True   ' 取得总合。
SendKeys "%{F4}", True   ' 按 ALT+F4 关闭计算器。
end sub这个是MSDN上的例子

Answer 6

private sub command1_click()
dim aaa
aaa=shell("E:\QQ\QQ.exe",1)
AppActivate aaa
’比如你的QQ是45421456
sendkeys "{4}",true
sendkeys "{5}",true
sendkeys "{4}",true
·
·
·
sendkeys "{tab}",true'不清楚tab键是不是这样
再像上面一样输入密码
完后
sendkeys "{tab}",true
'焦点到登入按钮
sendkeys "{enter}"  true'也不清楚是不是这样
end sub
试试看哦

Answer 7

首先打开qq,登录.一键切换到TM.然后再一键切换到qq 
打开WinHex,打开内存工具.打开qq的内存.搜索"PWDHASH". 这里应该看到qq登录的参数了吧. 
把它们都复制下来.加到你的qq的快捷方式中就可以实现自动登录了. 这样就不会说在新版qq中自动登录后不能再开第二号了. QQ命令行： 
QQ.exe /START QQUIN:QQ号 PWDHASH:加密的密码 /STAT:40 
QQUIN:QQ号 
PWDHASH:加密的密码 
/STAT:40 (40 是隐身登陆 41 是正常登陆直接上线的那种)这是资料,你只要用VB建出这个快捷方式就行了

Answer 8

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPrivate Sub Timer1_Timer()
    Dim a As String
    Dim hWnd As Long
    Dim myQQ As String
    Dim myQQPas As String
    a = "QQ用户登入"  'QQ登入窗体标题
    myQQ = "12345678"
    myQQPas = "123456"
    hWnd = FindWindow(vbNullString, a)
    If hWnd <> 0 Then
        If inputQQORPasswordNO(myQQ) Then
            SendKeys "{Tab}", True
        End If
        If inputQQORPasswordNO(myQQPas) Then
            SendKeys "{Tab}", True
            SendKeys "{Enter}", True
        End If
    End If
End Sub
Private Function inputQQORPasswordNO(ByVal Qqpas As String) As Boolean
    inputQQORPasswordNO = False
    Dim n As Integer
    n = Len(Qqpas)
    Dim ch As String
    Dim j As Integer
    For j = 1 To n
        ch = Mid(Qqpas, j, 1)
        SendKeys ch, True
    Next
    inputQQORPasswordNO = True
End Function
用这个试试？