Question

易语言辨别QQ号码、密码是否正确源码

Answer 1

.版本 2
.支持库 script

.子程序 _登录按钮_被单击
.局部变量 pass, 文本型
.局部变量 临时数据, 文本型
.局部变量 IP, 文本型
.局部变量 temp, 文本型, , "0"

脚本组件1.执行 (#md5)
pass ＝ 脚本组件1.运行 (“md5_3”, 编辑框2.内容)
pass ＝ 脚本组清大件1.运行 (“md5”, pass ＋ 到大写 (编辑框3.内容))
临时数据 ＝ 到文本 (彗星HTTP读文件 (“http://ptlogin2.qq.com/login”, “POST”, , , “u1=http%3A%2F%2Fimgcache.qq.com%2Fqzone%2Ftoolbar%2Floginsucc.html%3Fpara%3DblogComment&fp=loginerroralert&h=1&u=” ＋ 编辑框1.内容 ＋ “&p=” ＋ pass ＋ “&verifycode=” ＋ 编辑框3.内容 ＋ “&aid=15000101&from_ui=1”, ))
.如果 (寻找文本 (临时数据, “登录成功”, , 假) ＞ 0)
信息框 (“登录成功！”, #信息图标, “登录成功”)
图片框_验证.图片 ＝ 彗星HTTP读文件 (“http://ptlogin2.qq.com/getimage”)
编辑框3.内容 ＝ “”
.否则
信息框 (“您输入的密码是误，请重新输入”, #错误图标, “登录失段雹败”)
.如果结束

.子程序 获取验证码
.局部变量 a, 文本型

a ＝ 彗星HTTP读文本 (“ptlogin2.qq.com/check?uin=” ＋ 编辑框1.内容 ＋ “&appid=15000101”)
.如果 (取文本长度 (a) ＝ 25)
编辑框3.内容 ＝ 取文本中间 (a, 19, 4)
_登录按钮_被单击 ()
.否答燃竖则
_启动窗口.高度 ＝ 498
图片框_验证.图片 ＝ 彗星HTTP读文件 (“http://ptlogin2.qq.com/getimage”)
_登录按钮_被单击 ()
.如果结束

.子程序 _图片框_验证_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

图片框_验证.图片 ＝ 彗星HTTP读文件 (“http://ptlogin2.qq.com/getimage”)

.子程序 _登录按钮1_被单击

获取验证码 ()

追问

错误(55): 找不到指定的常量名称“md5”。

追答

彗星模块

追问

你直接把源码发我邮箱吧！987549816 @ qq . com

追答

采纳，谢谢

追问

发我you'xian个就采纳！

Answer 2

这个一般都是验证机器码的
只需要下载一个机器码修改大师
就可以实现无限使用！