UC知道vb QQ自动登录密码失败的问题
来源：百度知道 编辑：UC知道 时间：2024/06/03 21:47:36
Private Sub Command1_Click()
Dim strQQ As String '命令提示符
Dim QQpath As String 'QQ路径
QQpath = "D:\Program Files\Tencent\QQ\QQ.exe"
'-------------------------------------------------------------------------------
strQQ = QQpath & " /START QQUIN:380779655 PWDHASH:3b45e6e6853430243c9c27d8073bd7d /STAT:40"
Shell strQQ
End Sub
以上是我的程序，密码已经用md5加密，是不是参数设定不对，能上就是密码出错，我手动 上是没错的，希望高手指点，好的追加分
Dim strQQ As String '命令提示符
Dim QQpath As String 'QQ路径
QQpath = "D:\Program Files\Tencent\QQ\QQ.exe"
'-------------------------------------------------------------------------------
strQQ = QQpath & " /START QQUIN:380779655 PWDHASH:3b45e6e6853430243c9c27d8073bd7d /STAT:40"
Shell strQQ
End Sub
以上是我的程序，密码已经用md5加密，是不是参数设定不对，能上就是密码出错，我手动 上是没错的，希望高手指点，好的追加分
不太清楚,我用的是这个,你可以试一下
Dim qq,del
Set qq=WScript.CreateObject("wscript.shell")
qq.Run """D:\Tencent\QQ\qq.exe""" ' 这里填写QQ路径,此处填写绝对路径 . 三对双引号.请注意.
WScript.Sleep 500
qq.SendKeys "{TAB}"
WScript.Sleep 500
qq.SendKeys "......." ' 这里填写QQ号
qq.SendKeys "{TAB}"
WScript.Sleep 200
qq.SendKeys "......" ' 这里填写QQ密码
WScript.Sleep 200
qq.SendKeys "{ENTER}"