如何用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。