求winhttp高手帮忙解答！

Boy

附上问题源码，求大神帮我解决下，谢谢！
帮忙看一些为什么我换一个HTTPS的网站就不行了？

Boy

招换大神帮我看看，谢谢！@冰点 @凌木 @萧阳天

改名字好难

HTTPS是另一种加密不是么

猥琐小胖子

静易模块源码里面，对HTTPS有判断的。另外你哪个地方用的是WinInet

  

.版本 2。

子程序名	返回值类型	公开	备 注
网页_访问	字节集		使用WinInet的方式访问网页
参数名	类 型	参考	可空	数组	备 注
网址	文本型				完整的网页地址,必须包含http://或者https://
访问方式	整数型				0=GET 1=POST 2=HEAD
提交信息	文本型				POST专用
提交Cookies	文本型				本参数传递变量时会自动回传返回的Cookie
返回Cookies	文本型				返回的Cookie
附加XY头	文本型				一行一个请用换行符隔开,建议填写常量值或文本值,防止因传参引发错误
返回XY头	文本型				返回的XY头
禁止重定向	逻辑型				默认不禁止网页重定向
字节集提交	字节集				提交字节集数据
代理地址	文本型				代理地址，格式为 8.8.8.8:88

变量名	类 型	静态	数组	备 注
局_Internet句柄	整数型
局_Internet连接句柄	整数型
局_HTTP请求句柄	整数型
局_计次	整数型
局_字节集	字节集
局_访问方式	文本型
局_User_Agent	文本型
局_返回XY头	文本型		0
局_页面内容	字节集
局_请求标记	整数型
局_重定向地址	文本型
局_HTTPS	逻辑型

' 局_访问方式 ＝ 选择 (访问方式 ＝ 1, “POST”, “GET”)
如果真 (访问方式 ＜ 0 或 访问方式 ＞ 2)
访问方式 ＝ 0
局_访问方式 ＝ 多项选择 (访问方式 ＋ 1, “GET”, “POST”, “HEAD”)
如果真 (到小写 (取文本左边 (网址, 5)) ＝ “https”)
局_HTTPS ＝ 真

判断 (寻找文本 (附加XY头, “User-Agent:”, , 真) ≠ -1)
局_User_Agent ＝ 删首尾空 (文本_取出中间文本 (附加XY头, “User-Agent:”, #换行符 ))
如果真 (局_User_Agent ＝ “”)
局_User_Agent ＝ 内部_XY头取值 (附加XY头)

局_User_Agent ＝ “Mozilla/4.0 (compatible; MSIE 9.0; Windows NT 6.1)”

判断 (代理地址 ＝ “”)
局_Internet句柄 ＝ InternetOpenA (局_User_Agent, 1, 字符 (0), 字符 (0), 0)
判断 (局_HTTPS)  ' 用于解决win7下httpsXY代理无效问题
局_Internet句柄 ＝ InternetOpenA (局_User_Agent, 3, 代理地址, “”, 0)
局_Internet句柄 ＝ InternetOpenA (局_User_Agent, 3, “http=” ＋ 代理地址, “”, 0)


如果真 (局_Internet句柄 ＝ 0)
InternetCloseHandle (局_Internet句柄)
返回 ({  })
局_Internet连接句柄 ＝ InternetConnectA (局_Internet句柄, 网页_取域名 (网址), 网页_取端口 (网址), 字符 (0), 字符 (0), 3, 0, 0)
如果真 (局_Internet连接句柄 ＝ 0)
InternetCloseHandle (局_Internet连接句柄)
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 (局_HTTP请求句柄)
InternetCloseHandle (局_Internet连接句柄)
InternetCloseHandle (局_Internet句柄)
返回 ({  })

判断 (附加XY头 ＝ “”)
附加XY头 ＝ “Accept: */*”
如果真 (寻找文本 (附加XY头, “Accept:”, , 假) ＝ -1)
附加XY头 ＝ 附加XY头 ＋ #换行符 ＋ “Accept: */*”


如果真 (寻找文本 (附加XY头, “Referer:”, , 假) ＝ -1)
附加XY头 ＝ 附加XY头 ＋ #换行符 ＋ “Referer: ” ＋ 网址

如果真 (寻找文本 (附加XY头, “Accept-Language:”, , 假) ＝ -1)
附加XY头 ＝ 附加XY头 ＋ #换行符 ＋ “Accept-Language: zh-cn”

如果真 (寻找文本 (附加XY头, “Content-Type:”, , 假) ＝ -1)
附加XY头 ＝ 附加XY头 ＋ #换行符 ＋ “Content-Type: application/x-www-form-urlencoded”

如果真 (提交Cookies ≠ “”)
附加XY头 ＝ 附加XY头 ＋ #换行符 ＋ “Cookie: ” ＋ 提交Cookies

判断 (访问方式 ＝ 0)
HttpSendRequestA (局_HTTP请求句柄, 附加XY头, 取文本长度 (附加XY头), “”, 0)
如果真 (字节集提交 ＝ {  })
字节集提交 ＝ 到字节集 (提交信息)
HttpSendRequestA_字节集 (局_HTTP请求句柄, 附加XY头, 取文本长度 (附加XY头), 字节集提交, 取字节集长度 (字节集提交))

局_计次 ＝ 0
判断循环首 (真)
局_字节集 ＝ 取空白字节集 (1024)
InternetReadFile (局_HTTP请求句柄, 局_字节集, 1024, 局_计次)
判断 (局_计次 ＝ 0)
跳出循环 ()
局_页面内容 ＝ 局_页面内容 ＋ 取字节集左边 (局_字节集, 局_计次)

判断循环尾 ()
返回XY头 ＝ 取空白文本 (5000)
HttpQueryInfoA (局_HTTP请求句柄, 22, 返回XY头, 5000, 0)
返回XY头 ＝ 子文本替换 (返回XY头, “Set-Cookie”, “Set-Cookie”, , , 假)
InternetCloseHandle (局_HTTP请求句柄)
InternetCloseHandle (局_Internet连接句柄)
InternetCloseHandle (局_Internet句柄)
局_返回XY头 ＝ 分割文本 (返回XY头, #换行符, )
返回Cookies ＝ “”
计次循环首 (取数组成员数 (局_返回XY头), 局_计次)
如果真 (寻找文本 (局_返回XY头 [局_计次], “Set-Cookie”, , 假) ≠ -1)
判断 (寻找文本 (局_返回XY头 [局_计次], “;”, , 假) ≠ -1)
返回Cookies ＝ 返回Cookies ＋ 删首尾空 (文本_取出中间文本 (局_返回XY头 [局_计次], “Set-Cookie:”, “;”)) ＋ “; ”
返回Cookies ＝ 返回Cookies ＋ 删首尾空 (子文本替换 (局_返回XY头 [局_计次], “Set-Cookie:”, , , , 假)) ＋ “; ”


计次循环尾 ()
返回Cookies ＝ 取文本左边 (返回Cookies, 取文本长度 (返回Cookies) － 2)
如果真 (取反 (是否为空 (提交Cookies)))
网页_Cookie合并更新 (提交Cookies, 返回Cookies)
返回 (局_页面内容)

.版本 2。<br /> <br /> .子程序 网页_访问, 字节集, 公开, 使用WinInet的方式访问网页<br /> .参数 网址, 文本型, , 完整的网页地址,必须包含http://或者https://<br /> .参数 访问方式, 整数型, 可空, 0=GET 1=POST 2=HEAD<br /> .参数 提交信息, 文本型, 可空, POST专用<br /> .参数 提交Cookies, 文本型, 参考 可空, 本参数传递变量时会自动回传返回的Cookie<br /> .参数 返回Cookies, 文本型, 可空, 返回的Cookie<br /> .参数 附加XY头, 文本型, 可空, 一行一个请用换行符隔开,建议填写常量值或文本值,防止因传参引发错误<br /> .参数 返回XY头, 文本型, 参考 可空, 返回的XY头<br /> .参数 禁止重定向, 逻辑型, 可空, 默认不禁止网页重定向<br /> .参数 字节集提交, 字节集, 可空, 提交字节集数据<br /> .参数 代理地址, 文本型, 可空, 代理地址，格式为 8.8.8.8:88<br /> .局部变量 局_Internet句柄, 整数型<br /> .局部变量 局_Internet连接句柄, 整数型<br /> .局部变量 局_HTTP请求句柄, 整数型<br /> .局部变量 局_计次, 整数型<br /> .局部变量 局_字节集, 字节集<br /> .局部变量 局_访问方式, 文本型<br /> .局部变量 局_User_Agent, 文本型<br /> .局部变量 局_返回XY头, 文本型, , "0"<br /> .局部变量 局_页面内容, 字节集<br /> .局部变量 局_请求标记, 整数型<br /> .局部变量 局_重定向地址, 文本型<br /> .局部变量 局_HTTPS, 逻辑型<br /> <br /> ' 局_访问方式 ＝ 选择 (访问方式 ＝ 1, “POST”, “GET”)<br /> .如果真 (访问方式 ＜ 0 或 访问方式 ＞ 2)<br />     访问方式 ＝ 0<br /> .如果真结束<br /> 局_访问方式 ＝ 多项选择 (访问方式 ＋ 1, “GET”, “POST”, “HEAD”)<br /> <br /> .如果真 (到小写 (取文本左边 (网址, 5)) ＝ “https”)<br />     局_HTTPS ＝ 真<br /> .如果真结束<br /> <br /> .判断开始 (寻找文本 (附加XY头, “User-Agent:”, , 真) ≠ -1)<br />     局_User_Agent ＝ 删首尾空 (文本_取出中间文本 (附加XY头, “User-Agent:”, #换行符))<br />     .如果真 (局_User_Agent ＝ “”)<br />         局_User_Agent ＝ 内部_XY头取值 (附加XY头)<br />     .如果真结束<br /> <br /> .默认<br />     局_User_Agent ＝ “Mozilla/4.0 (compatible; MSIE 9.0; Windows NT 6.1)”<br /> .判断结束<br /> <br /> .判断开始 (代理地址 ＝ “”)<br />     局_Internet句柄 ＝ InternetOpenA (局_User_Agent, 1, 字符 (0), 字符 (0), 0)<br /> .默认<br />     .判断开始 (局_HTTPS)  ' 用于解决win7下httpsXY代理无效问题<br />         局_Internet句柄 ＝ InternetOpenA (局_User_Agent, 3, 代理地址, “”, 0)<br />     .默认<br />         局_Internet句柄 ＝ InternetOpenA (局_User_Agent, 3, “http=” ＋ 代理地址, “”, 0)<br />     .判断结束<br /> <br /> .判断结束<br /> <br /> .如果真 (局_Internet句柄 ＝ 0)<br />     InternetCloseHandle (局_Internet句柄)<br />     返回 ({  })<br /> .如果真结束<br /> 局_Internet连接句柄 ＝ InternetConnectA (局_Internet句柄, 网页_取域名 (网址), 网页_取端口 (网址), 字符 (0), 字符 (0), 3, 0, 0)<br /> .如果真 (局_Internet连接句柄 ＝ 0)<br />     InternetCloseHandle (局_Internet连接句柄)<br />     InternetCloseHandle (局_Internet句柄)<br />     返回 ({  })<br /> .如果真结束<br /> <br /> 局_请求标记 ＝ 位或 (#INTERNET_FLAG_RELOAD, #INTERNET_COOKIE_THIRD_PARTY)<br /> .如果真 (取反 (是否为空 (提交Cookies)))<br />     局_请求标记 ＝ 位或 (局_请求标记, #INTERNET_FLAG_NO_COOKIES)<br /> .如果真结束<br /> <br /> .如果真 (禁止重定向)<br />     局_请求标记 ＝ 位或 (局_请求标记, #INTERNET_FLAG_NO_AUTO_REDIRECT)<br /> .如果真结束<br /> <br /> .判断开始 (局_HTTPS)<br />     局_请求标记 ＝ 位或 (局_请求标记, #INTERNET_FLAG_SECURE)<br /> .默认<br />     局_请求标记 ＝ 位或 (局_请求标记, #INTERNET_FLAG_IGNORE_REDIRECT_TO_HTTPS)<br /> .判断结束<br /> <br /> 局_HTTP请求句柄 ＝ HttpOpenRequestA (局_Internet连接句柄, 局_访问方式, 网页_取页面地址 (网址), “HTTP/1.1”, 字符 (0), 字符 (0), 局_请求标记, 0)<br /> .如果真 (局_HTTP请求句柄 ＝ 0)<br />     InternetCloseHandle (局_HTTP请求句柄)<br />     InternetCloseHandle (局_Internet连接句柄)<br />     InternetCloseHandle (局_Internet句柄)<br />     返回 ({  })<br /> .如果真结束<br /> <br /> <br /> .判断开始 (附加XY头 ＝ “”)<br />     附加XY头 ＝ “Accept: */*”<br /> .默认<br />     .如果真 (寻找文本 (附加XY头, “Accept:”, , 假) ＝ -1)<br />         附加XY头 ＝ 附加XY头 ＋ #换行符 ＋ “Accept: */*”<br />     .如果真结束<br /> <br /> .判断结束<br /> <br /> .如果真 (寻找文本 (附加XY头, “Referer:”, , 假) ＝ -1)<br />     附加XY头 ＝ 附加XY头 ＋ #换行符 ＋ “Referer: ” ＋ 网址<br /> .如果真结束<br /> <br /> .如果真 (寻找文本 (附加XY头, “Accept-Language:”, , 假) ＝ -1)<br />     附加XY头 ＝ 附加XY头 ＋ #换行符 ＋ “Accept-Language: zh-cn”<br /> .如果真结束<br /> <br /> .如果真 (寻找文本 (附加XY头, “Content-Type:”, , 假) ＝ -1)<br />     附加XY头 ＝ 附加XY头 ＋ #换行符 ＋ “Content-Type: application/x-www-form-urlencoded”<br /> .如果真结束<br /> <br /> .如果真 (提交Cookies ≠ “”)<br />     附加XY头 ＝ 附加XY头 ＋ #换行符 ＋ “Cookie: ” ＋ 提交Cookies<br /> .如果真结束<br /> <br /> <br /> .判断开始 (访问方式 ＝ 0)<br />     HttpSendRequestA (局_HTTP请求句柄, 附加XY头, 取文本长度 (附加XY头), “”, 0)<br /> .默认<br />     .如果真 (字节集提交 ＝ {  })<br />         字节集提交 ＝ 到字节集 (提交信息)<br />     .如果真结束<br />     HttpSendRequestA_字节集 (局_HTTP请求句柄, 附加XY头, 取文本长度 (附加XY头), 字节集提交, 取字节集长度 (字节集提交))<br /> .判断结束<br /> <br /> 局_计次 ＝ 0<br /> .判断循环首 (真)<br />     局_字节集 ＝ 取空白字节集 (1024)<br />     InternetReadFile (局_HTTP请求句柄, 局_字节集, 1024, 局_计次)<br />     .判断开始 (局_计次 ＝ 0)<br />         跳出循环 ()<br />     .默认<br />         局_页面内容 ＝ 局_页面内容 ＋ 取字节集左边 (局_字节集, 局_计次)<br />     .判断结束<br /> <br /> .判断循环尾 ()<br /> <br /> 返回XY头 ＝ 取空白文本 (5000)<br /> HttpQueryInfoA (局_HTTP请求句柄, 22, 返回XY头, 5000, 0)<br /> 返回XY头 ＝ 子文本替换 (返回XY头, “Set-Cookie”, “Set-Cookie”, , , 假)<br /> InternetCloseHandle (局_HTTP请求句柄)<br /> InternetCloseHandle (局_Internet连接句柄)<br /> InternetCloseHandle (局_Internet句柄)<br /> 局_返回XY头 ＝ 分割文本 (返回XY头, #换行符, )<br /> 返回Cookies ＝ “”<br /> .计次循环首 (取数组成员数 (局_返回XY头), 局_计次)<br />     .如果真 (寻找文本 (局_返回XY头 [局_计次], “Set-Cookie”, , 假) ≠ -1)<br />         .判断开始 (寻找文本 (局_返回XY头 [局_计次], “;”, , 假) ≠ -1)<br />             返回Cookies ＝ 返回Cookies ＋ 删首尾空 (文本_取出中间文本 (局_返回XY头 [局_计次], “Set-Cookie:”, “;”)) ＋ “; ”<br />         .默认<br />             返回Cookies ＝ 返回Cookies ＋ 删首尾空 (子文本替换 (局_返回XY头 [局_计次], “Set-Cookie:”, , , , 假)) ＋ “; ”<br />         .判断结束<br /> <br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回Cookies ＝ 取文本左边 (返回Cookies, 取文本长度 (返回Cookies) － 2)<br /> .如果真 (取反 (是否为空 (提交Cookies)))<br />     网页_Cookie合并更新 (提交Cookies, 返回Cookies)<br /> .如果真结束<br /> 返回 (局_页面内容)

Boy

猥琐小胖子 发表于 2015-8-19 01:47
静易模块源码里面，对HTTPS有判断的。另外你哪个地方用的是WinInet
[e=0].版本 2。

你好，能帮我在原来的基础上修改下吗？我需要在原来的源码上修改。谢谢！

Boy

改名字好难 发表于 2015-8-19 01:24
HTTPS是另一种加密不是么

噢噢，能帮我修改下源码吗？使得可以访问https网页。谢谢！

Boy

dengxiyin 发表于 2015-8-19 00:59
招换大神帮我看看，谢谢！@冰点 @凌木 @萧阳天

@萧阳天 求大神，帮我看看！

birdmanxp

你用的明明是wininet不是winhttp。

Boy

求大神出现！

Boy

birdmanxp 发表于 2015-8-19 15:26
你用的明明是wininet不是winhttp。

噢噢，可以帮我修改成winhttp吗？使得实现同样的功能！