网页_访问x 解决可能出现访问空或不解码问题

LEOONL

用精易模块的网页_访问S功能 可能出现访问空或不解码问题，分享一下好用的网页访问，放入精易模块源码编译后使用

  

子程序名	返回值类型	公开	备 注
网页_访问x	文本型		使用WinInet的API方式访问网页
参数名	类 型	参考	可空	数组	备 注
网址	文本型
访问方式	整数型				0=GET 1=POST 2=HEAD 3=PUT 4=OPTIONS 5=DELETE 6=TRACE 7=CONNECT 8=PATCH
提交信息	文本型
提交cookies	文本型
返回cookies	文本型
附加协议头	文本型				一行一个请用换行符隔开
返回协议头	文本型				返回的协议头
禁止重定向	逻辑型				默认不禁止网页重定向
字节集提交	字节集				提交字节集数据
代理地址	文本型				代理地址，格式为 8.8.8.8:88

变量名	类 型	静态	数组	备 注
局_Internet句柄	整数型
局_Internet连接句柄	整数型
局_HTTP请求句柄	整数型
局_计次	整数型
局_字节集	字节集
局_访问方式	文本型
局_User_Agent	文本型
局_返回协议头	文本型		0
局_页面内容	字节集
局_请求标记	整数型
局_HTTPS	逻辑型
n	整数型
局_网页内容	文本型

局_访问方式 ＝ 多项选择 (访问方式 ＋ 1, “GET”, “POST”, “HEAD”, “PUT”, “OPTIONS”, “DELETE”, “TRACE”, “CONNECT”, “PATCH”)
如果真 (到小写 (取文本左边 (网址, 8)) ＝ “https://”)
局_HTTPS ＝ 真
如果 (代理地址 ＝ “”)
局_Internet句柄 ＝ InternetOpenA (局_User_Agent, 1, 字符 (0), 字符 (0), 0)
如果 (局_HTTPS)
局_Internet句柄 ＝ InternetOpenA (局_User_Agent, 3, 代理地址, “”, 0)
局_Internet句柄 ＝ InternetOpenA (局_User_Agent, 3, “http=” ＋ 代理地址, “”, 0)

如果真 (局_Internet句柄 ＝ 0)
返回 (“”)
局_Internet连接句柄 ＝ InternetConnectA (局_Internet句柄, 网页_取域名 (网址), 网页_取端口 (网址), 字符 (0), 字符 (0), 3, 0, 0)
如果真 (局_Internet连接句柄 ＝ 0)
InternetCloseHandle (局_Internet句柄)
返回 (“”)
局_请求标记 ＝ 位或 ( #INTERNET_FLAG_RELOAD, #INTERNET_COOKIE_THIRD_PARTY )
如果真 (取反 (是否为空 (提交cookies)))
局_请求标记 ＝ 位或 (局_请求标记, #INTERNET_FLAG_NO_COOKIES )
如果真 (禁止重定向)
局_请求标记 ＝ 位或 (局_请求标记, #INTERNET_FLAG_NO_AUTO_REDIRECT )
如果 (局_HTTPS)
局_请求标记 ＝ 位或 (局_请求标记, #INTERNET_FLAG_SECURE )
局_请求标记 ＝ 位或 (局_请求标记, #INTERNET_FLAG_IGNORE_REDIRECT_TO_HTTPS )
局_HTTP请求句柄 ＝ HttpOpenRequestA (局_Internet连接句柄, 局_访问方式, 网页_取页面地址 (网址), “HTTP/1.1”, 字符 (0), 字符 (0), 局_请求标记, 0)
如果真 (局_HTTP请求句柄 ＝ 0)
InternetCloseHandle (局_Internet连接句柄)
InternetCloseHandle (局_Internet句柄)
返回 (“”)
InternetSetOption (局_HTTP请求句柄, #INTERNET_OPTION_SECURITY_FLAGS, 127872, 4)
如果真 (寻找文本 (附加协议头, “Accept:”, , 真) ＝ -1)
附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Accept: */*”
如果真 (寻找文本 (附加协议头, “Referer:”, , 真) ＝ -1)
附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Referer: ” ＋ 网址
如果真 (寻找文本 (附加协议头, “Accept-Language:”, , 真) ＝ -1)
附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Accept-Language: zh-cn”
如果真 (寻找文本 (附加协议头, “User-Agent:”, , 真) ＝ -1)
附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/65.0.3325.146 Safari/537.36”
如果真 (访问方式 ＝ 1)
如果真 (寻找文本 (附加协议头, “Content-Type:”, , 真) ＝ -1)
附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Content-Type: application/x-www-form-urlencoded”

如果真 (提交cookies ≠ “”)
如果 (寻找文本 (提交cookies, “Cookie: ”, , 假) ＝ -1)
附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Cookie: ” ＋ 提交cookies
附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ 提交cookies

如果 (访问方式 ＝ 0)
HttpSendRequestA (局_HTTP请求句柄, 附加协议头, 取文本长度 (附加协议头), 0, 0)
如果真 (字节集提交 ＝ {  })
字节集提交 ＝ 到字节集 (提交信息)
HttpSendRequestA (局_HTTP请求句柄, 附加协议头, 取文本长度 (附加协议头), 取指针字节集_ (字节集提交), 取字节集长度 (字节集提交))
局_计次 ＝ 0
局_字节集 ＝ 取空白字节集 (1024)
循环判断首 ()
InternetReadFile (局_HTTP请求句柄, 局_字节集, 1024, 局_计次)
局_页面内容 ＝ 局_页面内容 ＋ 取字节集左边 (局_字节集, 局_计次)
循环判断尾 (局_计次 ≠ 0)
返回协议头 ＝ 取空白文本 (5000)
HttpQueryInfoA (局_HTTP请求句柄, 22, 返回协议头, 5000, 0)
InternetCloseHandle (局_HTTP请求句柄)
InternetCloseHandle (局_Internet连接句柄)
InternetCloseHandle (局_Internet句柄)
局_返回协议头 ＝ 分割文本 (返回协议头, #换行符, )
返回cookies ＝ “”
计次循环首 (取数组成员数 (局_返回协议头), n)
如果真 (寻找文本 (局_返回协议头 [n], “Set-Cookie: ”, , 假) ＞ 0)
返回cookies ＝ 返回cookies ＋ 文本_取出中间文本 (局_返回协议头 [n], “Set-Cookie: ”, “;”) ＋ “; ”

计次循环尾 ()
如果 (寻找文本 (返回协议头, “charset=UTF-8”, , 真) ＞ 0)
局_网页内容 ＝ 编码_Utf8到Ansi (局_页面内容)
局_网页内容 ＝ 到文本 (局_页面内容)
返回 (局_网页内容)

.版本 2<br /> <br /> .子程序 网页_访问x, 文本型, 公开, 使用WinInet的API方式访问网页<br /> .参数 网址, 文本型<br /> .参数 访问方式, 整数型, 可空, 0=GET 1=POST 2=HEAD 3=PUT 4=OPTIONS 5=DELETE 6=TRACE 7=CONNECT 8=PATCH<br /> .参数 提交信息, 文本型, 可空<br /> .参数 提交cookies, 文本型, 可空<br /> .参数 返回cookies, 文本型, 参考 可空<br /> .参数 附加协议头, 文本型, 可空, 一行一个请用换行符隔开<br /> .参数 返回协议头, 文本型, 参考 可空, 返回的协议头<br /> .参数 禁止重定向, 逻辑型, 可空, 默认不禁止网页重定向<br /> .参数 字节集提交, 字节集, 可空, 提交字节集数据<br /> .参数 代理地址, 文本型, 可空, 代理地址，格式为 8.8.8.8:88<br /> .局部变量 局_Internet句柄, 整数型<br /> .局部变量 局_Internet连接句柄, 整数型<br /> .局部变量 局_HTTP请求句柄, 整数型<br /> .局部变量 局_计次, 整数型<br /> .局部变量 局_字节集, 字节集<br /> .局部变量 局_访问方式, 文本型<br /> .局部变量 局_User_Agent, 文本型<br /> .局部变量 局_返回协议头, 文本型, , "0"<br /> .局部变量 局_页面内容, 字节集<br /> .局部变量 局_请求标记, 整数型<br /> .局部变量 局_HTTPS, 逻辑型<br /> .局部变量 n, 整数型<br /> .局部变量 局_网页内容, 文本型<br /> <br /> 局_访问方式 ＝ 多项选择 (访问方式 ＋ 1, “GET”, “POST”, “HEAD”, “PUT”, “OPTIONS”, “DELETE”, “TRACE”, “CONNECT”, “PATCH”)<br /> <br /> .如果真 (到小写 (取文本左边 (网址, 8)) ＝ “https://”)<br />     局_HTTPS ＝ 真<br /> .如果真结束<br /> .如果 (代理地址 ＝ “”)<br />     局_Internet句柄 ＝ InternetOpenA (局_User_Agent, 1, 字符 (0), 字符 (0), 0)<br /> .否则<br />     .如果 (局_HTTPS)<br />         局_Internet句柄 ＝ InternetOpenA (局_User_Agent, 3, 代理地址, “”, 0)<br />     .否则<br />         局_Internet句柄 ＝ InternetOpenA (局_User_Agent, 3, “http=” ＋ 代理地址, “”, 0)<br />     .如果结束<br /> <br /> .如果结束<br /> .如果真 (局_Internet句柄 ＝ 0)<br />     返回 (“”)<br /> .如果真结束<br /> 局_Internet连接句柄 ＝ InternetConnectA (局_Internet句柄, 网页_取域名 (网址), 网页_取端口 (网址), 字符 (0), 字符 (0), 3, 0, 0)<br /> .如果真 (局_Internet连接句柄 ＝ 0)<br />     InternetCloseHandle (局_Internet句柄)<br />     返回 (“”)<br /> .如果真结束<br /> 局_请求标记 ＝ 位或 (#INTERNET_FLAG_RELOAD, #INTERNET_COOKIE_THIRD_PARTY)<br /> .如果真 (取反 (是否为空 (提交cookies)))<br />     局_请求标记 ＝ 位或 (局_请求标记, #INTERNET_FLAG_NO_COOKIES)<br /> .如果真结束<br /> .如果真 (禁止重定向)<br />     局_请求标记 ＝ 位或 (局_请求标记, #INTERNET_FLAG_NO_AUTO_REDIRECT)<br /> .如果真结束<br /> .如果 (局_HTTPS)<br />     局_请求标记 ＝ 位或 (局_请求标记, #INTERNET_FLAG_SECURE)<br /> .否则<br />     局_请求标记 ＝ 位或 (局_请求标记, #INTERNET_FLAG_IGNORE_REDIRECT_TO_HTTPS)<br /> .如果结束<br /> 局_HTTP请求句柄 ＝ HttpOpenRequestA (局_Internet连接句柄, 局_访问方式, 网页_取页面地址 (网址), “HTTP/1.1”, 字符 (0), 字符 (0), 局_请求标记, 0)<br /> .如果真 (局_HTTP请求句柄 ＝ 0)<br />     InternetCloseHandle (局_Internet连接句柄)<br />     InternetCloseHandle (局_Internet句柄)<br />     返回 (“”)<br /> .如果真结束<br /> InternetSetOption (局_HTTP请求句柄, #INTERNET_OPTION_SECURITY_FLAGS, 127872, 4)<br /> .如果真 (寻找文本 (附加协议头, “Accept:”, , 真) ＝ -1)<br />     附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Accept: */*”<br /> .如果真结束<br /> .如果真 (寻找文本 (附加协议头, “Referer:”, , 真) ＝ -1)<br />     附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Referer: ” ＋ 网址<br /> .如果真结束<br /> .如果真 (寻找文本 (附加协议头, “Accept-Language:”, , 真) ＝ -1)<br />     附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Accept-Language: zh-cn”<br /> .如果真结束<br /> .如果真 (寻找文本 (附加协议头, “User-Agent:”, , 真) ＝ -1)<br />     附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/65.0.3325.146 Safari/537.36”<br /> .如果真结束<br /> .如果真 (访问方式 ＝ 1)<br />     .如果真 (寻找文本 (附加协议头, “Content-Type:”, , 真) ＝ -1)<br />         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Content-Type: application/x-www-form-urlencoded”<br />     .如果真结束<br /> <br /> .如果真结束<br /> .如果真 (提交cookies ≠ “”)<br />     .如果 (寻找文本 (提交cookies, “Cookie: ”, , 假) ＝ -1)<br />         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Cookie: ” ＋ 提交cookies<br />     .否则<br />         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ 提交cookies<br />     .如果结束<br /> <br /> .如果真结束<br /> .如果 (访问方式 ＝ 0)<br />     HttpSendRequestA (局_HTTP请求句柄, 附加协议头, 取文本长度 (附加协议头), 0, 0)<br /> .否则<br />     .如果真 (字节集提交 ＝ {  })<br />         字节集提交 ＝ 到字节集 (提交信息)<br />     .如果真结束<br />     HttpSendRequestA (局_HTTP请求句柄, 附加协议头, 取文本长度 (附加协议头), 取指针字节集_ (字节集提交), 取字节集长度 (字节集提交))<br /> .如果结束<br /> 局_计次 ＝ 0<br /> 局_字节集 ＝ 取空白字节集 (1024)<br /> .循环判断首 ()<br />     InternetReadFile (局_HTTP请求句柄, 局_字节集, 1024, 局_计次)<br />     局_页面内容 ＝ 局_页面内容 ＋ 取字节集左边 (局_字节集, 局_计次)<br /> .循环判断尾 (局_计次 ≠ 0)<br /> 返回协议头 ＝ 取空白文本 (5000)<br /> HttpQueryInfoA (局_HTTP请求句柄, 22, 返回协议头, 5000, 0)<br /> InternetCloseHandle (局_HTTP请求句柄)<br /> InternetCloseHandle (局_Internet连接句柄)<br /> InternetCloseHandle (局_Internet句柄)<br /> 局_返回协议头 ＝ 分割文本 (返回协议头, #换行符, )<br /> 返回cookies ＝ “”<br /> .计次循环首 (取数组成员数 (局_返回协议头), n)<br />     .如果真 (寻找文本 (局_返回协议头 [n], “Set-Cookie: ”, , 假) ＞ 0)<br />         返回cookies ＝ 返回cookies ＋ 文本_取出中间文本 (局_返回协议头 [n], “Set-Cookie: ”, “;”) ＋ “; ”<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> .如果 (寻找文本 (返回协议头, “charset=UTF-8”, , 真) ＞ 0)<br />     局_网页内容 ＝ 编码_Utf8到Ansi (局_页面内容)<br /> .否则<br />     局_网页内容 ＝ 到文本 (局_页面内容)<br /> .如果结束<br /> 返回 (局_网页内容)

djdjdj69

网页访问对象也偶尔返回空文本 ， ， 感谢分享

张宝元

找不到指定的常量名称“INTERNET_OPTION_SECURITY_FLAGS”

lixiaoyong

感谢分享 !

一直在沉默

66666666666666666666

罗妹妹

改写了的嘛？  复制进去没用啊

胖三斤

        感谢分享，很给力！~ 开源精神必须支持~

tsf521

支持开源~！感谢分享

光影魔术

感谢分享源码

kingchain

        开源精神必须支持~