易语言4399带验证码登录源码

易语言4399带验证码登录源码

@雪醉风轻

.版本 2
.支持库 internet
.支持库 iext

.程序集 窗口程序集_启动窗口
.程序集变量 ID, 文本型

.子程序 _按钮1_被单击
.局部变量 str, 文本型, , , 返回数据
.局部变量 error, 文本型, , , 错误文本
.局部变量 X, 文本型

str ＝ 网页_访问S (“http://ptlogin.4399.com/ptlogin/login.do?v=1”, 1, “loginFrom=uframe&postLoginHandler=default&layoutSelfAdapting=true&externalLogin=qq&displayMode=popup&layout=vertical&appId=www_home&gameId=&css=&redirectUrl=&sessionId=” ＋ ID ＋ “&mainDivId=popup_login_div&includeFcmInfo=false&userNameLabel=4399%E7%94%A8%E6%88%B7%E5%90%8D&userNameTip=%E8%AF%B7%E8%BE%93%E5%85%A54399%E7%94%A8%E6%88%B7%E5%90%8D&welcomeTip=%E6%AC%A2%E8%BF%8E%E5%9B%9E%E5%88%B04399&username=” ＋ 编辑框1.内容 ＋ “&password=” ＋ 编辑框2.内容 ＋ “&inputCaptcha=” ＋ 编辑框3.内容, , , , , , , , , , , , , , , , , , )
error ＝ 文本_取出中间文本 (str, “window.parent.unionLoginProps.__errorCallback('”, “');”, , )
.如果 (error ＝ “”)
    .如果 (寻找文本 (str, #验证码, , 假) ≠ -1)
        X ＝ 编码_utf8到gb2312 (网页_访问S (“http://ptlogin.4399.com/ptlogin/verify.do?username=” ＋ 编辑框1.内容 ＋ “&appId=www_home&t=1436538384466&inputWidth=iptw2&v=1”, , , , , , , , , , , , , , , , , , , , ))
        ID ＝ 文本_取出中间文本 (X, #代码_前, #代码_后, , )
        图片框1.图片 ＝ HTTP读文件 (“http://ptlogin.4399.com” ＋ 文本_取出中间文本 (X, #验证码_前, #验证码_后, , ))
        透明标签4.标题 ＝ “请输入验证码”
        编辑框3.内容 ＝ “”
    .否则
        透明标签4.标题 ＝ “登录成功”
        ID ＝ “”
        图片框1.图片 ＝ {  }
        编辑框3.内容 ＝ “”
        ' 载入 (主窗口, , 假)
        ' 销毁 ()
        ' 返回 ()
    .如果结束

.否则
    .如果真 (error ＝ “验证码错误”)
        X ＝ 编码_utf8到gb2312 (网页_访问S (“http://ptlogin.4399.com/ptlogin/verify.do?username=” ＋ 编辑框1.内容 ＋ “&appId=www_home&t=1436538384466&inputWidth=iptw2&v=1”, , , , , , , , , , , , , , , , , , , , ))
        ID ＝ 文本_取出中间文本 (X, #代码_前, #代码_后, , )
        图片框1.图片 ＝ HTTP读文件 (“http://ptlogin.4399.com” ＋ 文本_取出中间文本 (X, #验证码_前, #验证码_后, , ))
        透明标签4.标题 ＝ “请输入验证码”
        编辑框3.内容 ＝ “”
        编辑框3.获取焦点 ()
    .如果真结束
    透明标签4.标题 ＝ error
.如果结束


.子程序 _图片框1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
.局部变量 X, 文本型

X ＝ 编码_utf8到gb2312 (网页_访问S (“http://ptlogin.4399.com/ptlogin/verify.do?username=” ＋ 编辑框1.内容 ＋ “&appId=www_home&t=1436538384466&inputWidth=iptw2&v=1”, , , , , , , , , , , , , , , , , , , , ))
ID ＝ 文本_取出中间文本 (X, #代码_前, #代码_后, , )
图片框1.图片 ＝ HTTP读文件 (“http://ptlogin.4399.com” ＋ 文本_取出中间文本 (X, #验证码_前, #验证码_后, , ))