没有合适的资源?快使用搜索试试~ 我知道了~
首页易语言进行网页操作方法
在本篇内容中小编给大家分享是的易语言进行网页操作的相关知识点以及源码,需要的朋友们参考下。
资源详情
资源评论
资源推荐
易语言进行网页操作方法易语言进行网页操作方法
在本篇内容中小编给大家分享是的易语言进行网页操作的相关知识点以及源码,需要的朋友们参考下。
首先展示下功能(看图片)
本代码附加了DLL代码命令,会以不同的颜色标注,也可以全部复制后张贴到易语言新建的一个程序集名中,易语言会智能的分开DLL和子程序。
相关源码:
.版本 2
.程序集 网页操作累
.子程序 HTTP读文本, 文本型, 公开, 有可能线程阻塞,请在外部加超时判断
.参数 完整网址, 文本型
.参数 访问方式, 文本型, 可空, "GET" or "POST",为空默认"GET"
.参数 代理地址, 文本型, 可空
.参数 附加协议头, 文本型, 可空
.参数 提交信息, 文本型, 可空, "POST"专用
.参数 网页头, 文本型, 参考 可空, 返回网页头部信息
返回 (到文本 (HTTP网页访问 (完整网址, 访问方式, 代理地址, 附加协议头, 提交信息, 网页头)))
.子程序 HTTP网页访问, 字节集, 公开, 有可能线程阻塞,请在外部加超时判断
.参数 完整网址, 文本型, , “http://”
.参数 访问方式, 文本型, 可空, "GET" or "POST",为空默认"GET"
.参数 代理地址, 文本型, 可空
.参数 附加协议头, 文本型, 可空
.参数 提交信息, 文本型, 可空, "POST"专用
.参数 网页头, 文本型, 参考 可空, 返回网页头部信息
.局部变量 请求句柄, 整数型
.局部变量 连接句柄, 整数型
.局部变量 返回句柄, 整数型
.局部变量 域名, 文本型
.局部变量 页面地址, 文本型
.局部变量 已读字节, 整数型
.局部变量 Cookie位置, 整数型
.局部变量 内存号, 整数型
.局部变量 字节集容器, 字节集
.局部变量 返回字集, 字节集
页面地址 = 取页面地址 (完整网址)
域名 = 取域名 (完整网址)
' 建立基本连接
.如果 (删全部空 (代理地址) = “”)
请求句柄 = InternetOpen (到文本 (“Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)”), 1, 字符 (0), 字符 (0), 0)
.否则
请求句柄 = InternetOpen (到文本 (“Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)”), 3, 到文本 (“http=” + 代理地址), 字符 (0), 0)
.如果结束
.如果真 (请求句柄 = 0)
返回字集 = 取空白字节集 (0)
返回 (取空白字节集 (255))
.如果真结束
连接句柄 = InternetConnect (请求句柄, 域名, 取端口 (完整网址), “”, “”, 3, 0, 0)
.如果真 (连接句柄 = 0)
InternetCloseHandle (请求句柄)
返回字集 = 取空白字节集 (0)
返回 (取空白字节集 (255))
.如果真结束
返回句柄 = HttpOpenRequest (连接句柄, 访问方式, 页面地址, “HTTP/1.1”, 字符 (0), 字符 (0), 2147483648, 0)
.如果真 (返回句柄 = 0)
InternetCloseHandle (连接句柄)
InternetCloseHandle (请求句柄)
返回字集 = 取空白字节集 (0)
返回 (取空白字节集 (255))
.如果真结束
' 补充协议头
.如果真 (寻找文本 (附加协议头, “Accept: ”, 1, 真) = -1)
附加协议头 = 附加协议头 + “Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, */*” + #换行符
.如果真结束
.如果真 (寻找文本 (附加协议头, “Referer: ”, 1, 真) = -1)
附加协议头 = 附加协议头 + “Referer: ” + 完整网址 + #换行符
.如果真结束
.如果真 (寻找文本 (附加协议头, “Accept-Language: ”, 1, 真) = -1)
附加协议头 = 附加协议头 + “Accept-Language: zh-cn” + #换行符
.如果真结束
' 附带信息发送请求
.判断开始 (访问方式 = “” 或 到大写 (访问方式) = “GET”)
HttpSendRequest (返回句柄, 附加协议头, 取文本长度 (附加协议头), 字符 (0), 0)
.判断 (到大写 (访问方式) = “POST”)
.如果真 (提交信息 ≠ “”)
.如果真 (寻找文本 (附加协议头, “Content-Type: ”, 1, 真) = -1)
附加协议头 = 附加协议头 + “Content-Type: application/x-www-form-urlencoded” + #换行符
.如果真结束
附加协议头 = 附加协议头 + “Content-Length: ” + 到文本 (取文本长度 (提交信息)) + #换行符
.如果真结束
HttpSendRequest (返回句柄, 附加协议头, 取文本长度 (附加协议头), 提交信息, 取文本长度 (提交信息))
.默认
InternetCloseHandle (连接句柄)
InternetCloseHandle (请求句柄)
InternetCloseHandle (返回句柄)
返回字集 = 取空白字节集 (0)
返回 (取空白字节集 (255))
.判断结束
' 读取页面文本
内存号 = 打开内存文件 ()
字节集容器 = 取空白字节集 (2048)
weixin_38611877
- 粉丝: 4
- 资源: 925
上传资源 快速赚钱
- 我的内容管理 收起
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
会员权益专享
最新资源
- 27页智慧街道信息化建设综合解决方案.pptx
- 计算机二级Ms-Office选择题汇总.doc
- 单链表的插入和删除实验报告 (2).docx
- 单链表的插入和删除实验报告.pdf
- 物联网智能终端项目设备管理方案.pdf
- 如何打造品牌的模式.doc
- 样式控制与页面布局.pdf
- 武汉理工Java实验报告(二).docx
- 2021线上新品消费趋势报告.pdf
- 第3章 Matlab中的矩阵及其运算.docx
- 基于Web的人力资源管理系统的必要性和可行性.doc
- 基于一阶倒立摆的matlab仿真实验.doc
- 速运公司物流管理模式研究教材
- 大数据与管理.pptx
- 单片机课程设计之步进电机.doc
- 大数据与数据挖掘.pptx
资源上传下载、课程学习等过程中有任何疑问或建议,欢迎提出宝贵意见哦~我们会及时处理!
点击此处反馈
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功
评论0