VB问题,求教!

Question

Private Sub Command1_Click()
Dim a
a = Shell("D:\QQ2006\QQ.exe")
AppActivate a
SendKeys "{Tab}"
SendKeys "123456"
SendKeys "{Tab}"
SendKeys "4879"
SendKeys "{enter}"
End

End Sub
请大家帮我修正,这样子怎么不可以的,麻烦高人指点,在此谢谢了

Answer 1

把所有的Hex()去掉，因为电脑中存储数据都是二进制的，转化为16进制是为了显示，本身传输是不需要转化的，所以Hex函数返回的是字符串就是这个道理。

Answer 2

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Delay(ByVal ParTime As Long)

Dim tim
tim = Timer

While Timer - tim < ParTime

DoEvents

Wend

End Sub

Private Sub Command1_Click()
Dim a
a = Shell("D:\QQ2006\QQ.exe")

Sleep 3000

AppActivate "QQ用户登录"
SendKeys "+{Tab}"
Delay 2
SendKeys "123456"
Delay 1
SendKeys "{Tab}"
Delay 1
SendKeys "{HOME}+{END}"
Delay 1
SendKeys "abc"
Delay 1
SendKeys "{Enter}"
'End
Delay 1
Unload Me

End Sub本回答被提问者采纳

Answer 3

没用的。
没发现QQ有保护吗？

Answer 4

不会．．．．