如何编写QQ自动登陆脚本 QQ自动登陆脚本编写（VBS）

如何编写一个简单的QQ自动登陆脚本？

其实很简单滴 嘿嘿

请大家仔细看文章咯

首先请复制以下代码

Dim Program1
Program1= "qq所在的目录"
Set WshShell=createobject("wscript.shell")
Set oExec=WshShell.Exec(Program1)
WScript.Sleep 3000
WshShell.AppActivate "亮亮制作"
WshShell.SendKeys "+{TAB}"
WshShell.SendKeys "你的qq号"
WScript.Sleep 200
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "你的qq密码"
WScript.Sleep 200
WshShell.SendKeys "{ENTER}"

先解释下代码 红色部分就不要解释了吧？ 注意QQ所在路径要完全路径，比如我的QQ路径是 C:Program FilesQQ2008QQ.exe

双引号里面输入自己的QQ号码和密码

紫色部分数字解释下 第一个数值 3000 是指你用脚本启动QQ后锁等待的时间，大家要保证QQ在那时间内可以完全地偶那个（就是出现号码密码输入框）

接下来脚本会自动输入你QQ号码 密码 并且按回车登陆

重点 就是你  WScript.Sleep 3000   这个时间的自己把握  还有使用的时候输入法最好是英文的

密码方面 大小写还有特殊字符密码没有测试  我自己QQ是登陆OK   所以麻烦大家测试后告诉我

-------------------------------------------------------------------------------------实例操作------------------------------------------------------------------------

Dim Program1
Program1= "C:Program FilesQQ2008QQ.exe"
Set WshShell=createobject("wscript.shell")
Set oExec=WshShell.Exec(Program1)
WScript.Sleep 3000
WshShell.AppActivate "亮亮制作"
WshShell.SendKeys "+{TAB}"
WshShell.SendKeys "968127"
WScript.Sleep 200
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "8888888"
WScript.Sleep 200
WshShell.SendKeys "{ENTER}"

1：在桌面 新建文本文档.txt   然后复制以上代码（请修改为自己的）粘帖在文本文档

2：将已经输入代码的 新建文本文档.txt   另存 为 QQ.VBS （如图）

3：双击QQ.VBS    恭喜你 你就可以使用自己的脚本自动登陆QQ了

          如果您觉得本文对您有帮助  请注意收藏到您的QQ书签咯