如何读取网站内容

岁月无痕

超文本浏览框一个   
按钮一个


这个按钮有好几个效果, 一按下按钮 自动读取一个网页, 如果这个网页包含 "QQ号码"  则按钮提示 申请成功, 这个要怎么搞吗

数据压缩

[e].版本 2

.子程序 取QQ号, 文本型
.参数 源文本, 文本型
.局部变量 找到的位置, 整数型
.局部变量 临时文本, 文本型

找到的位置 ＝ 寻找文本 (源文本, “您获得的号码为：”, , 真)
临时文本 ＝ 取文本右边 (源文本, 取文本长度 (源文本) － 找到的位置 － 取文本长度 (“您获得的号码为：”) ＋ 1)
找到的位置 ＝ 寻找文本 (临时文本, “此号处于未保护”, , 假)
临时文本 ＝ 取文本左边 (临时文本, 找到的位置)
返回 (临时文本)[/e]

う网淅乄

[e]
判断（寻找文本（普通填表.取文本（超文本浏览框.取窗口句柄（）），你说的QQ号码哪一页的关键字）<>-1）
信息框（“申请成功”，）
[/e]

数据压缩

[e].版本 2
.支持库 internet

.子程序 检测
.局部变量 返回文本, 文本型
.局部变量 状态检测, 文本型

返回文本 ＝ 到文本 (HTTP读文件 ())
状态检测 ＝ 文本_取出中间文本 (返回文本, , )
.如果 (状态检测 ＝ “QQ号码”)
    信息框 (“申请成功”, 0, )[/e]

阿杰2011

搞一个时钟去监控超文本浏览框，如果超文本浏览框出现了"QQ号码" 的字样，就提示申请成功

岁月无痕

似水往昔浮流年 发表于 2011-8-18 12:11

你好啊，出现个错误啦
错误(36): 找不到指定的对象成员命令名称“取文本”。

顺便问一下 如果内容不包含"QQ号码" 则提示失败，要怎样写吗 ，我用的是填表

数据压缩

普通填表

[e].版本 2

    临时文本 ＝ 普通填表.网页_取文本 ()
    .如果真 (寻找文本 (临时文本, “申请成功！您获得的号码为：”, , 假) ≠ -1)
        信息框 (“申请成功”, 0, )[/e]

岁月无痕

闹剧 发表于 2011-8-18 12:33
普通填表

版主，这个临时文本怎样搞的吗

杜巴

用精易模块的命令
普通填表。初始化
局_变量 = 普通填表。网页_取文体（超文本浏览框。去窗口句柄（））
寻找文本（XXXXX）
这样就差不多了
{:3_232:}

う网淅乄

岁月无痕 发表于 2011-8-18 12:26
你好啊，出现个错误啦
错误(36): 找不到指定的对象成员命令名称“取文本”。

是 网页_取文本   我没有开易语言  所以具体的不一样你自己想下就明白了.........