我正在尝试在WebBrowser控件请求中添加2件事:1)用户代理,2)引用URL,(可选3):接受类型。
我的代码:
Dim Headers As String = "Accept: */*" & Chr(10) & Chr(13)
Headers = Headers & "Referer: " & "http://www.google.com/" & Chr(10) & Chr(13)
Headers = Headers & "User-Agent: " & "My Program User Agent" & Chr(10) & Chr(13)
WebBrowser1.Navigate(UrlToVisit, "_self", Nothing, Headers)
上面的代码仅发送用户代理。如果我删除用户代理,则"接受"和"引用URL"都已设置。
似乎每当我添加用户代理附加标头时,任何其他自定义附加标头都会被取消。
这是WebBrowser的错误/无法做的事情还是我在这里做了严重的错误?!
编辑:片刻之后解决了问题 - 我的用户代理来自文本框,有一个额外的 vbcrlf 导致其他标头不起作用,在修剪后一切正常:)
另一个注意事项:你设置chr(10)和chr(13)时,它应该是相反的。http标准中的CRLF表示chr(13)和chr(10)