QQ自动登陆的VBS脚本

2010-7-9未知佚名

【大中小】

QQ自动登陆的VBS脚本

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登录1"
WshShell.SendKeys "+{TAB}"
WshShell.SendKeys "123456789" 'QQ号码
WScript.Sleep 200
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "123456789" 'QQ密码
WScript.Sleep 200
WshShell.SendKeys "{ENTER}"

复制以上代码并保存为“*.VBS”，并运行便可以了。另外因为在命令行下，只支持8位字符长度的文件名，所以像“Program Files”的这种文件名就要改写成“Progra~1”。如果想同时登陆多个QQ,只需再增加下面那样的代码就可以了。

WScript.Sleep 2000
QQPath="D:\Progra~1\Tencent\qq\qq.exe" 'QQ所在路径
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run QQPath
WScript.Sleep 2000
WshShell.AppActivate "QQ登录1"
WshShell.SendKeys "+{TAB}"
WshShell.SendKeys "123456789" 'QQ号码
WScript.Sleep 200
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "123456789" 'QQ密码
WScript.Sleep 200
WshShell.SendKeys "{ENTER}"

本文来源：未知作者：佚名

上一篇文章：停止和开启服务的vbs脚本

下一篇文章： VBS经典脚本命令[1]

腾讯QQ MacOS版发布6.8.0，修复一些已知问题   腾讯官方回应QQ「626群图」事件，深表歉意并收集相关证据开展工作打击黑产   批处理拉起QQ跟指定QQ号码聊天源码，批处理进行QQ聊天代码
macOS版QQ发布6.7.8版本，解决一些已知问题   被盗的那些游戏账号、QQ号码、都去哪了？你绝对想不到的产业链   网吧联盟论坛时隔多年再次开启内容页用户QQ信息展示
教你在win10系统让windows defender自动更新   可用的qq网吧代理网关密码   xp系统qq游戏登录超时的问题分析
Win7系统下怎么样来实现自动定时关机

聚合推荐

2022年网吧恢复营业时间网吧卫生网吧电脑配置开网吧网吧键盘网吧配置网吧GHOST ROS 网吧软件故障解决网众无盘网吧游戏菜单网吧活动网吧优化网吧精品网吧新手

声明

声明：本站所发表的文章、评论及图片仅代表作者本人观点，与本站立场无关。文章是出于传递更多信息之目的。若有来源标注错误或侵犯了您的合法权益，请作者持权属证明与本网联系，我们将及时更正、删除，谢谢。 Email:support@txwb.com，系统开号，技术支持，服务联系微信：_WX_1_本站所有有注明来源为天下网吧或天下网吧论坛的原创作品，各位转载时请注明来源链接！

天下网吧·网吧天下