易语言进行网页操作方法

时间:2021-05-19

首先展示下功能(看图片)

本代码附加了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-OpenA" .参数 句柄名称, 文本型, 传址 .参数 连接类型, 整数型, , 1直接连接;3代理连接 .参数 代理, 文本型, 传址 .参数 代理掩码, 文本型, 传址 .参数 dwFlags, 整数型, , 0.DLL命令 _执行, 整数型, , "ShellExecuteA" .参数 hwnd, 整数型, , 指定一个窗口的句柄,有些时候,Windows程序有必要在创建自己的主窗口前显示一个消息框。 .参数 lpOperation, 文本型, , 指定字串“Open”来打开lpFlie文档;或指定“Print”来打印它。也可设为vbNullString,表示默认为“Open” .参数 lpFile, 文本型, , 想用关联的程序打印或打开的一个程序名或文件名 .参数 lpParameters, 文本型, , 如lpFile是一个可执行文件,则这个字串包含了传递给执行程序的参数。如lpFile引用的是一个文档文件,或者不需要使用参数,则设为vbNullString .参数 lpDirectory, 文本型, , 想使用的默认路径完整路径 .参数 nShowCmd, 整数型, , 定义了如何显示启动程序的常数值。参考ShowWindow函数的nCmdShow参数

声明:本页内容来源网络,仅供用户参考;我单位不保证亦不表示资料全面及准确无误,也不保证亦不表示这些资料为最新信息,如因任何原因,本网内容或者用户因倚赖本网内容造成任何损失或损害,我单位将不会负任何法律责任。如涉及版权问题,请提交至online#300.cn邮箱联系删除。

相关文章