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

1、新建一个文本文档。

2、输入下列代码。Dim Program1Program1= "QQ路径"Set WshShell=createobject("wscript.shell")Set oExec=WshShell.Exec(Program1)WScript.Sleep 3000WshShell.AppActivate "cncn"WshShell.SendKeys "+{TAB}"WshShell.SendKeys "QQ号"WScript.Sleep 200WshShell.SendKeys "{TAB}"WshShell.SendKeys "密码"WScript.Sleep 200WshShell.SendKeys "{ENTER}"

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

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

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