网站地图
【www.91debug.com--热门推荐】
如何编写一个简单的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书签咯