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