减小字体
增大字体- ·上一篇文章：批处理优化WINDOWS XP系统
- ·下一篇文章：VBS教程之FileSystemObject处理文件
- ·百度中搜索更多的关于“用VBS实现QQ自动登录”相关内容
- ·谷歌中搜索更多的关于“用VBS实现QQ自动登录”相关内容
- ******申明******
- 本站文章内容有部分为收录网络中其他网友内容，DOS资源站不保证所有的代码都适合你使用。
- 由于编辑匆忙，有可能造成某些脚本文件出现丢失代码或代码无法运行的情况，请网友根据情况自行修改。
- 如果能将出错部分反馈给我，那就更好了。
用VBS实现QQ自动登录
Dim WshShell, QQPath, QQselect
QQPath="c:\Progra~1\Tencent\QQ\QQ.exe" 'QQ所在路径
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run QQPath
WScript.Sleep 2000
WshShell.AppActivate "QQ登录"
WshShell.SendKeys "+{TAB}"
WshShell.SendKeys "123456789" 'QQ号码
WScript.Sleep 200
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "123456789" 'QQ密码
WScript.Sleep 200
