易语言模拟输入QQ密码

zhaoye410 · 发表于 2011-4-1 00:07:57

这个是我QQ2009精简版的登陆源码.版本 2

.支持库 spec
.子程序子程序_登陆
.参数 QQ号, 文本型
.参数密码, 文本型
.参数是否记自动登陆, 逻辑型, 可空
.局部变量临时句柄, 整数型, , "0"
.局部变量 QQ2009窗口句柄, 整数型
.局部变量 WShell, 对象
.局部变量 i, 整数型

QQ2009窗口句柄＝窗口_取句柄 (, , “TXGuiFoundation”, “QQ2009 Preview”)
窗口_枚举子窗口 (QQ2009窗口句柄, 临时句柄, )
外部编辑框_置内容 (临时句柄 [3], QQ号)
鼠标_消息 (QQ2009窗口句柄, 53, 243, 1, 1)

延迟 (1000) ’这里也有问题，如果延迟太少，少于900，则连“guozi123456”这样的密码都输入不正确。

WShell.创建 (“wscript.shell”, )
WShell.对象型方法 (“SendKeys”, 密码)

‘上面这句有问题，如果像这样的密码“guozi123456” 可以成功登陆，如果我加入特殊符号如 “WuHenSoft” 或者 “!guozi123456” 则无法登陆，提示密码错误。
无奈，我只好用记书本测试，让记事本置焦点，然后调用这个子程序，发现输出到记事本的密码和我输入的一致，但就是问什么密码不对呢？

WShell.对象型方法 (“SendKeys”, “{tab 3}”, )
延迟 (50)
WShell.对象型方法 (“SendKeys”, “{enter}”, )
延迟 (50)
WShell.对象型方法 (“SendKeys”, “{DOWN 6}”, )
延迟 (50)
WShell.对象型方法 (“SendKeys”, “{ENTER}”, )
WShell.清除 ()

.如果真 (是否记自动登陆＝真)
鼠标_消息 (QQ2009窗口句柄, 21, 298, 1, 1) ' 勾选自动登陆
.如果真结束
延迟 (100)
鼠标_消息 (QQ2009窗口句柄, 138, 368, 1, 1) ' 登陆按钮

求解上面2个问题，或者提供一个能登陆任何符号的源码，易语言调用VBS也可以，给个源码哦。

250403336 · 发表于 2011-4-1 00:07:58

楼主你好, 输入QQ密码的时候可以用模拟按键来实现方法是笨了点但是实用
源码给你!

zhaoye410 · 发表于 2011-4-1 00:09:24

自己先顶一个，谢谢大家的解答。

zhaoye410 · 发表于 2011-4-1 00:22:28

自己继续顶。。。。。。。。。呵呵。

fsjoe · 发表于 2011-4-1 00:31:02

wscript.shell...........这个是哪里来的工具?
这个问题我看你要去问这个文件的作者了...
QQ的密码框是有保护的...

水特罗海姆 · 发表于 2011-4-1 00:46:54

你在属性那选择密码输入就可以了啊！！！

asdqasdq · 发表于 2011-4-1 08:18:02

学习了谢谢分享！

670645920 · 发表于 2011-4-1 16:08:39

用易语言的文本投递可以解决啊

先用鼠标消息点击帐号框

文本投递输入QQ号码

再用鼠标消息点击密码框

文本投递输入QQ密码

OK 搞定

御小猫 · 发表于 2011-10-12 16:50:06

搞不定啊
汗死

牧兽 · 发表于 2011-10-12 17:00:35

这个用按键比较好做吧

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

[已解决] 易语言模拟输入QQ密码

最佳答案

评分