怎样制作一个VBS脚本让QQ自动登陆呢

1、新建一个文本文档。

2、输入下列代码。

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}"

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

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

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