易语言POST获取网页指定内容

.版本 2

.程序集 窗口程序集_启动窗口

.子程序 Post, 文本型
.参数 code, 文本型
.局部变量 局_网址, 文本型
.局部变量 局_方式, 整数型
.局部变量 ADD_数据包, 类_POST数据类
.局部变量 局_提交数据, 文本型
.局部变量 ADD_协议头, 类_POST数据类
.局部变量 局_提交协议头, 文本型
.局部变量 局_结果, 字节集
.局部变量 局_返回, 文本型
.局部变量 time, 文本型
.局部变量 issue, 文本型
.局部变量 name, 文本型
.局部变量 局_返回2, 文本型
.局部变量 issue2, 文本型

局_网址 ＝ “https://www.b1cp.com/index/get_histcodes1128.html”
局_方式 ＝ 1
ADD_数据包.添加 (“code”, code)
ADD_数据包.添加 (“path”, “247f7e83c6db61d28e88aa41c76a614b”)
ADD_数据包.添加 (“limit”, “60”)
局_提交数据 ＝ ADD_数据包.获取Post数据 ()
ADD_协议头.添加 (“Accept”, “application/json, text/javascript, */*; q=0.01”)
ADD_协议头.添加 (“Content-Type”, “application/x-www-form-urlencoded; charset=UTF-8”)
ADD_协议头.添加 (“X-Requested-With”, “XMLHttpRequest”)
ADD_协议头.添加 (“Referer”, “https://www.b1cp.com/history/jisupk10.html”)
ADD_协议头.添加 (“Accept-Language”, “zh-cn”)
ADD_协议头.添加 (“User-Agent”, “Mozilla/5.0 (Windows NT 10.0; WOW64; Trident/7.0; rv:11.0) like Gecko”)
ADD_协议头.添加 (“Host”, “www.b1cp.com”)
ADD_协议头.添加 (“Content-Length”, “54”)
ADD_协议头.添加 (“Connection”, “Keep-Alive”)
ADD_协议头.添加 (“Pragma”, “no-cache”)
局_提交协议头 ＝ ADD_协议头.获取协议头数据 ()
局_结果 ＝ 网页_访问 (局_网址, 局_方式, 局_提交数据, , , 局_提交协议头, , , , , )
局_返回 ＝ 到文本 (编码_编码转换对象 (局_结果))
time ＝ 文本_取出中间文本 (局_返回, #time前, #time后, , )
issue ＝ 文本_取出中间文本 (局_返回, #issue前, #issue后, , )
.判断开始 (code ＝ “96”)
    name ＝ “极速赛车pk10”
.判断 (code ＝ “95”)
    name ＝ “极速时时彩”
.判断 (code ＝ “98”)
    name ＝ “极速快乐10”
.判断 (code ＝ “89”)
    name ＝ “澳洲幸运5”
.判断 (code ＝ “91”)
    name ＝ “澳洲幸运10”
.判断 (code ＝ “90”)
    name ＝ “澳洲幸运8”
.判断 (code ＝ “32”)
    name ＝ “腾讯分分彩”
.默认

.判断结束

局_返回2 ＝ 取文本右边 (局_返回, 取文本长度 (局_返回) － 寻找文本 (局_返回, issue, , 假) － 取文本长度 (issue))
issue2 ＝ 文本_取出中间文本 (局_返回2, #issue前, #issue后, , )
局_返回 ＝ name ＋ “|” ＋ time ＋ “|” ＋ issue ＋ “|” ＋ issue2
返回 (局_返回)

@风云诶i