求vbs程序 实现QQ自动登录
求vbs程序 实现QQ自动登录以前写过一个vbs 自动打开qq.exe 然后再登陆框自动输入账号 密码 然后登陆
但是由于电脑开机的时候会卡 延迟时间不定 所以 有时候点开了vbs qq的登陆框不一定及时出来
所以想弄一个自动监测qq登陆框的vbs 等登陆框出来以后再开始输入账号密码 不知道如何实现
各位高手 有能帮忙的还请帮忙 不胜感激! --------------------编程问答-------------------- 没人帮忙么? --------------------编程问答-------------------- 直接用命令行登录QQ
http://www.mfxk.com/article/QQanquan/4525.html --------------------编程问答--------------------
这个什么意思? --------------------编程问答-------------------- 设置一下时间不就行了 --------------------编程问答-------------------- --------------------编程问答--------------------
这个已经过时好长时间了吧,还敢推荐? --------------------编程问答-------------------- 命令行模式好像在QQ2010失效了 --------------------编程问答-------------------- 2008的还能用 --------------------编程问答-------------------- 非原创
Dim WshShell, QQPath, QQselect
QQPath="D:\Program Files\Tencent\QQ.exe" 'QQ所在路径
Set WshShell=WScript.CreateObject("WScript.Shell")
WScript.Sleep 3000
WshShell.Run QQPath
WScript.Sleep 2000
WshShell.AppActivate "QQ登录1"
WshShell.SendKeys "+{TAB}"
WshShell.SendKeys "123456" 'QQ号码
WScript.Sleep 200
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "123456" 'QQ密码
WScript.Sleep 200
WshShell.SendKeys "{ENTER}"
--------------------编程问答-------------------- Dim Program1
Program1= "qq所在的目录"
Set WshShell=createobject("wscript.shell")
Set oExec=WshShell.Exec(Program1)
WScript.Sleep 3000
WshShell.AppActivate "ㄗs遺莣制作"
WshShell.SendKeys "+{TAB}"
WshShell.SendKeys "你的qq号"
WScript.Sleep 200
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "你的qq密码"
WScript.Sleep 200
WshShell.SendKeys "{ENTER}"
先解释下代码 红色部分就不要解释了吧? 注意QQ所在路径要完全路径,比如我的QQ路径是 D:\QQ\Bin\QQ.exe
双引号里面输入自己的QQ号码和密码
紫色部分数字解释下 第一个数值 3000 是指你用脚本启动QQ后锁等待的时间,大家要保证QQ在那时间内可以完全地偶那个(就是出现号码密码输入框)
接下来脚本会自动输入你QQ号码 密码 并且按回车登陆
重点 就是你 WScript.Sleep 3000 这个时间的自己把握 还有使用的时候输入法最好是英文的
密码方面 大小写还有特殊字符密码没有测试 我自己QQ是登陆OK 所以麻烦大家测试后告诉我
-------------------------------------------------------------------------------------实例操作------------------------------------------------------------------------
Dim Program1
Program1= "D:\QQ\Bin\QQ.exe"
Set WshShell=createobject("wscript.shell")
Set oExec=WshShell.Exec(Program1)
WScript.Sleep 3000
WshShell.AppActivate "ㄗs遺莣制作"
WshShell.SendKeys "+{TAB}"
WshShell.SendKeys "1210380704"
WScript.Sleep 200
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "123456789"
WScript.Sleep 200
WshShell.SendKeys "{ENTER}"
1:在桌面 新建文本文档.txt 然后复制以上代码(请修改为自己的)粘帖在文本文档
2:将已经输入代码的 新建文本文档.txt 另存 为 QQ.VBS (如图)
3:双击QQ.VBS 恭喜你 你就可以使用自己的脚本自动登陆QQ了 --------------------编程问答-------------------- --------------------编程问答-------------------- 好主意,我也去试一试。
补充:VB , 资源