学习post第一天，分享学习 - 精易论坛

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备注
_按钮1_被单击

变量名	类型	静态	数组	备注
data	文本型			提交数据
str	文本型			返回信息

data ＝ “loginFrame=uframe&sessionId=” ＋ sessionID ＋ “&postLoginHandler=default&layouSelfAdaptin=true&redirectUrl=&displayMode=popup&css=&layou=vertical&appId=www_home&gameId=&externalLogin=qq&mainDivId=popup_login_div&autoLogin=false&includeFcmInfo=false&qrLogin=true&username=” ＋用户名.内容＋ “&password=” ＋密码.内容＋ “&inputCaptcha=” ＋验证码输入框.内容 ' post数据
str ＝到文本 (网页_访问S ( #url, 1, data, , cookies)) ' 执行post返回数据
' 判断是否需要验证码

如果 (寻找文本 (str, #验证码判断, , 假) ≠ -1)

信息框 (“登录过于频繁，请输入验证码！”, 0, , )

标签3.可视＝真

图片框1.可视＝真

验证码输入框.可视＝真

验证码_url ＝网页_访问S (“http://ptlogin.4399.com/ptlogin/verify.do?username=” ＋用户名.内容＋ “&appId=www_home” ＋ “&t=20200811&inputWidth=iptw2”, , , , ) ' 获取验证码地址

图片框1.图片＝ HTTP读文件 (“http://ptlogin.4399.com” ＋文本_取出中间文本 (验证码_url, #图片截取前, #图片截取后, , )) ' 截取验证码图片

sessionID ＝文本_取出中间文本 (验证码_url, #ID截取前, #ID截取后, ) ' 截取验证码对应ID

sessionID ＝ “”

标签3.可视＝假

图片框1.可视＝假

图片框1.图片＝ { }

验证码输入框.可视＝假

如果 (寻找文本 (str, #验证码错误, 1, 假) ≠ -1)

标签4.标题＝ “验证码错误！”

如果真 (寻找文本 (str, “parent.crossDomainSig”, 1, 假) ≠ -1)

标签4.标题＝ “登陆成功”

网页_置Cookie1 (“https://u.4399.com/profile/”, cookies, )

' 浏览器.地址＝ “https://u.4399.com/profile/”

如果 (状态标记＝ 1)

载入 (浏览器窗口, , 假)

状态标记＝ 0

浏览器窗口.超文本.地址＝ “https://u.4399.com/profile/”

_启动窗口.激活 ()

如果真 (寻找文本 (str, “密码错误”, 1, 假) ≠ -1)

标签4.标题＝ “密码错误”

如果真 (寻找文本 (str, “用户不存在”, 1, 假) ≠ -1)

标签4.标题＝ “用户不存在”

子程序名	返回值类型	公开	备注
__启动窗口_创建完毕

状态标记＝ 1

子程序名	返回值类型	公开	备注
_图片框1_鼠标左键被按下	逻辑型
参数名	类型	参考	可空	数组	备注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

验证码_url ＝网页_访问S (“http://ptlogin.4399.com/ptlogin/verify.do?username=” ＋用户名.内容＋ “&appId=www_home” ＋ “&t=20200811&inputWidth=iptw2”, , , , )  ' 获取验证码地址
图片框1.图片＝ HTTP读文件 (“http://ptlogin.4399.com” ＋文本_取出中间文本 (验证码_url, #图片截取前, #图片截取后, , ))  ' 截取验证码图片
sessionID ＝文本_取出中间文本 (验证码_url, #ID截取前, #ID截取后, )  ' 截取验证码对应ID

i支持库列表	支持库注释
internet	互联网支持库
HtmlView	超文本浏览框支持库

.版本 2<br />
.支持库 internet<br />
.支持库 HtmlView<br />
<br />
.程序集 窗口程序集_启动窗口<br />
<br />
.子程序 _按钮1_被单击<br />
.局部变量 data, 文本型, , , 提交数据<br />
.局部变量 str, 文本型, , , 返回信息<br />
<br />
<br />
data ＝ “loginFrame=uframe&sessionId=” ＋ sessionID ＋ “&postLoginHandler=default&layouSelfAdaptin=true&redirectUrl=&displayMode=popup&css=&layou=vertical&appId=www_home&gameId=&externalLogin=qq&mainDivId=popup_login_div&autoLogin=false&includeFcmInfo=false&qrLogin=true&username=” ＋ 用户名.内容 ＋ “&password=” ＋ 密码.内容 ＋ “&inputCaptcha=” ＋ 验证码输入框.内容  ' post数据<br />
str ＝ 到文本 (网页_访问S (#url, 1, data, , cookies))  ' 执行post返回数据<br />
<br />
' 判断是否需要验证码<br />
.如果 (寻找文本 (str, #验证码判断, , 假) ≠ -1)<br />
    信息框 (“登录过于频繁，请输入验证码！”, 0, , )<br />
    标签3.可视 ＝ 真<br />
    图片框1.可视 ＝ 真<br />
    验证码输入框.可视 ＝ 真<br />
    验证码_url ＝ 网页_访问S (“http://ptlogin.4399.com/ptlogin/verify.do?username=” ＋ 用户名.内容 ＋ “&appId=www_home” ＋ “&t=20200811&inputWidth=iptw2”, , , , )  ' 获取验证码地址<br />
    图片框1.图片 ＝ HTTP读文件 (“http://ptlogin.4399.com” ＋ 文本_取出中间文本 (验证码_url, #图片截取前, #图片截取后, , ))  ' 截取验证码图片<br />
    sessionID ＝ 文本_取出中间文本 (验证码_url, #ID截取前, #ID截取后, )  ' 截取验证码对应ID<br />
<br />
.否则<br />
    sessionID ＝ “”<br />
    标签3.可视 ＝ 假<br />
    图片框1.可视 ＝ 假<br />
    图片框1.图片 ＝ {  }<br />
    验证码输入框.可视 ＝ 假<br />
.如果结束<br />
<br />
.如果 (寻找文本 (str, #验证码错误, 1, 假) ≠ -1)<br />
    标签4.标题 ＝ “验证码错误！”<br />
<br />
.否则<br />
    .如果真 (寻找文本 (str, “parent.crossDomainSig”, 1, 假) ≠ -1)<br />
        标签4.标题 ＝ “登陆成功”<br />
        网页_置Cookie1 (“https://u.4399.com/profile/”, cookies, )<br />
        ' 浏览器.地址 ＝ “https://u.4399.com/profile/”<br />
        .如果 (状态标记 ＝ 1)<br />
            载入 (浏览器窗口, , 假)<br />
            状态标记 ＝ 0<br />
        .否则<br />
            浏览器窗口.超文本.地址 ＝ “https://u.4399.com/profile/”<br />
        .如果结束<br />
<br />
        _启动窗口.激活 ()<br />
    .如果真结束<br />
<br />
    .如果真 (寻找文本 (str, “密码错误”, 1, 假) ≠ -1)<br />
        标签4.标题 ＝ “密码错误”<br />
    .如果真结束<br />
<br />
    .如果真 (寻找文本 (str, “用户不存在”, 1, 假) ≠ -1)<br />
        标签4.标题 ＝ “用户不存在”<br />
    .如果真结束<br />
<br />
.如果结束<br />
<br />
<br />
.子程序 __启动窗口_创建完毕<br />
<br />
状态标记 ＝ 1<br />
<br />
<br />
.子程序 _图片框1_鼠标左键被按下, 逻辑型<br />
.参数 横向位置, 整数型<br />
.参数 纵向位置, 整数型<br />
.参数 功能键状态, 整数型<br />
<br />
验证码_url ＝ 网页_访问S (“http://ptlogin.4399.com/ptlogin/verify.do?username=” ＋ 用户名.内容 ＋ “&appId=www_home” ＋ “&t=20200811&inputWidth=iptw2”, , , , )  ' 获取验证码地址<br />
图片框1.图片 ＝ HTTP读文件 (“http://ptlogin.4399.com” ＋ 文本_取出中间文本 (验证码_url, #图片截取前, #图片截取后, , ))  ' 截取验证码图片<br />
sessionID ＝ 文本_取出中间文本 (验证码_url, #ID截取前, #ID截取后, )  ' 截取验证码对应ID