开启辅助访问 切换到宽版

精易论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

用微信号发送消息登录论坛

新人指南 邀请好友注册 - 我关注人的新帖 教你赚取精币 - 每日签到


求职/招聘- 论坛接单- 开发者大厅

论坛版规 总版规 - 建议/投诉 - 应聘版主 - 精华帖总集 积分说明 - 禁言标准 - 有奖举报

查看: 228|回复: 4
收起左侧

[易源码分享] 双色球智能预测选号

[复制链接]
发表于 昨天 18:33 | 显示全部楼层 |阅读模式   四川省乐山市
分享源码
界面截图:
是否带模块: 调用了模块
备注说明: -

  
局_网址 = “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”))
返回 (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”, )“”)
跳出循环 ()

计次循环尾 ()


i支持库列表   支持库注释   
iext扩展界面支持库一

ExuiKrnln_Win32.rar

487.43 KB, 下载次数: 10, 下载积分: 精币 -2 枚

因为使用了EUI所以要把这个dll写进软件里


结帖率:80% (4/5)

签到天数: 3 天

发表于 昨天 23:10 | 显示全部楼层   陕西省西安市
中了3...000000000000
回复 支持 反对

使用道具 举报

签到天数: 17 天

发表于 昨天 20:09 | 显示全部楼层   黑龙江省哈尔滨市
用了一次,中了
回复 支持 反对

使用道具 举报

结帖率:100% (9/9)

签到天数: 10 天

发表于 昨天 20:07 | 显示全部楼层   辽宁省盘锦市
在来个大乐透就完美了
回复 支持 反对

使用道具 举报

结帖率:100% (9/9)

签到天数: 10 天

发表于 昨天 20:05 | 显示全部楼层   辽宁省盘锦市
源码直接打包发出来呀
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则 致发广告者

发布主题 收藏帖子 返回列表

sitemap| 易语言源码| 易语言教程| 易语言论坛| 易语言模块| 手机版| 广告投放| 精易论坛
拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论,本站内容均为会员发表,并不代表精易立场!
论坛帖子内容仅用于技术交流学习和研究的目的,严禁用于非法目的,否则造成一切后果自负!如帖子内容侵害到你的权益,请联系我们!
防范网络诈骗,远离网络犯罪 违法和不良信息举报QQ: 793400750,邮箱:wp@125.la
网站简介:精易论坛成立于2009年,是一个程序设计学习交流技术论坛,隶属于揭阳市揭东区精易科技有限公司所有。
Powered by Discuz! X3.4 揭阳市揭东区精易科技有限公司 ( 粤ICP备2025452707号) 粤公网安备 44522102000125 增值电信业务经营许可证 粤B2-20192173

快速回复 返回顶部 返回列表