无聊时写了一个用WEB客户做的网页访问源码,现放出来,让大家指点不足 |
web访问 | 字节集 | | |
网址 | 文本型 | | | | 访问方式 | 文本型 | | | | 提交数据 | 文本型 | | | | 提交cookies | 文本型 | | | | 返回Cookies | 文本型 | | | | 返回协议头 | 文本型 | | | | 返回状态码 | 文本型 | | | |
变量名 | 类 型 | 静态 | 数组 | 备 注 | cookies组 | 文本型 | | 0 | http | WEB客户 | | | 局_计次 | 整数型 | | | 返回协议组 | 文本型 | | 0 | 计次 | 整数型 | | | 协议头 | 文本型 | | |
访问方式 = 到大写 (访问方式 )如果 (访问方式 ≠ “POST”)访问方式 = “GET”访问方式 = “POST”http.打开 (访问方式, 网址)http. 附加协议 (“Accept”, “*/*”)http. 附加协议 (“Accept-Language”, “zh-CN”)http. 附加协议 (“Content-Type”, “application/x-www-form-urlencoded; charset=UTF-8”)http. 附加协议 (“User-Agent”, “Mozilla/5.0 (compatible; MSIE 9.0; Windows NT 6.1; WOW64; Trident/5.0)”)http. 附加协议 (“Connection”, “Keep-Alive”)http. 附加协议 (“Cookie”, 提交cookies )http. 重定向 ()如果 (访问方式 = “POST”)http. 发送 (提交数据, , , )http. 发送 (, , , )cookies组 = http. 返回协议组 (“Set-Cookie”)返回Cookies = “”计次循环首 (取数组成员数 (cookies组 ), 局_计次 )返回Cookies = 返回Cookies + 取文本左边 (cookies组 [局_计次 ], 寻找文本 (cookies组 [局_计次 ], “;”, , 假) - 1 ) + “; ”计次循环尾 ()返回Cookies = 取文本左边 (返回Cookies, 取文本长度 (返回Cookies ) - 2 )返回协议组 = http. 返回全部协议 ()返回协议头 = “”计次循环首 (取数组下标 (返回协议组, 1 ), 计次 )协议头 = 协议头 + 返回协议组 [计次 ] [1 ] + “: ” + 返回协议组 [计次 ] [2 ] + #换行符 计次循环尾 ()返回协议头 = 协议头 返回状态码 = 到文本 (http. 状态码 ()) 返回 (http. 取字节集 ()) |