全球主机交流论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

CeraNetworks网络延迟测速工具IP归属甄别会员请立即修改密码
查看: 588|回复: 5

求大佬改进下这个QQ登录的VBS代码

[复制链接]
发表于 2021-6-19 17:28:04 | 显示全部楼层 |阅读模式
本帖最后由 会翻车吗 于 2021-6-19 17:30 编辑

Dim Program1
Program1= "QQ路径"
Set WshShell=createobject("wscript.shell")
Set oExec=WshShell.Exec(Program1)
WScript.Sleep 3000
WshShell.AppActivate "cncn"
WshShell.SendKeys "+{TAB}"
WshShell.SendKeys "QQ号"
WScript.Sleep 200
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "密码"
WScript.Sleep 200
WshShell.SendKeys "{ENTER}"

这个代码是好用的,但是登录会提示密码错误,可能是QQ做了密码防复制措施导致的,有哪个大佬可以改进下吗
发表于 2021-6-19 17:29:00 | 显示全部楼层
...模拟发送键盘就算了吧。。。
发表于 2021-6-19 17:39:37 | 显示全部楼层
WshShell.SendKeys "密码"
这个对QQ密码输入框好像没用
 楼主| 发表于 2021-6-19 17:41:57 | 显示全部楼层
ApkB 发表于 2021-6-19 17:39
WshShell.SendKeys "密码"
这个对QQ密码输入框好像没用

怎么办呢!!!
发表于 2021-6-19 17:45:45 | 显示全部楼层
AutoHotKey 不知道行不行
发表于 2021-6-19 17:53:20 | 显示全部楼层
不是可以记住密码吗 输入qq号直接回车试试
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|全球主机交流论坛

GMT+8, 2026-5-11 15:53 , Processed in 0.072450 second(s), 9 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 2001-2023 Discuz! Team.

快速回复 返回顶部 返回列表