|
|

分享源码
| 界面截图: |
|
| 是否带模块: |
调用了模块 |
| 备注说明: |
- |
局_网址 = “https://www.cwl.gov.cn/cwl_admin/front/cwlkj/search/kjxx/findDrawNotice?name=ssq&issueCount=” + 到文本 (条数 ) + “&issueStart=&issueEnd=&dayStart=&dayEnd=&pageNo=1&pageSize=300000&systemType=PC”局_方式 = 0 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_协议头. 获取协议头数据 ()ck = “Cookie: HMF_CI=a7d6b4266c9257c77270b43442fe99d9baba67cdac2075af800206aead03d9382314f47a43a1fd276063e8b3e1871940edd32bbf6208bcb0f7aff23c2db3e026b4; 21_vq=5”局_结果 = 网页_访问_对象 (局_网址, 局_方式, , ck, , 局_提交协议头, , , , , , , , , , , , , )局_返回 = 到文本 (编码_编码转换对象 (局_结果, , , )) json. 解析 (局_返回, , ) 如果真 (json. 取通用属性 (“message”, ) ≠ “cha询成功”) 返回 (json. 取通用属性 (“message”, )) 计次循环首 (条数, k ) k = 超级列表框1. 插入表项 (, , , , , ) 超级列表框1. 置标题 (k, 0, 到文本 (k + 1 ))  超级列表框1. 置标题 (k, 1, json. 取通用属性 (“result[” + 到文本 (k ) + “].date”, ))  超级列表框1. 置标题 (k, 2, json. 取通用属性 (“result[” + 到文本 (k ) + “].code”, ))  超级列表框1. 置标题 (k, 3, json. 取通用属性 (“result[” + 到文本 (k ) + “].red”, ) + “,” + json. 取通用属性 (“result[” + 到文本 (k ) + “].blue”, ))  i = 0 文本_分割文本 (json. 取通用属性 (“result[” + 到文本 (k ) + “].red”, ), “,”, , 红球 ) 计次循环首 (取数组成员数 (红球 ), i )  超级列表框1. 置标题 (k, 3 + i, 红球 [i ]) 计次循环尾 () 超级列表框1. 置标题 (k, 10, json. 取通用属性 (“result[” + 到文本 (k ) + “].blue”, ))  一等奖 = json. 取通用属性 (“result[” + 到文本 (k ) + “].prizegrades[0].typenum”, ) 一等奖金 = json. 取通用属性 (“result[” + 到文本 (k ) + “].prizegrades[0].typemoney”, ) 二等奖 = json. 取通用属性 (“result[” + 到文本 (k ) + “].prizegrades[1].typenum”, ) 二等奖金 = json. 取通用属性 (“result[” + 到文本 (k ) + “].prizegrades[1].typemoney”, ) 三等奖 = json. 取通用属性 (“result[” + 到文本 (k ) + “].prizegrades[2].typenum”, ) 三等奖金 = json. 取通用属性 (“result[” + 到文本 (k ) + “].prizegrades[2].typemoney”, ) 四等奖 = json. 取通用属性 (“result[” + 到文本 (k ) + “].prizegrades[3].typenum”, ) 四等奖金 = json. 取通用属性 (“result[” + 到文本 (k ) + “].prizegrades[3].typemoney”, ) 五等奖 = json. 取通用属性 (“result[” + 到文本 (k ) + “].prizegrades[4].typenum”, ) 五等奖金 = json. 取通用属性 (“result[” + 到文本 (k ) + “].prizegrades[4].typemoney”, ) 六等奖 = json. 取通用属性 (“result[” + 到文本 (k ) + “].prizegrades[5].typenum”, ) 六等奖金 = json. 取通用属性 (“result[” + 到文本 (k ) + “].prizegrades[5].typemoney”, ) 超级列表框1. 置标题 (k, 11, “一等奖:” + 到文本 (一等奖 ) + “注,奖金:” + 一等奖金 + “; 二等奖:” + 到文本 (二等奖 ) + “注,奖金:” + 二等奖金 + “; 三等奖:” + 到文本 (三等奖 ) + “注,奖金:” + 三等奖金 + “; 四等奖:” + 到文本 (四等奖 ) + “注,奖金:” + 四等奖金 + “; 五等奖:” + 到文本 (五等奖 ) + “注,奖金:” + 五等奖金 + “; 六等奖:” + 到文本 (六等奖 ) + “注,奖金:” + 六等奖金 + “。 中奖地址 ” + json. 取通用属性 (“result[” + 到文本 (k ) + “].content”, ))  超级列表框1. 置标题 (k, 12, json. 取通用属性 (“result[” + 到文本 (k ) + “].poolmoney”, ))  如果真 (json. 取通用属性 (“result[” + 到文本 (k ) + “].date”, ) = “”) 跳出循环 ()  计次循环尾 ()
|
|