怎样制作一个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。