易语言怎么用http读文件验证账号密码

xlz836019736

易语言怎么用http读文件验证账号密码

341455770

这个简单，我发一个175的给你看看！
.版本 2

.子程序 _按钮1_被单击
.局部变量 临时文本, 文本型
.局部变量 位置a, 整数型
.局部变量 位置b, 整数型
.局部变量 文本, 文本型

临时文本 ＝ 到文本 (彗星HTTP读文件 (“http://user.175pt.com/login.aspx ... om/WebUserInfo.aspx”, “POST”, , , “__EVENTTARGET=&__EVENTARGUMENT=&__VIEWSTATE=%2FwEPDwUJOTY1MTIxNDA5ZBgBBR5fX0NvbnRyb2xzUmVxdWlyZVBvc3RCYWNrS2V5X18WAQUIYnRuTG9naW4%3D&txtUserName=” ＋ 编辑框1.内容 ＋ “&txtPWD=” ＋ 编辑框2.内容 ＋ “&txtVierfy=” ＋ 编辑框3.内容 ＋ “&btnLogin.x=60&btnLogin.y=10”, ))
' 调试输出 (临时文本)
.如果真 (寻找文本 (临时文本, “欢迎您”, , 假) ≥ 0)
    载入 (窗口1, , 假)
    _启动窗口.销毁 ()

楼主把问题说清楚一点行吗？没听懂，你说登陆网站还是软件验证？

xlz836019736

软件验证输入的对不对呗

aa295593362

临时文本 ＝ 到文本 (彗星HTTP读文件 (“http://user.175pt.com/login.aspx ... om/WebUserInfo.aspx”, “POST”, , , “__EVENTTARGET=&__EVENTARGUMENT=&__VIEWSTATE=%2FwEPDwUJOTY1MTIxNDA5ZBgBBR5fX0NvbnRyb2xzUmVxdWlyZVBvc3RCYWNrS2V5X18WAQUIYnRuTG9naW4%3D&txtUserName=” ＋ 编辑框1.内容 ＋ “&txtPWD=” ＋ 编辑框2.内容 ＋ “&txtVierfy=” ＋ 编辑框3.内容 ＋ “&btnLogin.x=60&btnLogin.y=10”, ))           
这个是怎么来的啊？？

夜深海未眠

.版本 2
.支持库 script

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


.子程序 _按钮2_被单击, , , 登陆
.局部变量 MD5, 文本型
.局部变量 登录数据, 文本型

脚本组件1.执行 (#md5)
MD5 ＝ 脚本组件1.运行 (“md5_3”, 编辑框2.内容)
MD5 ＝ 脚本组件1.运行 (“md5”, MD5 ＋ 到大写 (编辑框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=” ＋ MD5 ＋ “&verifycode=” ＋ 编辑框3.内容 ＋ “&aid=15000101&from_ui=1”, ))
.如果 (寻找文本 (登录数据, “登陆成功”, , 假) ＞ 0)
    信息框 (“     ”, 0, )

    _启动窗口.销毁 ()


.否则
    信息框 (“密码或验证码输入错误”, #警告图标, “错误”)
    图 片框2.图 片 ＝ 彗星HTTP读文件 (“http://ptlogin2.qq.com/getimage”)

wu9930

恩。看动了一点