求帮忙把IE的POST改成精易浏览器的

laily

谁会用精易浏览器呀，能帮忙把这IE的POST改成精易浏览器的嘛？

或改成水星浏览器的也行呀

  

线程_置CPU亲和性 ()
线程_初始化COM库 ()
user ＝ “hh3903993”
pass ＝ “lai12345”
循环判断首 ()
url ＝ “http://web.4399.com/user/?_c=login&_a=checkUser&user=” ＋ “hh3903993” ＋ “&jsoncallback=jQuery172099136000425174_” ＋ 时间_取现行时间戳 () ＋ “&_=” ＋ 时间_取现行时间戳 ()
str ＝ 到文本 (网页_访问_对象 (“http://ptlogin.4399.com/ptlogin/verify.do?username=” ＋ “hh3903993” ＋ “&appId=ssjj&t=” ＋ 时间_取现行时间戳 () ＋ “&inputWidth=iptw2&v=1”, , , cookie, cookie1, , , , , , , 3))
str ＝ 编码_utf8到gb2312 (str)
cookie ＝ 网页_Cookie合并更新 (cookie, cookie1)
captchaId ＝ 文本_取出中间文本 (str, “UniLoginChangPIC('”, “')”)  ' 存在验证码图片
判断 (str ≠ “”)
验证码 ＝ “”
如果真 (captchaId ≠ “”)
url ＝ JSON.取通用属性 (“url”)
' 调试输出 (url)
bin ＝ 网页_访问 (“http://ptlogin.4399.com/ptlogin/captcha.do?captchaId=” ＋ captchaId, , , cookie, , , , , , 代理)
线程_进入许可区 (许可区)
验证码 ＝ 验证码识别 (bin)
' 写到文件 (取运行目录 () ＋ “/验证码/” ＋ 验证码 ＋ “.jpg”, bin)
线程_退出许可区 (许可区)

判断 (验证码 ≠ “”)
str ＝ 到文本 (网页_访问_对象 (“http://ptlogin.4399.com/ptlogin/login.do?v=1”, 1, “loginFrom=uframe&postLoginHandler=default&layoutSelfAdapting=true&externalLogin=qq&displayMode=undefined&layout=vertical&appId=ssjj&gameId=news&css=%2F%2Fs1.img4399.com%2Fwebgame%2Fssjj%2Fnews%2Fcss%2Fptlogin.css%3F1e72872&redirectUrl=&sessionId=” ＋ captchaId ＋ “&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=” ＋ user ＋ “&password=” ＋ pass ＋ “&inputCaptcha=” ＋ 验证码, cookie, cookie1, , , , , , ))


str ＝ 到文本 (网页_访问_对象 (“http://ptlogin.4399.com/ptlogin/login.do?v=1”, 1, “loginFrom=uframe&postLoginHandler=default&layoutSelfAdapting=true&externalLogin=qq&displayMode=undefined&layout=vertical&appId=ssjj&gameId=news&css=%2F%2Fs1.img4399.com%2Fwebgame%2Fssjj%2Fnews%2Fcss%2Fptlogin.css%3F1e72872&redirectUrl=&sessionId=&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=” ＋ user ＋ “&password=” ＋ pass, cookie, cookie1, , , , , , ))

str ＝ 编码_utf8到gb2312 (str)
' 调试输出 (str, cookie)
判断 (寻找文本 (cookie, “ck_accname=”, , 假) ＞ 0)
写配置项 (取运行目录 () ＋ “\账号配置.ini”, “账号”, user, 编码_URL编码 (cookie, 真, 真))
提示 ＝ “登录成功”
Cookies ＝ cookie
返回 (真)


提示 ＝ 文本_取出中间文本 (str, “_errorCallback('”, “')”)



提示 ＝ “验证码错误”

循环判断尾 (提示 ＝ “验证码错误” 或 提示 ＝ “登录校验超时”)
线程_取消COM库 ()
返回 (假)

.版本 2<br /> <br /> 线程_置CPU亲和性 ()<br /> 线程_初始化COM库 ()<br /> user ＝ “hh3903993”<br /> pass ＝ “lai12345”<br /> <br /> .循环判断首 ()<br /> <br />     url ＝ “http://web.4399.com/user/?_c=login&_a=checkUser&user=” ＋ “hh3903993” ＋ “&jsoncallback=jQuery172099136000425174_” ＋ 时间_取现行时间戳 () ＋ “&_=” ＋ 时间_取现行时间戳 ()<br />     str ＝ 到文本 (网页_访问_对象 (“http://ptlogin.4399.com/ptlogin/verify.do?username=” ＋ “hh3903993” ＋ “&appId=ssjj&t=” ＋ 时间_取现行时间戳 () ＋ “&inputWidth=iptw2&v=1”, , , cookie, cookie1, , , , , , , 3))<br />     str ＝ 编码_utf8到gb2312 (str)<br />     cookie ＝ 网页_Cookie合并更新 (cookie, cookie1)<br />     captchaId ＝ 文本_取出中间文本 (str, “UniLoginChangPIC('”, “')”)  ' 存在验证码图片<br />     .判断开始 (str ≠ “”)<br />         验证码 ＝ “”<br />         .如果真 (captchaId ≠ “”)<br />             url ＝ JSON.取通用属性 (“url”)<br />             ' 调试输出 (url)<br />             bin ＝ 网页_访问 (“http://ptlogin.4399.com/ptlogin/captcha.do?captchaId=” ＋ captchaId, , , cookie, , , , , , 代理)<br />             线程_进入许可区 (许可区)<br />             验证码 ＝ 验证码识别 (bin)<br />             ' 写到文件 (取运行目录 () ＋ “/验证码/” ＋ 验证码 ＋ “.jpg”, bin)<br />             线程_退出许可区 (许可区)<br />         .如果真结束<br /> <br /> <br />         .判断开始 (验证码 ≠ “”)<br />             str ＝ 到文本 (网页_访问_对象 (“http://ptlogin.4399.com/ptlogin/login.do?v=1”, 1, “loginFrom=uframe&postLoginHandler=default&layoutSelfAdapting=true&externalLogin=qq&displayMode=undefined&layout=vertical&appId=ssjj&gameId=news&css=%2F%2Fs1.img4399.com%2Fwebgame%2Fssjj%2Fnews%2Fcss%2Fptlogin.css%3F1e72872&redirectUrl=&sessionId=” ＋ captchaId ＋ “&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=” ＋ user ＋ “&password=” ＋ pass ＋ “&inputCaptcha=” ＋ 验证码, cookie, cookie1, , , , , , ))<br />         .默认<br /> <br />             str ＝ 到文本 (网页_访问_对象 (“http://ptlogin.4399.com/ptlogin/login.do?v=1”, 1, “loginFrom=uframe&postLoginHandler=default&layoutSelfAdapting=true&externalLogin=qq&displayMode=undefined&layout=vertical&appId=ssjj&gameId=news&css=%2F%2Fs1.img4399.com%2Fwebgame%2Fssjj%2Fnews%2Fcss%2Fptlogin.css%3F1e72872&redirectUrl=&sessionId=&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=” ＋ user ＋ “&password=” ＋ pass, cookie, cookie1, , , , , , ))<br /> <br />         .判断结束<br /> <br /> <br />         str ＝ 编码_utf8到gb2312 (str)<br />         ' 调试输出 (str, cookie)<br />         .判断开始 (寻找文本 (cookie, “ck_accname=”, , 假) ＞ 0)<br />             写配置项 (取运行目录 () ＋ “\账号配置.ini”, “账号”, user, 编码_URL编码 (cookie, 真, 真))<br />             提示 ＝ “登录成功”<br />             Cookies ＝ cookie<br />             返回 (真)<br />         .默认<br /> <br />             提示 ＝ 文本_取出中间文本 (str, “_errorCallback('”, “')”)<br /> <br /> <br /> <br /> <br />         .判断结束<br /> <br />     .默认<br /> <br /> <br /> <br />         提示 ＝ “验证码错误”<br /> <br />     .判断结束<br /> <br /> <br /> .循环判断尾 (提示 ＝ “验证码错误” 或 提示 ＝ “登录校验超时”)<br /> <br /> 线程_取消COM库 ()<br /> 返回 (假)

想学易语言

虽然不会，但还是顶你一下，让高手解答吧。

laily

想学易语言 发表于 2019-9-21 21:30
虽然不会，但还是顶你一下，让高手解答吧。

谢谢谢谢谢谢谢谢谢谢