求获取网站开奖号码的源码

chenzhi1233

开奖网站：http://www.pceggs.com/play/pgl.aspx
要求：
因为PC蛋蛋每5分钟为一期，要求每5分钟获取最新开奖的时间，期号，和最近10期的记录，如图

冯古屋

首先，这个需要登陆的。
其次，你抓包看看，有时候一些数据是另一个网址里面的

秋来潮汐

打开看了下,还要登录

E丶JavaScript

建议还是定制区吧   应为这个需要时间多0  - -

nliger2015

网页内容 ＝ HTTP读网页s (“http://www.bwlc.net/bulletin/keno.html”, , , , , , , , 3000)

.版本 2
.支持库 eGrid

.子程序 官方处理数据
.参数 待处理内容, 文本型
.局部变量 正则, 正则类
.局部变量 循环计次, 整数型
.局部变量 分割数据, 文本型, , "0"
.局部变量 期号, 文本型
.局部变量 时间, 文本型
.局部变量 结果, 文本型
.局部变量 单双, 文本型
.局部变量 大小, 文本型
.局部变量 对比, 文本型, , "0"

正则.创建 (“<td>(\d+)</td>\n<td>(.*?)</td>\n<td>\d+</td>\n<td>.*? (.*?)</td>”, 文本_去除文本 (待处理内容, 字符 (9)))
.计次循环首 (正则.取匹配数量 (), 循环计次)
    期号 ＝ 正则.取子匹配文本 (循环计次, 1)
    时间 ＝ 正则.取子匹配文本 (循环计次, 3)
    结果 ＝ 计算结果 (正则.取子匹配文本 (循环计次, 2))
    分割数据 ＝ 分割文本 (结果, “ = ”, 2)
    单双 ＝ 单双预测 (正则, 循环计次 ＋ 1)
    大小 ＝ 大小预测 (正则, 循环计次 ＋ 1)
    结果对比 (单双对比 (结果, 单双), 大小对比 (结果, 大小), 对比)
    高级表格.置数据 (循环计次 ＋ 1, 0, #表格常量.文本型, 期号)
    高级表格.置数据 (循环计次 ＋ 1, 1, #表格常量.文本型, 时间)
    高级表格.置数据 (循环计次 ＋ 1, 2, #表格常量.文本型, 分割数据 [1])
    高级表格.置数据 (循环计次 ＋ 1, 3, #表格常量.文本型, 分割数据 [2])
    高级表格.置数据 (循环计次 ＋ 1, 4, #表格常量.文本型, 单双)
    高级表格.置数据 (循环计次 ＋ 1, 5, #表格常量.文本型, 大小)
    高级表格.置数据 (循环计次 ＋ 1, 6, #表格常量.文本型, 对比 [1])
    .如果 (对比 [2] ＝ “组合”)
        高级表格.置单元格文字颜色 (循环计次 ＋ 1, 4, 循环计次 ＋ 1, 4, #天蓝)
        高级表格.置单元格文字颜色 (循环计次 ＋ 1, 5, 循环计次 ＋ 1, 5, #天蓝)
    .否则
        .如果 (对比 [2] ＝ “单双”)
            高级表格.置单元格文字颜色 (循环计次 ＋ 1, 4, 循环计次 ＋ 1, 4, #天蓝)
            高级表格.置单元格文字颜色 (循环计次 ＋ 1, 5, 循环计次 ＋ 1, 5, #灰色)
        .否则
            .如果 (对比 [2] ＝ “大小”)
                高级表格.置单元格文字颜色 (循环计次 ＋ 1, 4, 循环计次 ＋ 1, 5, #灰色)
                高级表格.置单元格文字颜色 (循环计次 ＋ 1, 5, 循环计次 ＋ 1, 5, #天蓝)
            .否则
                高级表格.置单元格文字颜色 (循环计次 ＋ 1, 4, 循环计次 ＋ 1, 4, #灰色)
                高级表格.置单元格文字颜色 (循环计次 ＋ 1, 5, 循环计次 ＋ 1, 5, #灰色)
            .如果结束

        .如果结束

    .如果结束
    .如果 (对比 [1] ＝ “X”)
        高级表格.置单元格文字颜色 (循环计次 ＋ 1, 6, 循环计次 ＋ 1, 6, #红色)
    .否则
        高级表格.置单元格文字颜色 (循环计次 ＋ 1, 6, 循环计次 ＋ 1, 6, #绿色)
    .如果结束
    .如果真 (循环计次 ＝ 15)
        跳出循环 ()
    .如果真结束
    处理事件 ()
.计次循环尾 ()
高级表格.置数据 (1, 0, #表格常量.文本型, 到文本 (到整数 (正则.取子匹配文本 (1, 1)) ＋ 1))
高级表格.置数据 (1, 1, #表格常量.文本型, 取下期时间 ())
高级表格.置数据 (1, 2, #表格常量.文本型, “-”)
高级表格.置数据 (1, 3, #表格常量.文本型, “-”)
高级表格.置数据 (1, 4, #表格常量.文本型, 单双预测 (正则, 1))
高级表格.置数据 (1, 5, #表格常量.文本型, 大小预测 (正则, 1))
高级表格.置数据 (1, 6, #表格常量.文本型, “-”)
统计结果 ()

qq8916744

路过看看大神

bm123

这要能算出来，开奖的不死翘翘了

咲音

nliger2015 发表于 2016-6-11 23:46
网页内容 ＝ HTTP读网页s (“http://www.bwlc.net/bulletin/keno.html”, , , , , , , , 3000)

.版本 2
...

还真有人为了50币写粗来了。。

nliger2015

咲音 发表于 2016-6-12 11:52
还真有人为了50币写粗来了。。

这些渣渣东西，一文不值！精币也没卵用。

qq171256018

.版本 2
.支持库 eGrid

.程序集 窗口程序集1
.程序集变量 数值_, 整数型

.子程序 __启动窗口_创建完毕

高级表格1.置数据 (0, 0, 1, “期号”)
高级表格1.置数据 (0, 1, 1, “开奖时间”)
高级表格1.置数据 (0, 2, 1, “开奖结果”)

.子程序 _按钮1_被单击
.局部变量 a, 整数型

.计次循环首 (数值_, a)
    高级表格1.置数据 (a, 0, 1, “”)
    高级表格1.置数据 (a, 1, 1, “”)
    高级表格1.置数据 (a, 2, 1, “”)
.计次循环尾 ()
线程_启动 (&获取信息)




.子程序 获取信息
.局部变量 文本, 文本型
.局部变量 期号, 文本型
.局部变量 时间, 文本型
.局部变量 开奖, 文本型
.局部变量 数组1, 文本型, , "0"
.局部变量 数组2, 文本型, , "0"
.局部变量 数组3, 文本型, , "0"
.局部变量 数组4, 文本型, , "0"
.局部变量 数组5, 文本型, , "0"
.局部变量 数组6, 文本型, , "0"
.局部变量 数值, 整数型

高级表格1.列数 ＝ 5
高级表格1.列宽 ＝ 高级表格1.宽度 ÷ 5 － 4
高级表格1.置列宽 (0, 高级表格1.取列宽 (0) ÷ 1.8)

.计次循环首 (到整数 (编辑框1.内容), 数值)
    文本 ＝ 到文本 (网页_访问 (“http://www.pceggs.com/play/pc28.aspx”, 1, “__VIEWSTATE=%2FwEPDwUJNzc3MTAxMzU5ZGRoqAvv8WszDJmdGj4cP0O2gODj8g%3D%3D&soundshow=&reloadshow=&CurrentPageIndex=” ＋ 到文本 (数值)))
    文本 ＝ 文本_替换 (文本, , , , “', '”, “”)
    期号 ＝ 到文本 (文本_取中间_批量_正则方式 (文本, #期号左边, #期号右边, 数组2))
    时间 ＝ 到文本 (文本_取中间_批量_正则方式 (文本, #日期左边, #日期右边, 数组4))
    开奖 ＝ 到文本 (文本_取中间_批量_正则方式 (文本, #开奖左边, #开奖右边, 数组6))
    加入成员 (数组5, 数组6)
    加入成员 (数组3, 数组4)
    加入成员 (数组1, 数组2)
    标签2.标题 ＝ “正在获取第：” ＋ 到文本 (数值) ＋ “ 页内容”
.计次循环尾 ()
.计次循环首 (取数组成员数 (数组1), 数值)
    高级表格1.行数 ＝ 取数组成员数 (数组1)
    高级表格1.置数据 (数值, 0, 1, 数组1 [数值])
    高级表格1.置数据 (数值, 1, 1, #日期左边 ＋ 数组3 [数值])
    高级表格1.置数据 (数值, 2, 1, 数组5 [数值])
    标签2.标题 ＝ “正在加载第：” ＋ 到文本 (数值) ＋ “ 条内容”
    数值_ ＝ 数值
.计次循环尾 ()

数组清零 (数组1)
数组清零 (数组2)
数组清零 (数组3)
数组清零 (数组4)
数组清零 (数组5)
数组清零 (数组6)