WEB客户写的GET OR POST

tylm1080

无聊时写了一个用WEB客户做的网页访问源码，现放出来，让大家指点不足

  

子程序名	返回值类型	公开	备 注
web访问	字节集
参数名	类 型	参考	可空	数组	备 注
网址	文本型
访问方式	文本型
提交数据	文本型
提交cookies	文本型				提交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.取字节集 ())

i支持库列表	支持库注释
json	(未知支持库)

.版本 2<br /> .支持库 json<br /> <br /> .子程序 web访问, 字节集, 公开<br /> .参数 网址, 文本型<br /> .参数 访问方式, 文本型, 可空<br /> .参数 提交数据, 文本型, 可空<br /> .参数 提交cookies, 文本型, 参考 可空, 提交cookies<br /> .参数 返回Cookies, 文本型, 可空<br /> .参数 返回协议头, 文本型, 可空<br /> .参数 返回状态码, 文本型, 可空<br /> .局部变量 cookies组, 文本型, , "0"<br /> .局部变量 http, WEB客户<br /> .局部变量 局_计次, 整数型<br /> .局部变量 返回协议组, 文本型, , "0"<br /> .局部变量 计次, 整数型<br /> .局部变量 协议头, 文本型<br /> <br /> 访问方式 ＝ 到大写 (访问方式)<br /> .如果 (访问方式 ≠ “POST”)<br />     访问方式 ＝ “GET”<br /> .否则<br />     访问方式 ＝ “POST”<br /> .如果结束<br /> http.打开 (访问方式, 网址)<br /> http.附加协议 (“Accept”, “*/*”)<br /> http.附加协议 (“Accept-Language”, “zh-CN”)<br /> http.附加协议 (“Content-Type”, “application/x-www-form-urlencoded; charset=UTF-8”)<br /> http.附加协议 (“User-Agent”, “Mozilla/5.0 (compatible; MSIE 9.0; Windows NT 6.1; WOW64; Trident/5.0)”)<br /> http.附加协议 (“Connection”, “Keep-Alive”)<br /> http.附加协议 (“Cookie”, 提交cookies)<br /> http.重定向 ()<br /> .如果 (访问方式 ＝ “POST”)<br />     http.发送 (提交数据, , , )<br /> .否则<br />     http.发送 (, , , )<br /> .如果结束<br /> <br /> cookies组 ＝ http.返回协议组 (“Set-Cookie”)<br /> 返回Cookies ＝ “”<br /> .计次循环首 (取数组成员数 (cookies组), 局_计次)<br />     返回Cookies ＝ 返回Cookies ＋ 取文本左边 (cookies组 [局_计次], 寻找文本 (cookies组 [局_计次], “;”, , 假) － 1) ＋ “; ”<br /> .计次循环尾 ()<br /> 返回Cookies ＝ 取文本左边 (返回Cookies, 取文本长度 (返回Cookies) － 2)<br /> 返回协议组 ＝ http.返回全部协议 ()<br /> 返回协议头 ＝ “”<br /> .计次循环首 (取数组下标 (返回协议组, 1), 计次)<br />     协议头 ＝ 协议头 ＋ 返回协议组 [计次] [1] ＋ “: ” ＋ 返回协议组 [计次] [2] ＋ #换行符<br /> .计次循环尾 ()<br /> 返回协议头 ＝ 协议头<br /> 返回状态码 ＝ 到文本 (http.状态码 ())<br /> 返回 (http.取字节集 ())

懒人工作室

给力 虽然不知道有什么用

OneY

支持一下......

aidexinhao

这是大牛作品吗

tsyueqiang

来看看啊 来学习啦

秋海明月

谢谢分享。。。

爱了睡了拜了

谢谢分享。。。

tylm1080

gzslxf 发表于 2015-5-12 16:12
没有找到名为“WEB客户”的数据类型

你要先在支持库里要选中 web客户 支持库才行呀

zhangjun1314

不错..怎么用..有什么优势吗?谢谢分享

gzslxf

没有找到名为“WEB客户”的数据类型