.版本 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 返回 (局_返回)