时间: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邮箱联系删除。
在易语言中,一维数组的用法灵活性较强,所以实际应用起来也能够解决很多问题。我们本次来说明下易语言一维数组的成员操作方法及技巧。1、首先,我们打开易语言编程工具,
用图解的方式对易语言的使用方法和操作技巧作了生动、系统的讲解。运行易语言后,首先会显示易语言的新建对话框。这里大家先选“确定”钮进入。进入j易语言编程界面可以通
用易语言中文程序,做一个简单的网页刷新器,用到时钟组件就可以完成。1、在百度上下载易语言软件进行安装,通过百度“易语言”,得出搜索结果,按照步骤进行正常的软件安
以下内容给大家分享了关于易语言运算符和易语言表达式相关的知识点内容,一起来学习下。1.易语言运算符易语言程序进行算术运算或关系比较操作时,需要使用运算符。易语言
易语言由于完全支持面向对象编程理念,因此也秉性了功能与外观相分离的良好编程思路。了解并掌握易语言中的人机交互操作,对于理解易语言编程思维及至掌握易语言编程核心,