VB输入QQ帐号和密码

运行1.exe后打开QQ，帐号里输入123456，密码里输入abcde，登陆。
我不是要做登陆器，只是要做个方便登陆QQ的工具，直接运行exe后调用QQ，然后在QQ上输入帐号和密码登陆。
shell只是调用QQ，我要的主要是调用QQ后自动在QQ帐号和密码栏输入指定的帐号和密码。
netbartp 你的答案只给shell出QQ，但不能输入帐号密码，是不是shell的时间太快，qq没有出就直接SendKeys了。

我刚写的这个绝对可以用,我已经测试了... SHELL执行的是快,还没等QQ窗口出来就执行了下面的代码了,我又重新改了改,这样发送按键就绝对发不错地方了.
循环检测前台窗口标题,如果是QQ窗口的话 就发送账号和密码

Private Declare Function GetForegroundWindow Lib "user32" () 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 Sub Command1_Click()
Dim a As Long, str As String, qq As String, pid As Long
str = Space(256)
qq = "D:\Tencent\QQ2009\QQ.exe" 'QQ程序的路径
pid = Shell(qq, vbNormalFocus)
If pid <> 0 Then
Do '循环查找前台窗口直到是QQ的窗口就发送账号密码
DoEvents
a = GetForegroundWindow()
GetWindowText a, str, 255
Loop Until Left(str, 2) = "QQ"
SendKeys "123456{Tab}" '输入QQ账号后跟一个Tab切换键
SendKeys "abcde" '输入QQ密码
SendKeys "{Enter}" '按回车键登陆
Else
MsgBox "没有启动QQ"