110,476
社区成员
发帖
与我相关
我的任务
分享
Dim webProxy As IWebProxy
Dim wbp As System.Net.WebProxy = System.Net.WebProxy.GetDefaultProxy()
If (Not IsNothing(wbp.Address)) Then '这个普通exe程序是可以正常拿到 代理服务的ip和端口.,而服务却怎么都不能拿到
IComm.comUtil.PrintErrorHandle("使用代理地址" & wbp.Address.ToString)
webProxy = WebRequest.GetSystemWebProxy()
Else
webProxy = WebRequest.DefaultWebProxy
End If
WebProxy.Credentials = CredentialCache.DefaultNetworkCredentials
request.Proxy = WebProxy
'最后在app.config 里面设置了
<system.net>
<defaultProxy useDefaultCredentials ="false">
<proxy bypassonlocal ="False" proxyaddress ="http://192.168.2.133:8888"/>
</defaultProxy>
设置后. 服务 使用 request.Proxy 时能设置 proxyaddress="http://192.168.2.133:8888" 了. 但是却无返回数据.继续研究下..
Dim request As HttpWebRequest = TryCast(WebRequest.Create(url), HttpWebRequest)
request.Referer = Referer
request.Method = Method.ToUpper
request.UserAgent = "Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; SV1; .NET CLR 2.0.1124)"
request.AllowAutoRedirect = AllowAutoRedirect
request.ContentType = ContentType
request.Accept = ContentType
Dim webProxy As IWebProxy = WebRequest.DefaultWebProxy
webProxy.Credentials = CredentialCache.DefaultNetworkCredentials
request.Proxy = webProxy
request.Timeout = tmout
request.AutomaticDecompression = System.Net.DecompressionMethods.GZip
Return request
Dim webProxy As IWebProxy = WebRequest.DefaultWebProxy
webProxy.Credentials = CredentialCache.DefaultNetworkCredentials
request.Proxy = webProxy
不知我这句话是不是能和那个system.net 的效果是一样的?
客户那边调试要等下午下班的时候才能远程一会儿.我这边也没有他们那边的环境.不好测试.<system.net>
<defaultProxy useDefaultCredentials="false">
<proxy usesystemdefault="True" bypassonlocal="False" autoDetect="True" />
</defaultProxy>
</system.net>