如何用vbs自动登录qq

　　如何用vbs自动登录qq?怎样制作一个VBS脚本让QQ自动登陆呢?下面这个代码，只要换下QQ安装路径，QQ号和密码就能使用了。

　　vbs自动登录qq步骤

　　新建一个文本文档。

　　输入下列代码。

　　Dim Program1

　　Program1= "QQ路径"

　　Set WshShell=createobject("wscript.shell")

　　Set oExec=WshShell.Exec(Program1)

　　WScript.Sleep 3000

　　WshShell.AppActivate "cncn"

　　WshShell.SendKeys "+{TAB}"

　　WshShell.SendKeys "QQ号"

　　WScript.Sleep 200

　　WshShell.SendKeys "{TAB}"

　　WshShell.SendKeys "密码"

　　WScript.Sleep 200

　　WshShell.SendKeys "{ENTER}"

　　然后点击“文件”——“另存为”。

　　选择保存路径及输入文件名“QQ自动登陆.vbs”，保存。

　　然后双击运行该文件，即可自动登录QQ。