Question

易语言批量登陆QQ

我是导入到超级列表框再进行批量登陆的,下面是我写的单个登陆
有请大牛赐教

.版本 2
.支持库 spec
.支持库 iext
.支持库 じ☆ve Hebe

.如果 (单选框1.选中 ＝ 真)
QQ ＝ 编辑框_帐号.内容
.如果真 (编辑框_帐号.内容 ＝ “” 或 编辑框_密码.内容 ＝ “”)
信息框 (“请输入完整后再进行登陆”, #警告图标, “错误信息”)
编辑框2.加入文本 (取得时间 () ＋ “请输入完整信息再进行登陆” ＋ #换行符)
返回 ()
.如果真结束
脚本组件.方法_置语言 (“JScript”)
脚本组件.方法_执行 (#md5)
验证码图片 ＝ 彗星HTTP读文件 (“http://captcha.qq.com/getimage?aid=15000101&uin=” ＋ 编辑框_帐号.内容)
载入 (窗口_验证码, , 真)
验证码 ＝ 验证码文本
密码 ＝ 脚本组件.方法_运行 (“md5_3”, 取文本参数 (编辑框_密码.内容)).取文本 ()
密码 ＝ 脚本组件.方法_运行 (“md5”, 取文本参数 (密码 ＋ 到大写 (验证码))).取文本 ()
返回文本 ＝ 彗星HTTP读文本 (“http://ptlogin2.qq.com/login”, “POST”, , , “u=” ＋ 编辑框_帐号.内容 ＋ “&p=” ＋ 密码 ＋ “&verifycode=” ＋ 验证码 ＋ “&low_login_enable=1&low_login_hour=720&aid=46000101&u1=http%3A%2F%2Ft.qq.com&ptredirect=1&h=1&from_ui=1&dumy=&fp=loginerroralert”, hook)
返回文本 ＝ 彗星URL解码_UTF8 (返回文本)
.如果 (寻找文本 (返回文本, “完成跳转”, , 假) ＞ 0)
返回cookie ＝ 取COOKIE (“qq.com”)
保存Cookies (编辑框_帐号.内容, 返回cookie, )
G_tk ＝ 计算G_tk (hook)
调试输出 (G_tk)
' 传送 ()
超级列表框1.插入表项 (超级列表框1.取表项数 (), 编辑框_帐号.内容, , , , )
超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 1, G_tk)
超级列表框1.现行选中项 ＝ 0
编辑框_帐号.内容 ＝ “”
编辑框_密码.内容 ＝ “”
' 写配置项 (取运行目录 () ＋ “/Name.dll”, “Namekey1”, 编辑框_帐号.内容, RC4.加密 (编辑框QQ密码.内容, “MD51029278686”))
按钮2.禁止 ＝ 假
按钮3.禁止 ＝ 假
程序等待_ (3000)

Answer 1

什么啊，不懂，能详细点吗

Answer 2

易语言论坛中有源码。

追问

我要能找到我就不问了..
我要的不是调用QQ程序来登陆的..

Answer 3

你是大神!