就是读取这个网页的内容 效果看下图

源代码：

=============================================================================

.版本 2

.支持库 EThread

.支持库 internet

.支持库 iext

.程序集 窗口程序集1

.程序集变量 线程句柄, 整数型

.子程序 _按钮1_被单击

.判断开始 (编辑框2.内容 ≠ “”)

时钟1.时钟周期 ＝

200

启动线程

(&读网页数据, , 线程句柄)

.默认

.判断结束

.子程序 读网页数据

.局部变量 网页文本, 文本型

.局部变量 开始位置, 整数型

.局部变量 结束位置, 整数型

网页文本 ＝ 到文本 (HTTP读文件 (编辑框2.内容)) ' 读入网页数据

.如果真 (网页文本 ＝ “”)

信息框

(“读取网页数据失败”, 0, )

返回 ()

.如果真结束

.如果 (寻找文本 (网页文本, “var listIssue =”, , 假) ≠ -1 且 寻找文本 (网页文本, “var

stringBuilder = []”, , 假) ≠ -1)

开始位置 ＝ 寻找文本

(网页文本, “var listIssue =”, , 假)

结束位置 ＝ 寻找文本

(网页文本, “var stringBuilder = []”, 开始位置, 假)

网页文本 ＝ 取文本中间

(网页文本, 开始位置 ＋ 取文本长度 (“var listIssue =”), 结束位置 － 开始位置)

网页文本 ＝ 取文本中间

(网页文本, 1, 寻找文本 (网页文本, “]”, , 假))

开始分析

(网页文本)

.否则

信息框

(“数据读取错误”, 0, )

.如果结束

.子程序 开始分析

.参数 内容, 文本型

.局部变量 期号, 文本型

.局部变量 开奖号码, 文本型

.局部变量 开奖时间, 文本型

.局部变量 开奖数据, 文本型, , "0"

.局部变量 一期数据, 文本型, , "0"

.局部变量 计次, 整数型

开奖数据 ＝ 分割文本 (内容, “},{”, )

.如果真 (取数组成员数 (开奖数据) ＝ 0)

信息框

(“数据初始化失败”, 0, )

返回 ()

.如果真结束

编辑框1.加入文本 (#换行符 ＋

“ 开奖号码 开奖时间 期号” ＋ #换行符 ＋ “---------------------------------------------------”

＋ #换行符)

.计次循环首 (取数组成员数 (开奖数据), 计次)

处理事件

()

一期数据 ＝ 分割文本

(开奖数据 [计次], #引号, )

开奖号码 ＝ 取文本左边

(一期数据 [4], 14)

开奖时间 ＝ 一期数据

[8]

期号 ＝ 一期数据

[12]

' 编辑框1.加入文本

(“开奖号码：” ＋ 开奖号码 ＋

“ 开奖时间：” ＋

开奖时间 ＋ “ 期号：”

＋ 期号 ＋ #换行符)

编辑框1.加入文本 (“

” ＋ 开奖号码 ＋ “ ” ＋ 开奖时间 ＋ “ ” ＋ 期号 ＋ #换行符)

.计次循环尾 ()

时钟1.时钟周期 ＝ 0

透明标签1.标题 ＝ “”

.子程序 __启动窗口_将被销毁

强制结束线程 (线程句柄)

.子程序 _按钮2_被单击, , , 保存数据

.判断开始 (编辑框1.内容 ≠ “”)

.如果真 (文件是否存在

(取运行目录 () ＋ “\data”) ＝ 假)

创建目录 (取运行目录 () ＋ “\data”)

.如果真结束

.如果 (写到文件

(取运行目录 () ＋ “\data\” ＋ 到文本 (取现行时间 ()) ＋ “.txt”, 到字节集 (编辑框1.内容)) ＝

真)

信息框 (“保存成功”, 0, )

.否则

信息框 (“保存失败”, 0, )

.如果结束

.默认

.判断结束

.子程序 _时钟1_周期事件

.判断开始 (透明标签1.标题 ≠ “。。。。。。”)

透明标签1.标题 ＝

透明标签1.标题 ＋ “。”

.默认

透明标签1.标题 ＝

“”

.判断结束