求大佬改进下这个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做了密码防复制措施导致的，有哪个大佬可以改进下吗

ChenYFan · 发表于 2021-6-19 17:29:00

...模拟发送键盘就算了吧。。。

ApkB · 发表于 2021-6-19 17:39:37

WshShell.SendKeys "密码"
这个对QQ密码输入框好像没用

会翻车吗 · 发表于 2021-6-19 17:41:57

ApkB 发表于 2021-6-19 17:39
WshShell.SendKeys "密码"
这个对QQ密码输入框好像没用

怎么办呢！！！

zxxx · 发表于 2021-6-19 17:45:45

AutoHotKey 不知道行不行

mubazhe · 发表于 2021-6-19 17:53:20

不是可以记住密码吗输入qq号直接回车试试

		自动登录	找回密码
密码			注册