网页_访问S POST BUG 修复

158125957

  

子程序名	返回值类型	公开	备 注
网页_访问S	文本型		MIV修改POST无法提交BUG
参数名	类 型	参考	可空	数组	备 注
网址	文本型				完整的网页地址,必须包含http://或者https://
访问方式	整数型				0=GET 1=POST 2=HEAD 3=PUT
提交信息	文本型				POST专用
提交Cookies	文本型				本参数传递变量时会自动回传返回的Cookie
返回Cookies	文本型				返回的Cookie
附加XY头	文本型				一行一个请用换行符隔开,建议填写常量值或文本值,防止因传参引发错误
返回XY头	文本型				返回的XY头
禁止重定向	逻辑型				默认不禁止网页重定向
网站登录用户名	文本型				自动登录网页用户名 如路由器
网站登录密码	文本型
代理地址	文本型				代理地址，格式为 8.8.8.8:88
代理帐号	文本型
代理密码	文本型
超时时间					可以被省略，单位：秒，默认30秒，如果提供大于0的数值，则修改操作超时时间。
返回重定向	文本型				可以被省略，提供参数时只能提供文本型变量，用于当发生重定向时取回页面重定向的地址。
返回状态文本	文本型
返回原始数据	字节集				可以被省略，返回原始网页编码

变量名	类 型	静态	数组	备 注
局_URL结构	URL_COMPONENTS
局_网页地址	字节集
局_域名	文本型
局_端口
局_重定向地址	文本型
局_HTTPS	逻辑型
局_会话句柄	整数型
局_User_Agent	文本型
局_代理名称	字节集
局_会话类型
局_连接句柄
局_请求句柄
局_访问方式	文本型
局_页面地址	字节集
局_设置超时
局_请求标记
局_请求XY	文本型
局_请求报头	字节集
局_数据长度	整数型
局_提交数据	字节集
局_可读长度	整数型
局_缓存数据	字节集
局_网页数据	字节集
局_网页内容	文本型
局_文本数组	文本型		0
局_编码类型	文本型
局_解码对象	对象
局_变体型	变体型
局_计次	整数型
局_正则	正则表达式类
WinHttpSendRequest逻辑	逻辑型

如果 (WinHttpCheckPlatform ())
局_URL结构.dwStructSize ＝ 60
连续赋值 (-1, 局_URL结构.dwSchemeLength, 局_URL结构.dwHostNameLength, 局_URL结构.dwUrlPathLength, 局_URL结构.dwExtraInfoLength)
局_网页地址 ＝ 编码_Ansi到Unicode (网址)
如果 (WinHttpCrackUrl (局_网页地址, 取字节集长度 (局_网页地址), 0, 局_URL结构))
局_域名 ＝ 编码_Unicode到Ansi (指针到字节集 (局_URL结构.lpszHostName, 局_URL结构.dwHostNameLength × 2))
局_页面地址 ＝ 选择 (局_URL结构.dwUrlPathLength ＜ 1, 编码_Ansi到Unicode (“/”), 指针到字节集 (局_URL结构.lpszUrlPath, 局_URL结构.dwUrlPathLength × 2) ＋ 指针到字节集 (局_URL结构.lpszExtraInfo, 局_URL结构.dwExtraInfoLength × 2) ＋ { 0, 0 })
局_端口 ＝ 局_URL结构.nPort
局_HTTPS ＝ 2 ＝ 局_URL结构.nScheme
局_会话类型 ＝ 选择 (取文本长度 (代理地址) ＞ 0, 3, 1)
局_代理名称 ＝ 选择 (取文本长度 (代理地址) ＝ 0, { 0, 0 }, 选择 (局_HTTPS, 编码_Ansi到Unicode (代理地址), 编码_Ansi到Unicode (“http=” ＋ 代理地址)))
局_会话句柄 ＝ WinHttpOpen (0, 局_会话类型, 局_代理名称, 0, 0)
如果 (局_会话句柄 ≠ 0)
局_连接句柄 ＝ WinHttpConnect (局_会话句柄, 编码_Ansi到Unicode (局_域名), 局_端口, 0)
如果 (局_连接句柄 ≠ 0)
如果真 (访问方式 ＜ 0 或 访问方式 ＞ 3)
访问方式 ＝ 0
局_访问方式 ＝ 多项选择 (访问方式 ＋ 1, “GET”, “POST”, “HEAD”, “PUT”)
' 局_访问方式 ＝ 选择 (访问方式 ＜ 0 或 访问方式 ＞ 3, 多项选择 (访问方式 ＋ 1, “GET”, “POST”, “HEAD”, “PUT”), “GET”)
局_请求句柄 ＝ WinHttpOpenRequest (局_连接句柄, 编码_Ansi到Unicode (局_访问方式), 局_页面地址, 0, 0, 0, 选择 (局_HTTPS, 8388608, 0))
如果 (局_请求句柄 ≠ 0)
局_设置超时 ＝ 选择 (超时时间 ＞ 0, 超时时间 × 1000, 30000)
如果 (WinHttpSetTimeouts (局_请求句柄, 局_设置超时, 局_设置超时, 局_设置超时, 局_设置超时))
如果真 (取文本长度 (网站登录用户名) ＞ 0 且 取文本长度 (网站登录密码) ＞ 0)
如果真 (WinHttpSetCredentials (局_请求句柄, 0, 1, 编码_Ansi到Unicode (网站登录用户名), 编码_Ansi到Unicode (网站登录密码), 0) ＝ 假)
返回状态文本 ＝ “707 设置代理凭证失败!”
WinHttpCloseHandle (局_请求句柄)
WinHttpCloseHandle (局_连接句柄)
WinHttpCloseHandle (局_会话句柄)
返回 (“”)

如果真 (取文本长度 (代理帐号) ＞ 0 且 取文本长度 (代理密码) ＞ 0)
如果真 (WinHttpSetCredentials (局_请求句柄, 1, 1, 编码_Ansi到Unicode (代理帐号), 编码_Ansi到Unicode (代理密码), 0) ＝ 假)
WinHttpCloseHandle (局_请求句柄)
WinHttpCloseHandle (局_连接句柄)
WinHttpCloseHandle (局_会话句柄)
返回状态文本 ＝ “707 设置代理凭证失败!”
返回 (“”)

局_请求标记 ＝ 选择 (是否为空 (提交Cookies), 63, 79)
如果真 (WinHttpSetOption (局_请求句柄, 局_请求标记, 1, 4) ＝ 假)
返回状态文本 ＝ “708 禁止自动设置Cookies失败!”
WinHttpCloseHandle (局_请求句柄)
WinHttpCloseHandle (局_连接句柄)
WinHttpCloseHandle (局_会话句柄)
返回 (“”)
如果真 (禁止重定向)
如果真 (WinHttpSetOption (局_请求句柄, 63, 2, 4) ＝ 假)
返回状态文本 ＝ “709 重定向设置失败!”
WinHttpCloseHandle (局_请求句柄)
WinHttpCloseHandle (局_连接句柄)
WinHttpCloseHandle (局_会话句柄)
返回 (“”)

如果真 (取文本长度 (附加XY头) ＞ 0)  ' 先加载用户设置的XY头，后面再进行补充。
局_请求XY ＝ 附加XY头
如果真 (寻找文本 (局_请求XY, “User-Agent: ”, 1, 真) ＝ -1)
局_请求XY ＝ 局_请求XY ＋ “User-Agent: Mozilla/5.0 (compatible; MSIE 9.0; Windows NT 6.1; WOW64; Trident/5.0)” ＋ #换行符
如果真 (寻找文本 (局_请求XY, “Accept: ”, 1, 真) ＝ -1)
局_请求XY ＝ 局_请求XY ＋ “Accept: text/html, application/xhtml+xml, */*” ＋ #换行符
如果真 (寻找文本 (局_请求XY, “Accept-Encoding: ”, 1, 真) ＝ -1)
局_请求XY ＝ 局_请求XY ＋ “Accept-Encoding: gbk, GB2312” ＋ #换行符
如果真 (寻找文本 (局_请求XY, “Accept-Language: ”, 1, 真) ＝ -1)
局_请求XY ＝ 局_请求XY ＋ “Accept-Language: zh-cn” ＋ #换行符
如果真 (寻找文本 (局_请求XY, “Cache-Control: ”, , 真) ＝ -1)
局_请求XY ＝ 局_请求XY ＋ “Cache-Control: no-cache” ＋ #换行符
如果真 (寻找文本 (局_请求XY, “Cookie: ”, , 真) ＝ -1)
如果真 (取文本长度 (提交Cookies) ＞ 0)
局_请求XY ＝ 局_请求XY ＋ “Cookie: ” ＋ 提交Cookies ＋ #换行符

局_请求报头 ＝ 编码_Ansi到Unicode (局_请求XY)
局_数据长度 ＝ 取字节集长度 (局_请求报头) ÷ 2 － 1
如果 (WinHttpAddRequestHeaders (局_请求句柄, 局_请求报头, 局_数据长度, 位或 (536870912, 2147483648)))
局_数据长度 ＝ 0
如果真 (是否为空 (提交信息) ＝ 假)
如果真 (访问方式 ≠ 0)
局_提交数据 ＝ 到字节集 (提交信息)
局_数据长度 ＝ 取字节集长度 (局_提交数据)
WinHttpSendRequest逻辑 ＝ WinHttpSendRequest (局_请求句柄, 0, 0, 局_提交数据, 局_数据长度, 局_数据长度, 0)
如果 (WinHttpSendRequest逻辑)
如果 (WinHttpReceiveResponse (局_请求句柄, 0))
局_缓存数据 ＝ {  }
局_网页数据 ＝ {  }
判断循环首 (WinHttpQueryDataAvailable (局_请求句柄, 局_可读长度))
如果真 (局_可读长度 ＜ 1)
跳出循环 ()
局_缓存数据 ＝ 取空白字节集 (局_可读长度)
如果真 (WinHttpReadData (局_请求句柄, 局_缓存数据, 局_可读长度, 局_数据长度) ＝ 假)
返回状态文本 ＝ “713 读取数据失败!”
跳出循环 ()
局_网页数据 ＝ 局_网页数据 ＋ 取字节集左边 (局_缓存数据, 局_数据长度)
判断循环尾 ()
局_缓存数据 ＝ {  }
局_数据长度 ＝ 0
WinHttpQueryHeaders (局_请求句柄, 22, 0, 局_缓存数据, 局_数据长度, 0)
局_缓存数据 ＝ 取空白字节集 (局_数据长度)
如果真 (WinHttpQueryHeaders (局_请求句柄, 22, 0, 局_缓存数据, 局_数据长度, 0))
返回XY头 ＝ 编码_Unicode到Ansi (局_缓存数据)
返回状态文本 ＝ 取文本中间 (返回XY头, 10, 寻找文本 (返回XY头, #换行符, 10, 假) － 9)
返回XY头 ＝ 子文本替换 (返回XY头, “Set-Cookie”, “Set-Cookie”, , , 假)
局_文本数组 ＝ 分割文本 (返回XY头, #换行符, )
计次循环首 (取数组成员数 (局_文本数组), 局_计次)
如果真 (寻找文本 (局_文本数组 [局_计次], “Set-Cookie”, , 假) ≠ -1)
判断 (寻找文本 (局_文本数组 [局_计次], “;”, , 假) ≠ -1)
返回Cookies ＝ 返回Cookies ＋ 删首尾空 (文本_取出中间文本 (局_文本数组 [局_计次], “Set-Cookie:”, “;”)) ＋ “; ”
返回Cookies ＝ 返回Cookies ＋ 删首尾空 (子文本替换 (局_文本数组 [局_计次], “Set-Cookie:”, , , , 假)) ＋ “; ”

如果真 (文本比较 (取文本左边 (局_文本数组 [局_计次], 10), “Location: ”, 假) ＝ 0)
返回重定向 ＝ 取文本中间 (局_文本数组 [局_计次], 11, 取文本长度 (局_文本数组 [局_计次]) － 10)
处理事件 ()
计次循环尾 ()
返回Cookies ＝ 取文本左

.版本 2<br /> <br /> .子程序 网页_访问S, 文本型, 公开, MIV修改POST无法提交BUG<br /> .参数 网址, 文本型, , 完整的网页地址,必须包含http://或者https://<br /> .参数 访问方式, 整数型, 可空, 0=GET 1=POST 2=HEAD 3=PUT<br /> .参数 提交信息, 文本型, 可空, POST专用<br /> .参数 提交Cookies, 文本型, 可空, 本参数传递变量时会自动回传返回的Cookie<br /> .参数 返回Cookies, 文本型, 可空, 返回的Cookie<br /> .参数 附加XY头, 文本型, 可空, 一行一个请用换行符隔开,建议填写常量值或文本值,防止因传参引发错误<br /> .参数 返回XY头, 文本型, 可空, 返回的XY头<br /> .参数 禁止重定向, 逻辑型, 可空, 默认不禁止网页重定向<br /> .参数 网站登录用户名, 文本型, 可空, 自动登录网页用户名 如路由器<br /> .参数 网站登录密码, 文本型, 可空<br /> .参数 代理地址, 文本型, 可空, 代理地址，格式为 8.8.8.8:88<br /> .参数 代理帐号, 文本型, 可空<br /> .参数 代理密码, 文本型, 可空<br /> .参数 超时时间, , 可空, 可以被省略，单位：秒，默认30秒，如果提供大于0的数值，则修改操作超时时间。<br /> .参数 返回重定向, 文本型, 可空, 可以被省略，提供参数时只能提供文本型变量，用于当发生重定向时取回页面重定向的地址。<br /> .参数 返回状态文本, 文本型, 可空<br /> .参数 返回原始数据, 字节集, 可空, 可以被省略，返回原始网页编码<br /> .局部变量 局_URL结构, URL_COMPONENTS<br /> .局部变量 局_网页地址, 字节集<br /> .局部变量 局_域名, 文本型<br /> .局部变量 局_端口<br /> .局部变量 局_重定向地址, 文本型<br /> .局部变量 局_HTTPS, 逻辑型<br /> .局部变量 局_会话句柄, 整数型<br /> .局部变量 局_User_Agent, 文本型<br /> .局部变量 局_代理名称, 字节集<br /> .局部变量 局_会话类型<br /> .局部变量 局_连接句柄<br /> .局部变量 局_请求句柄<br /> .局部变量 局_访问方式, 文本型<br /> .局部变量 局_页面地址, 字节集<br /> .局部变量 局_设置超时<br /> .局部变量 局_请求标记<br /> .局部变量 局_请求XY, 文本型<br /> .局部变量 局_请求报头, 字节集<br /> .局部变量 局_数据长度, 整数型<br /> .局部变量 局_提交数据, 字节集<br /> .局部变量 局_可读长度, 整数型<br /> .局部变量 局_缓存数据, 字节集<br /> .局部变量 局_网页数据, 字节集<br /> .局部变量 局_网页内容, 文本型<br /> .局部变量 局_文本数组, 文本型, , "0"<br /> .局部变量 局_编码类型, 文本型<br /> .局部变量 局_解码对象, 对象<br /> .局部变量 局_变体型, 变体型<br /> .局部变量 局_计次, 整数型<br /> .局部变量 局_正则, 正则表达式类<br /> .局部变量 WinHttpSendRequest逻辑, 逻辑型<br /> <br /> .如果 (WinHttpCheckPlatform ())<br />     局_URL结构.dwStructSize ＝ 60<br />     连续赋值 (-1, 局_URL结构.dwSchemeLength, 局_URL结构.dwHostNameLength, 局_URL结构.dwUrlPathLength, 局_URL结构.dwExtraInfoLength)<br />     局_网页地址 ＝ 编码_Ansi到Unicode (网址)<br />     .如果 (WinHttpCrackUrl (局_网页地址, 取字节集长度 (局_网页地址), 0, 局_URL结构))<br />         局_域名 ＝ 编码_Unicode到Ansi (指针到字节集 (局_URL结构.lpszHostName, 局_URL结构.dwHostNameLength × 2))<br />         局_页面地址 ＝ 选择 (局_URL结构.dwUrlPathLength ＜ 1, 编码_Ansi到Unicode (“/”), 指针到字节集 (局_URL结构.lpszUrlPath, 局_URL结构.dwUrlPathLength × 2) ＋ 指针到字节集 (局_URL结构.lpszExtraInfo, 局_URL结构.dwExtraInfoLength × 2) ＋ { 0, 0 })<br />         局_端口 ＝ 局_URL结构.nPort<br />         局_HTTPS ＝ 2 ＝ 局_URL结构.nScheme<br />         局_会话类型 ＝ 选择 (取文本长度 (代理地址) ＞ 0, 3, 1)<br />         局_代理名称 ＝ 选择 (取文本长度 (代理地址) ＝ 0, { 0, 0 }, 选择 (局_HTTPS, 编码_Ansi到Unicode (代理地址), 编码_Ansi到Unicode (“http=” ＋ 代理地址)))<br />         局_会话句柄 ＝ WinHttpOpen (0, 局_会话类型, 局_代理名称, 0, 0)<br />         .如果 (局_会话句柄 ≠ 0)<br />             局_连接句柄 ＝ WinHttpConnect (局_会话句柄, 编码_Ansi到Unicode (局_域名), 局_端口, 0)<br />             .如果 (局_连接句柄 ≠ 0)<br />                 .如果真 (访问方式 ＜ 0 或 访问方式 ＞ 3)<br />                     访问方式 ＝ 0<br />                 .如果真结束<br />                 局_访问方式 ＝ 多项选择 (访问方式 ＋ 1, “GET”, “POST”, “HEAD”, “PUT”)<br /> <br />                 ' 局_访问方式 ＝ 选择 (访问方式 ＜ 0 或 访问方式 ＞ 3, 多项选择 (访问方式 ＋ 1, “GET”, “POST”, “HEAD”, “PUT”), “GET”)<br />                 局_请求句柄 ＝ WinHttpOpenRequest (局_连接句柄, 编码_Ansi到Unicode (局_访问方式), 局_页面地址, 0, 0, 0, 选择 (局_HTTPS, 8388608, 0))<br />                 .如果 (局_请求句柄 ≠ 0)<br />                     局_设置超时 ＝ 选择 (超时时间 ＞ 0, 超时时间 × 1000, 30000)<br />                     .如果 (WinHttpSetTimeouts (局_请求句柄, 局_设置超时, 局_设置超时, 局_设置超时, 局_设置超时))<br />                         .如果真 (取文本长度 (网站登录用户名) ＞ 0 且 取文本长度 (网站登录密码) ＞ 0)<br />                             .如果真 (WinHttpSetCredentials (局_请求句柄, 0, 1, 编码_Ansi到Unicode (网站登录用户名), 编码_Ansi到Unicode (网站登录密码), 0) ＝ 假)<br />                                 返回状态文本 ＝ “707 设置代理凭证失败!”<br />                                 WinHttpCloseHandle (局_请求句柄)<br />                                 WinHttpCloseHandle (局_连接句柄)<br />                                 WinHttpCloseHandle (局_会话句柄)<br />                                 返回 (“”)<br />                             .如果真结束<br /> <br />                         .如果真结束<br />                         .如果真 (取文本长度 (代理帐号) ＞ 0 且 取文本长度 (代理密码) ＞ 0)<br />                             .如果真 (WinHttpSetCredentials (局_请求句柄, 1, 1, 编码_Ansi到Unicode (代理帐号), 编码_Ansi到Unicode (代理密码), 0) ＝ 假)<br />                                 WinHttpCloseHandle (局_请求句柄)<br />                                 WinHttpCloseHandle (局_连接句柄)<br />                                 WinHttpCloseHandle (局_会话句柄)<br />                                 返回状态文本 ＝ “707 设置代理凭证失败!”<br />                                 返回 (“”)<br />                             .如果真结束<br /> <br />                         .如果真结束<br />                         局_请求标记 ＝ 选择 (是否为空 (提交Cookies), 63, 79)<br />                         .如果真 (WinHttpSetOption (局_请求句柄, 局_请求标记, 1, 4) ＝ 假)<br />                             返回状态文本 ＝ “708 禁止自动设置Cookies失败!”<br />                             WinHttpCloseHandle (局_请求句柄)<br />                             WinHttpCloseHandle (局_连接句柄)<br />                             WinHttpCloseHandle (局_会话句柄)<br />                             返回 (“”)<br />                         .如果真结束<br />                         .如果真 (禁止重定向)<br />                             .如果真 (WinHttpSetOption (局_请求句柄, 63, 2, 4) ＝ 假)<br />                                 返回状态文本 ＝ “709 重定向设置失败!”<br />                                 WinHttpCloseHandle (局_请求句柄)<br />                                 WinHttpCloseHandle (局_连接句柄)<br />                                 WinHttpCloseHandle (局_会话句柄)<br />                                 返回 (“”)<br />                             .如果真结束<br /> <br />                         .如果真结束<br />                         .如果真 (取文本长度 (附加XY头) ＞ 0)  ' 先加载用户设置的XY头，后面再进行补充。<br />                             局_请求XY ＝ 附加XY头<br />                         .如果真结束<br />                         .如果真 (寻找文本 (局_请求XY, “User-Agent: ”, 1, 真) ＝ -1)<br />                             局_请求XY ＝ 局_请求XY ＋ “User-Agent: Mozilla/5.0 (compatible; MSIE 9.0; Windows NT 6.1; WOW64; Trident/5.0)” ＋ #换行符<br />                         .如果真结束<br />                         .如果真 (寻找文本 (局_请求XY, “Accept: ”, 1, 真) ＝ -1)<br />                             局_请求XY ＝ 局_请求XY ＋ “Accept: text/html, application/xhtml+xml, */*” ＋ #换行符<br />                         .如果真结束<br />                         .如果真 (寻找文本 (局_请求XY, “Accept-Encoding: ”, 1, 真) ＝ -1)<br />                             局_请求XY ＝ 局_请求XY ＋ “Accept-Encoding: gbk, GB2312” ＋ #换行符<br />                         .如果真结束<br />                         .如果真 (寻找文本 (局_请求XY, “Accept-Language: ”, 1, 真) ＝ -1)<br />                             局_请求XY ＝ 局_请求XY ＋ “Accept-Language: zh-cn” ＋ #换行符<br />                         .如果真结束<br />                         .如果真 (寻找文本 (局_请求XY, “Cache-Control: ”, , 真) ＝ -1)<br />                             局_请求XY ＝ 局_请求XY ＋ “Cache-Control: no-cache” ＋ #换行符<br />                         .如果真结束<br />                         .如果真 (寻找文本 (局_请求XY, “Cookie: ”, , 真) ＝ -1)<br />                             .如果真 (取文本长度 (提交Cookies) ＞ 0)<br />                                 局_请求XY ＝ 局_请求XY ＋ “Cookie: ” ＋ 提交Cookies ＋ #换行符<br />                             .如果真结束<br /> <br />                         .如果真结束<br />                         局_请求报头 ＝ 编码_Ansi到Unicode (局_请求XY)<br />                         局_数据长度 ＝ 取字节集长度 (局_请求报头) ÷ 2 － 1<br />                         .如果 (WinHttpAddRequestHeaders (局_请求句柄, 局_请求报头, 局_数据长度, 位或 (536870912, 2147483648)))<br />                             局_数据长度 ＝ 0<br />                             .如果真 (是否为空 (提交信息) ＝ 假)<br />                                 .如果真 (访问方式 ≠ 0)<br />                                     局_提交数据 ＝ 到字节集 (提交信息)<br />                                 .如果真结束<br />                                 局_数据长度 ＝ 取字节集长度 (局_提交数据)<br />                             .如果真结束<br />                             WinHttpSendRequest逻辑 ＝ WinHttpSendRequest (局_请求句柄, 0, 0, 局_提交数据, 局_数据长度, 局_数据长度, 0)<br />                             .如果 (WinHttpSendRequest逻辑)<br />                                 .如果 (WinHttpReceiveResponse (局_请求句柄, 0))<br />                                     局_缓存数据 ＝ {  }<br />                                     局_网页数据 ＝ {  }<br />                                     .判断循环首 (WinHttpQueryDataAvailable (局_请求句柄, 局_可读长度))<br />                                         .如果真 (局_可读长度 ＜ 1)<br />                                             跳出循环 ()<br />                                         .如果真结束<br />                                         局_缓存数据 ＝ 取空白字节集 (局_可读长度)<br />                                         .如果真 (WinHttpReadData (局_请求句柄, 局_缓存数据, 局_可读长度, 局_数据长度) ＝ 假)<br />                                             返回状态文本 ＝ “713 读取数据失败!”<br />                                             跳出循环 ()<br />                                         .如果真结束<br />                                         局_网页数据 ＝ 局_网页数据 ＋ 取字节集左边 (局_缓存数据, 局_数据长度)<br />                                     .判断循环尾 ()<br />                                     局_缓存数据 ＝ {  }<br />                                     局_数据长度 ＝ 0<br />                                     WinHttpQueryHeaders (局_请求句柄, 22, 0, 局_缓存数据, 局_数据长度, 0)<br />                                     局_缓存数据 ＝ 取空白字节集 (局_数据长度)<br />                                     .如果真 (WinHttpQueryHeaders (局_请求句柄, 22, 0, 局_缓存数据, 局_数据长度, 0))<br />                                         返回XY头 ＝ 编码_Unicode到Ansi (局_缓存数据)<br />                                         返回状态文本 ＝ 取文本中间 (返回XY头, 10, 寻找文本 (返回XY头, #换行符, 10, 假) － 9)<br />                                         返回XY头 ＝ 子文本替换 (返回XY头, “Set-Cookie”, “Set-Cookie”, , , 假)<br />                                         局_文本数组 ＝ 分割文本 (返回XY头, #换行符, )<br />                                         .计次循环首 (取数组成员数 (局_文本数组), 局_计次)<br />                                             .如果真 (寻找文本 (局_文本数组 [局_计次], “Set-Cookie”, , 假) ≠ -1)<br />                                                 .判断开始 (寻找文本 (局_文本数组 [局_计次], “;”, , 假) ≠ -1)<br />                                                     返回Cookies ＝ 返回Cookies ＋ 删首尾空 (文本_取出中间文本 (局_文本数组 [局_计次], “Set-Cookie:”, “;”)) ＋ “; ”<br />                                                 .默认<br />                                                     返回Cookies ＝ 返回Cookies ＋ 删首尾空 (子文本替换 (局_文本数组 [局_计次], “Set-Cookie:”, , , , 假)) ＋ “; ”<br />                                                 .判断结束<br /> <br />                                             .如果真结束<br />                                             .如果真 (文本比较 (取文本左边 (局_文本数组 [局_计次], 10), “Location: ”, 假) ＝ 0)<br />                                                 返回重定向 ＝ 取文本中间 (局_文本数组 [局_计次], 11, 取文本长度 (局_文本数组 [局_计次]) － 10)<br />                                             .如果真结束<br />                                             处理事件 ()<br />                                         .计次循环尾 ()<br />                                         返回Cookies ＝ 取文本左

来源于：MIV论坛用户

dmkx1

我只是来打酱油的!!!

158125957

萧阳天 发表于 2015-7-17 14:14
帮忙测试一下带cookie访问是否正常

测试 访问s 吗   
说清楚  

萧阳天

帮忙测试一下带cookie访问是否正常 精易模块5.21- 2015年7月17日.zip (550.86 KB, 下载次数: 34)

2015-7-17 14:13 上传

点击文件名下载附件

158125957

萧阳天 发表于 2015-7-16 17:01
请提供完整修改源码，并注明修改备注，谢谢！

你们先测试 吧   如果你们自己发现了修改部位 我就不必 表面了 如果你们有没有发现  和测试不出其他的bug我就在备注

御风软件

剩下我de孩子气 发表于 2015-7-16 07:37
现在的版本已经没有访问s了

我之前删除了，后面萧阳天他又加上了，名字是一样的，但是，和之前的不一样了

之前的网页访问s，就是网页访问，转码，再到文本。。。现在的这个是重新写的，还是别人写的。。。

萧阳天

请提供完整修改源码，并注明修改备注，谢谢！

158125957

kyseven 发表于 2015-7-16 08:55
没看懂修复什么BUG，不会是修复老版本的吧

    哥  你可以去试试我修改过的和没有修改的  这个5.20的访问s

158125957

剩下我de孩子气 发表于 2015-7-16 07:37
现在的版本已经没有访问s了

又有更新版本了吗 不是5.20吗   还有5.20 是有增加访问s的  有post提交者方面的bug 的

睿思Online

没看懂修复什么BUG，不会是修复老版本的吧