Question

易语言获取指定网页信息

比方说要获取双色球每期中奖信息如何写源代码
如何保证 连续点击按钮 数据不会重复

Answer 1

1、新建一个程序。

2、插入图片框。

3、把窗口缩小到图片框大小。

4、写入代码，代码里面的网址就是图片的地址，需要自己去查找。

5、图片框事件，选择单击鼠标左键或其他按键都行，就可以获得网页信息。

6、最后发现获取成功了。

注意事项：

易语言有自主开发的高质量编译器，中文源代码被直接编译为CPU指令，运行效率高，安全可信性高；拥有自己的数据库系统，且支持访问现有所有数据库；内置专用输入法，支持中文语句快速录入，完全解决了中文输入慢的问题。

Answer 2

.版本 2

.支持库 internet

.支持库 spec

.程序集 窗口程序集1

.程序集变量 号码, 文本型, , "7"

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

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

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

.局部变量 文本, 文本型, , "0"

.局部变量 i, 整数型

.局部变量 n, 整数型

网页文本 ＝ 到文本 (HTTP读文件 (“http://lottery.titan24.com/kaijiang/ssq.html”))

文本 ＝ 分割文本 (网页文本, #换行符, )

.计次循环首 (取数组成员数 (文本), i)

    处理事件 ()

    编辑框1.内容 ＝ “”

    .如果真 (寻找文本 (文本 [i], “福彩双色球第”, , 假) ≠ -1)

        调试输出 (文本 [i])

        调试输出 (寻找文本 (文本 [i], “12064”, , 假))

        标签1.标题 ＝ “福彩双色球第 ” ＋ 取文本中间 (文本 [i], 76, 5) ＋ “ 期开奖公告”

    .如果真结束

    .如果 (寻找文本 (文本 [i], “开奖结果：”, , 假) ≠ -1)

        .计次循环首 (7, n)

            号码 [n] ＝ 文本 [i ＋ n]

            调试输出 (号码 [n])

            调试输出 (取文本中间 (号码 [n], 20, 2))

            编辑框1.加入文本 (取文本中间 (号码 [n], 20, 2) ＋ “ ”)

            编辑框1.加入文本 (取文本中间 (号码 [7], 22, 2))

        .计次循环尾 ()

        跳出循环 ()

    .否则

        编辑框1.加入文本 (“正查询开奖结果！请稍等……”)

    .如果结束

.计次循环尾 ()

一个窗口上，放3个组建，按钮1，标签1，编辑框1，加上上面的代码。OK了

Answer 3

版本 2
.支持库 internet
.支持库 spec

.程序集 窗口程序集1
.程序集变量 号码, 文本型, , "7"

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

.子程序 _按钮1_被单击
.局部变量 网页文本, 文本型
.局部变量 文本, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 n, 整数型

网页文本 ＝ 到文本 (HTTP读文件 (“http://lottery.titan24.com/kaijiang/ssq.html”))
文本 ＝ 分割文本 (网页文本, #换行符, )
.计次循环首 (取数组成员数 (文本), i)
处理事件 ()
编辑框1.内容 ＝ “”

.如果真 (寻找文本 (文本 [i], “福彩双色球第”, , 假) ≠ -1)
调试输出 (文本 [i])
调试输出 (寻找文本 (文本 [i], “12064”, , 假))
标签1.标题 ＝ “福彩双色球第 ” ＋ 取文本中间 (文本 [i], 76, 5) ＋ “ 期开奖公告”

.如果真结束

.如果 (寻找文本 (文本 [i], “开奖结果：”, , 假) ≠ -1)
.计次循环首 (7, n)
号码 [n] ＝ 文本 [i ＋ n]
调试输出 (号码 [n])
调试输出 (取文本中间 (号码 [n], 20, 2))
编辑框1.加入文本 (取文本中间 (号码 [n], 20, 2) ＋ “ ”)
编辑框1.加入文本 (取文本中间 (号码 [7], 22, 2))

.计次循环尾 ()

跳出循环 ()
.否则
编辑框1.加入文本 (“正查询开奖结果！请稍等……”)
.如果结束

.计次循环尾 ()

Answer 4

用彗星http模块读网页文本应该可以

Answer 5

http读文件，然后自己看看返回的文本，可以查找文本或者文本分割取出字符串