精易模块建议增加网页访问底层命令(不处理cookie)

天中小和尚

  

子程序名	返回值类型	公开	备 注
网页访问底层	字节集		不进行任何Cookies处理
参数名	类 型	参考	可空	数组	备 注
网址	文本型				完整的网页地址
访问方式	文本型				"GET" or "POST",为空默认"GET"
提交信息	文本型				"POST"专用
提交Cookies	文本型				提交的Cookie
返回Cookies	文本型				返回的Cookie
附加协yi头	文本型				一行一个请用换行符隔开
返回协yi头	文本型				Location
禁止重定向	逻辑型				默认不禁止网页重定向
超时	整数型				秒|默认为15秒,-1为无限等待
代理地址	文本型				代理地址
用户名	文本型				用户名
密码	文本型				密码
代理标识	整数型				代理标识，默认为1，0为路由器
完整协yi头	文本型				返回完整的协yi头
字节集提交	字节集				提交字节集数据

变量名	类 型	静态	数组	备 注
局部_WinHttp	对象
局部_返回Cookies	文本型		0
局部_计次	整数型
局部_网页数据	字节集
局部_发送协yi头	文本型		0
局部_协yi头处理	文本型		0
局部_变体提交	变体型

CoInitialize (0)
如果真 (局部_WinHttp.创建 (“WinHttp.WinHttpRequest.5.1”, ) ＝ 假)
返回 ({  })
' 局部_WinHttp.查看 ()
访问方式 ＝ 到大写 (访问方式)
如果真 (访问方式 ＝ “”)
访问方式 ＝ “GET”

如果真 (超时 ≠ -1)
如果 (超时 ＜ 1)
超时 ＝ 15000
超时 ＝ 超时 × 1000
局部_WinHttp.方法 (“SetTimeouts”, 超时, 超时, 超时, 超时)

如果真 (代理地址 ≠ “”)
局部_WinHttp.方法 (“SetProxy”, 2, 代理地址)
如果真 (用户名 ≠ “”)
如果真 (是否为空 (代理标识))
代理标识 ＝ 1
局部_WinHttp.方法 (“SetProxyCredentials”, 用户名, 密码, 代理标识)

局部_WinHttp.方法 (“Open”, 访问方式, 网址, 假)
如果真 (禁止重定向)
局部_WinHttp.写属性 (“Option”, 6, 0)

如果真 (附加协yi头 ＝ “”)
附加协yi头 ＝ “Referer: ” ＋ 网址 ＋ #换行符 ＋ #协yi头_网页

如果真 (提交Cookies ≠ “”)
局部_WinHttp.方法 (“SetRequestHeader”, “Cookie”, 提交Cookies)

判断 (寻找文本 (附加协yi头, #换行符, , 假) ＞ -1)
局部_发送协yi头 ＝ 分割文本 (附加协yi头, #换行符, )
计次循环首 (取数组成员数 (局部_发送协yi头), 局部_计次)
如果真 (寻找文本 (局部_发送协yi头 [局部_计次], “:”, , 假) ＞ -1)
清除数组 (局部_协yi头处理)
局部_协yi头处理 ＝ 分割文本 (局部_发送协yi头 [局部_计次], “:”, )
局部_计次 ＝ 2
判断循环首 (真)
局部_计次 ＝ 局部_计次 ＋ 1
如果真 (局部_计次 ＞ 取数组成员数 (局部_协yi头处理))
跳出循环 ()
局部_协yi头处理 [2] ＝ 局部_协yi头处理 [2] ＋ “:” ＋ 局部_协yi头处理 [局部_计次]
判断循环尾 ()
局部_WinHttp.方法 (“SetRequestHeader”, 局部_协yi头处理 [1], 局部_协yi头处理 [2])

计次循环尾 ()
如果真 (寻找文本 (附加协yi头, “:”, , 假) ＞ -1)
局部_协yi头处理 ＝ 分割文本 (附加协yi头, “:”, )
局部_计次 ＝ 2
判断循环首 (真)
局部_计次 ＝ 局部_计次 ＋ 1
如果真 (局部_计次 ＞ 取数组成员数 (局部_协yi头处理))
跳出循环 ()
局部_协yi头处理 [2] ＝ 局部_协yi头处理 [2] ＋ “:” ＋ 局部_协yi头处理 [局部_计次]
判断循环尾 ()
局部_WinHttp.方法 (“SetRequestHeader”, 局部_协yi头处理 [1], 局部_协yi头处理 [2])


判断 (字节集提交 ＝ {  })
局部_WinHttp.方法 (“Send”, 提交信息)
局部_变体提交.赋值 (字节集提交, )
局部_WinHttp.方法 (“Send”, 局部_变体提交)
局部_网页数据 ＝ 局部_WinHttp.读属性 (“ResponseBody”, ).取字节集 ()
完整协yi头 ＝ 局部_WinHttp.读文本属性 (“GetallResponseHeaders”, )
局部_返回Cookies ＝ 分割文本 (完整协yi头, #换行符, )
返回Cookies ＝ “”
计次循环首 (取数组成员数 (局部_返回Cookies), 局部_计次)
如果真 (寻找文本 (局部_返回Cookies [局部_计次], “Location:”, , 假) ＞ -1)
返回协yi头 ＝ 删首尾空 (子文本替换 (局部_返回Cookies [局部_计次], “Location:”, , , 1, 假))

如果真 (寻找文本 (局部_返回Cookies [局部_计次], “Set-Cookie”, , 假) ＞ -1)
返回Cookies ＝ 返回Cookies ＋ 删首尾空 (文本_取出中间文本 (局部_返回Cookies [局部_计次], “Set-Cookie:”, “;”)) ＋ “; ”

计次循环尾 ()
如果真 (返回协yi头 ＝ “”)
返回协yi头 ＝ 完整协yi头
CoUninitialize ()
返回 (局部_网页数据)

.版本 2<br /> <br /> .子程序 网页访问底层, 字节集, 公开, 不进行任何Cookies处理<br /> .参数 网址, 文本型, , 完整的网页地址<br /> .参数 访问方式, 文本型, 可空, "GET" or "POST",为空默认"GET"<br /> .参数 提交信息, 文本型, 可空, "POST"专用<br /> .参数 提交Cookies, 文本型, 可空, 提交的Cookie<br /> .参数 返回Cookies, 文本型, 参考 可空, 返回的Cookie<br /> .参数 附加协yi头, 文本型, 可空, 一行一个请用换行符隔开<br /> .参数 返回协yi头, 文本型, 参考 可空, Location<br /> .参数 禁止重定向, 逻辑型, 可空, 默认不禁止网页重定向<br /> .参数 超时, 整数型, 可空, 秒|默认为15秒,-1为无限等待<br /> .参数 代理地址, 文本型, 可空, 代理地址<br /> .参数 用户名, 文本型, 可空, 用户名<br /> .参数 密码, 文本型, 可空, 密码<br /> .参数 代理标识, 整数型, 可空, 代理标识，默认为1，0为路由器<br /> .参数 完整协yi头, 文本型, 参考 可空, 返回完整的协yi头<br /> .参数 字节集提交, 字节集, 可空, 提交字节集数据<br /> .局部变量 局部_WinHttp, 对象<br /> .局部变量 局部_返回Cookies, 文本型, , "0"<br /> .局部变量 局部_计次, 整数型<br /> .局部变量 局部_网页数据, 字节集<br /> .局部变量 局部_发送协yi头, 文本型, , "0"<br /> .局部变量 局部_协yi头处理, 文本型, , "0"<br /> .局部变量 局部_变体提交, 变体型<br /> <br /> CoInitialize (0)<br /> .如果真 (局部_WinHttp.创建 (“WinHttp.WinHttpRequest.5.1”, ) ＝ 假)<br />     返回 ({  })<br /> .如果真结束<br /> ' 局部_WinHttp.查看 ()<br /> 访问方式 ＝ 到大写 (访问方式)<br /> .如果真 (访问方式 ＝ “”)<br />     访问方式 ＝ “GET”<br /> .如果真结束<br /> <br /> .如果真 (超时 ≠ -1)<br />     .如果 (超时 ＜ 1)<br />         超时 ＝ 15000<br />     .否则<br />         超时 ＝ 超时 × 1000<br />     .如果结束<br />     局部_WinHttp.方法 (“SetTimeouts”, 超时, 超时, 超时, 超时)<br /> .如果真结束<br /> <br /> .如果真 (代理地址 ≠ “”)<br />     局部_WinHttp.方法 (“SetProxy”, 2, 代理地址)<br />     .如果真 (用户名 ≠ “”)<br />         .如果真 (是否为空 (代理标识))<br />             代理标识 ＝ 1<br />         .如果真结束<br />         局部_WinHttp.方法 (“SetProxyCredentials”, 用户名, 密码, 代理标识)<br />     .如果真结束<br /> <br /> .如果真结束<br /> 局部_WinHttp.方法 (“Open”, 访问方式, 网址, 假)<br /> .如果真 (禁止重定向)<br />     局部_WinHttp.写属性 (“Option”, 6, 0)<br /> .如果真结束<br /> <br /> .如果真 (附加协yi头 ＝ “”)<br />     附加协yi头 ＝ “Referer: ” ＋ 网址 ＋ #换行符 ＋ #协yi头_网页<br /> .如果真结束<br /> <br /> .如果真 (提交Cookies ≠ “”)<br />     局部_WinHttp.方法 (“SetRequestHeader”, “Cookie”, 提交Cookies)<br /> .如果真结束<br /> <br /> .判断开始 (寻找文本 (附加协yi头, #换行符, , 假) ＞ -1)<br />     局部_发送协yi头 ＝ 分割文本 (附加协yi头, #换行符, )<br />     .计次循环首 (取数组成员数 (局部_发送协yi头), 局部_计次)<br />         .如果真 (寻找文本 (局部_发送协yi头 [局部_计次], “:”, , 假) ＞ -1)<br />             清除数组 (局部_协yi头处理)<br />             局部_协yi头处理 ＝ 分割文本 (局部_发送协yi头 [局部_计次], “:”, )<br />             局部_计次 ＝ 2<br />             .判断循环首 (真)<br />                 局部_计次 ＝ 局部_计次 ＋ 1<br />                 .如果真 (局部_计次 ＞ 取数组成员数 (局部_协yi头处理))<br />                     跳出循环 ()<br />                 .如果真结束<br />                 局部_协yi头处理 [2] ＝ 局部_协yi头处理 [2] ＋ “:” ＋ 局部_协yi头处理 [局部_计次]<br />             .判断循环尾 ()<br />             局部_WinHttp.方法 (“SetRequestHeader”, 局部_协yi头处理 [1], 局部_协yi头处理 [2])<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .默认<br />     .如果真 (寻找文本 (附加协yi头, “:”, , 假) ＞ -1)<br />         局部_协yi头处理 ＝ 分割文本 (附加协yi头, “:”, )<br />         局部_计次 ＝ 2<br />         .判断循环首 (真)<br />             局部_计次 ＝ 局部_计次 ＋ 1<br />             .如果真 (局部_计次 ＞ 取数组成员数 (局部_协yi头处理))<br />                 跳出循环 ()<br />             .如果真结束<br />             局部_协yi头处理 [2] ＝ 局部_协yi头处理 [2] ＋ “:” ＋ 局部_协yi头处理 [局部_计次]<br />         .判断循环尾 ()<br />         局部_WinHttp.方法 (“SetRequestHeader”, 局部_协yi头处理 [1], 局部_协yi头处理 [2])<br />     .如果真结束<br /> <br /> .判断结束<br /> <br /> .判断开始 (字节集提交 ＝ {  })<br />     局部_WinHttp.方法 (“Send”, 提交信息)<br /> .默认<br />     局部_变体提交.赋值 (字节集提交, )<br />     局部_WinHttp.方法 (“Send”, 局部_变体提交)<br /> .判断结束<br /> 局部_网页数据 ＝ 局部_WinHttp.读属性 (“ResponseBody”, ).取字节集 ()<br /> 完整协yi头 ＝ 局部_WinHttp.读文本属性 (“GetallResponseHeaders”, )<br /> 局部_返回Cookies ＝ 分割文本 (完整协yi头, #换行符, )<br /> 返回Cookies ＝ “”<br /> .计次循环首 (取数组成员数 (局部_返回Cookies), 局部_计次)<br />     .如果真 (寻找文本 (局部_返回Cookies [局部_计次], “Location:”, , 假) ＞ -1)<br />         返回协yi头 ＝ 删首尾空 (子文本替换 (局部_返回Cookies [局部_计次], “Location:”, , , 1, 假))<br />     .如果真结束<br /> <br />     .如果真 (寻找文本 (局部_返回Cookies [局部_计次], “Set-Cookie”, , 假) ＞ -1)<br />         返回Cookies ＝ 返回Cookies ＋ 删首尾空 (文本_取出中间文本 (局部_返回Cookies [局部_计次], “Set-Cookie:”, “;”)) ＋ “; ”<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> .如果真 (返回协yi头 ＝ “”)<br />     返回协yi头 ＝ 完整协yi头<br /> .如果真结束<br /> CoUninitialize ()<br /> 返回 (局部_网页数据)

是八路军1980

建议直接跳过，可能I笑傲过更好。

六升臣

ck处理不处理感觉不是那么重要吧

镇坛道德标杆

天中小和尚 发表于 2017-9-22 10:01
主要是cookie处理   现在精易模块和超级网页访问模块提交的cookie都会自动处理

嗯，不止是Cookie，还有协yi头也很多默认设置，针对原命令魔改就好了，加几个默认参数，但不建议增加命令。

天中小和尚

镇坛道德标杆 发表于 2017-9-22 09:58
第一处返回不调用CoUninitialize；
作为一个统一的模块，这种命名更容易让新手混乱，例如网页_访问是winin ...

主要是cookie处理   现在精易模块和超级网页访问模块提交的cookie都会自动处理

镇坛道德标杆

第一处返回不调用CoUninitialize；
作为一个统一的模块，这种命名更容易让新手混乱，例如网页_访问是wininet，网页_访问_对象是winhttp。