| 子程序名 | 返回值类型 | 公开 | 备 注 | ||||
| 网页_访问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 | 整数型 | |||||
| 局_网页内容 | 文本型 | |||||
如果真 (到小写 (取文本左边 (网址, 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 (局_页面内容)局_网页内容 ＝ 到文本 (局_页面内容)返回 (局_网页内容)