美团门票 陕西博物馆协议
.下载地址：美团门票官方版下载丨最新版下载丨绿色版下载丨APP下载-123云盘
版本 2
.子程序 GET_时间段, 文本型, , 本命令由【精易网页调试助手】生成，请配合精易模块使用。
.参数 prodId, 文本型
.参数 recordId, 文本型
.局部变量 局_网址, 文本型
.局部变量 局_方式, 整数型
.局部变量 局_提交数据, 文本型
.局部变量 ADD_协议头, 类_POST数据类
.局部变量 局_提交协议头, 文本型
.局部变量 局_结果, 字节集
.局部变量 局_返回, 文本型
' https://etrip.icbc.com.cn/api-trip/trip/productManage/queryDayTimeShareQuote/mw/2000001053?corpId=2000001053
局_网址 ＝ “https://etrip.icbc.com.cn/api-trip/trip/productManage/queryDayTimeShareQuote/mw/2000001053?corpId=2000001053”
局_方式 ＝ 1
' {"corpId":"2000001053","prodId":"P2022012600000010302","recordId":"857","buyDate":"2024-10-12","ticketCategory":"1","salesChannel":"1","remainTicket":"1"}
局_提交数据 ＝ “{” ＋ #引号 ＋ “corpId” ＋ #引号 ＋ “:” ＋ #引号 ＋ “2000001053” ＋ #引号 ＋ “,” ＋ #引号 ＋ “prodId” ＋ #引号 ＋ “:” ＋ #引号 ＋ prodId ＋ #引号 ＋ “,” ＋ #引号 ＋ “recordId” ＋ #引号 ＋ “:” ＋ #引号 ＋ recordId ＋ #引号 ＋ “,” ＋ #引号 ＋ “buyDate” ＋ #引号 ＋ “:” ＋ #引号 ＋ 日期 ＋ #引号 ＋ “,” ＋ #引号 ＋ “ticketCategory” ＋ #引号 ＋ “:” ＋ #引号 ＋ “1” ＋ #引号 ＋ “,” ＋ #引号 ＋ “salesChannel” ＋ #引号 ＋ “:” ＋ #引号 ＋ “1” ＋ #引号 ＋ “,” ＋ #引号 ＋ “remainTicket” ＋ #引号 ＋ “:” ＋ #引号 ＋ “1” ＋ #引号 ＋ “}”
ADD_协议头.添加 (“Host”, “etrip.icbc.com.cn”)
ADD_协议头.添加 (“Content-Type”, “application/json; charset=utf-8”)
ADD_协议头.添加 (“User-Agent”, “Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/50.0.2661.87 Safari/537.36”)
局_提交协议头 ＝ ADD_协议头.获取协议头数据 ()
局_结果 ＝ 网页_访问_对象 (局_网址, 局_方式, 局_提交数据, , , 局_提交协议头, , , , , , , , , , , )
局_返回 ＝ 到文本 (编码_编码转换对象 (局_结果))
返回 (局_返回)
.子程序 GET_门票类型, 文本型, , 本命令由【精易网页调试助手】生成，请配合精易模块使用。
.局部变量 局_网址, 文本型
.局部变量 局_方式, 整数型
.局部变量 ADD_协议头, 类_POST数据类
.局部变量 局_提交协议头, 文本型
.局部变量 局_结果, 字节集
.局部变量 局_返回, 文本型
' https://etrip.icbc.com.cn/api-trip/trip/onlineTicketing/queryAllResortDetailList/2000001053?corpId=2000001053&resortId=100&ticketTypeCategoryFlag=1
局_网址 ＝ “https://etrip.icbc.com.cn/api-trip/trip/onlineTicketing/queryAllResortDetailList/2000001053?corpId=2000001053&resortId=100&ticketTypeCategoryFlag=1”
局_方式 ＝ 0
ADD_协议头.添加 (“Host”, “etrip.icbc.com.cn”)
ADD_协议头.添加 (“Accept”, “application/json”)
ADD_协议头.添加 (“User-Agent”, “Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/50.0.2661.87 Safari/537.36”)
局_提交协议头 ＝ ADD_协议头.获取协议头数据 ()
局_结果 ＝ 网页_访问_对象 (局_网址, 局_方式, , , , 局_提交协议头, , , , , , , , , , , )
局_返回 ＝ 到文本 (编码_编码转换对象 (局_结果))
返回 (局_返回)
.子程序 _日期框1_选择日期被改变
' 2024-10-12
' 2024年10月24日10时19分52秒
' 2024年10月24
日期 ＝ 到文本 (日期框1.今天)
日期 ＝ 文本_取左边 (日期, “日”, , )
日期 ＝ 文本_替换 (日期, , , , “年”, “-”, “月”, “-”, , , )
.如果真 (日期 ≠ “”)
bool ＝ 真
.如果真结束