|
楼主 |
发表于 2016-4-2 16:09:07
|
显示全部楼层
河南省鹤壁市
.版本 2
.支持库 EThread
.程序集 窗口程序集_启动窗口
.子程序 __启动窗口_创建完毕
.子程序 _按钮1_被单击
启动线程 (&POST提交, , )
.子程序 POST提交, 逻辑型, , ⊙⊙本代码由精易会员专用浏览器生成
.局部变量 局_提交地址, 文本型
.局部变量 局_提交数据, 文本型
.局部变量 局_返回文本, 文本型
局_提交地址 = “http://www.hnrb.cc/plugin.php?id=nds_up_ques&action=viewques&topicid=9”
局_提交数据 = #常量A + “B20黄河水利职业技术学院” + #常量B + “B21河南农业职业学院” + #常量C + “B36鹤壁职业技术学院” + #常量D
局_返回文本 = 到文本 (网页_访问 (局_提交地址, 1, , , 局_提交数据, )) ' 最后一个参数为返回的编码方式
.判断开始 (寻找文本 (局_返回文本, “输入你成功的关键字”, , 假) ≠ -1)
返回 (真)
.判断 (寻找文本 (局_返回文本, “输入你失败的关键字”, , 假) ≠ -1)
返回 (假)
.默认
输出调试文本 (局_返回文本) ' 如果前面2个没判断成功,把返回文件输出来
.判断结束
返回 (假)
|
|