求 网页访问操作模块

myeang77

在哪都找不到   

kevin

0.0楼主不给你，

Will

看看行不行吧。。

小昕逸逸

送你了，我也是高人送我的，标准的

大家好呵呵

去易语言宝盒里下呗

sjyluh

[e].版本 2

.程序集 窗口程序集1
.程序集变量 网页数据, 字节集
.程序集变量 完整地址2, 文本型

.子程序 _启动子程序, 整数型

_临时子程序 ()
返回 (0)

.子程序 _临时子程序

' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。

.子程序 访问网页, 字节集, 公开, 超时或读取失败返回空数据
.参数 完整地址, 文本型
.参数 读取超时, 整数型, 可空, 超时时间单位为毫秒,1000毫秒=1秒,如果不填写,默认为3秒.
.局部变量 发送信息, 文本型
.局部变量 返回数据, 字节集
.局部变量 启动时间, 整数型

载入 (窗口1, , 假)
完整地址2 ＝ 完整地址
发送信息 ＝ 子程序1 (完整地址2)
返回数据 ＝ {  }
网页数据 ＝ {  }
.如果真 (读取超时 ＝ 0)
    读取超时 ＝ 3000
.如果真结束
.如果真 (窗口1.客户1.连接 (取域名 (完整地址2), 80))
    窗口1.客户1.发送数据 (发送信息)
.如果真结束
启动时间 ＝ 取启动时间 ()
.循环判断首 ()
    处理事件 ()
    延时 (10)
    返回数据 ＝ 返回数据 ＋ 网页数据
    .如果真 (取启动时间 () － 启动时间 ≥ 读取超时)
        返回 ({  })
    .如果真结束

.循环判断尾 (寻找字节集 (网页数据, 到字节集 (“</html>”), ) ＝ -1)
.如果真 (是否已创建 (窗口1))
    窗口1.销毁 ()
.如果真结束
返回 (返回数据)

.子程序 程序等待, , 公开
.参数 延时时间, 整数型, , 时间单位为毫秒,1000毫秒=1秒
.局部变量 时间, 整数型

时间 ＝ 取启动时间 ()
.循环判断首 ()
    处理事件 ()
    延时 (10)
.循环判断尾 (取启动时间 () － 时间 ≠ 延时时间)

.子程序 子程序1, 文本型
.参数 地址, 文本型
.局部变量 附加协议头2, 文本型

附加协议头2 ＝ “GET ” ＋ 取页面地址 (地址) ＋ “ HTTP/1.1” ＋ #换行符
附加协议头2 ＝ 附加协议头2 ＋ “Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, */*” ＋ #换行符
附加协议头2 ＝ 附加协议头2 ＋ “Accept-Language: zh-cn” ＋ #换行符
附加协议头2 ＝ 附加协议头2 ＋ “Accept-Encoding: gzip, deflate” ＋ #换行符
附加协议头2 ＝ 附加协议头2 ＋ “User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 2.0.50727)” ＋ #换行符
附加协议头2 ＝ 附加协议头2 ＋ “Host: ” ＋ 取域名 (完整地址2) ＋ #换行符
附加协议头2 ＝ 附加协议头2 ＋ “Connection: Keep-Alive” ＋ #换行符 ＋ #换行符
返回 (附加协议头2)

.子程序 取页面地址, 文本型, 公开
.参数 网址, 文本型
.局部变量 页面地址, 文本型
.局部变量 符号位置, 整数型
.局部变量 域名, 文本型

域名 ＝ 取域名 (网址)
符号位置 ＝ 寻找文本 (网址, “/”, 寻找文本 (网址, 域名, 1, 真), 真)
.如果 (符号位置 ＞ 0)
    页面地址 ＝ 取文本右边 (网址, 取文本长度 (网址) － 符号位置 ＋ 1)
.否则
    页面地址 ＝ “/”
.如果结束
返回 (页面地址)

.子程序 取域名, 文本型, 公开
.参数 网址, 文本型
.局部变量 符号位置, 整数型
.局部变量 域名, 文本型

.如果 (文本比较 (取文本左边 (网址, 7), “http://”, 假) ≠ 0)
    符号位置 ＝ 寻找文本 (网址, “/”, , 真)
    .如果 (符号位置 ＞ 0)
        域名 ＝ 取文本左边 (网址, 符号位置 － 1)
    .否则
        域名 ＝ 网址
    .如果结束

.否则
    符号位置 ＝ 寻找文本 (网址, “/”, 8, 真)
    .如果 (符号位置 ＞ 0)
        域名 ＝ 取文本中间 (网址, 8, 符号位置 － 8)
    .否则
        域名 ＝ 文本替换 (网址, 1, 7, )
    .如果结束

.如果结束
符号位置 ＝ 寻找文本 (域名, “:”, 1, 真)
.如果真 (符号位置 ＞ 0)
    域名 ＝ 取文本左边 (域名, 符号位置 － 1)
.如果真结束
返回 (到小写 (域名))

.子程序 _客户1_数据到达

网页数据 ＝ 客户1.取回数据 ()
[/e]{:3_228:}

myeang77

我给全名都你们

网页访问操作模块

素顏じ亦傾城ジ

sjyluh 发表于 2012-1-24 19:40

   沾光  我也学习了

myeang77

网页访问类

有这个类型的

513111397

学习！！！！！