【讨论】VB代理IP上网

501207256

怎样能够实现用VB做的浏览器用代理IP上网？

link0007

老马，你永远像神一样有求必应

马大哈

<p>正好有做过而已.....................- -!</p>

马大哈

<p>使用InternetSetOption函数即可实现本进程范围内有效的代理服务器设置:</p>
<p>&nbsp;</p>
<div class="msgheader">QUOTE:</div><div class="msgborder"><b>窗体内添加一个WebBrowser1,两个按钮：</b><br/>
<p><font face="Verdana">Option Explicit</font></p><br/>
<p><font face="Verdana">Private Declare Function InternetSetOption Lib "wininet.dll" Alias "InternetSetOptionW" ( _<br/>&nbsp;&nbsp;&nbsp;&nbsp; ByVal hInternet As Long, _<br/>&nbsp;&nbsp;&nbsp;&nbsp; ByVal dwOption As Long, _<br/>&nbsp;&nbsp;&nbsp;&nbsp; ByRef lpBuffer As Any, _<br/>&nbsp;&nbsp;&nbsp;&nbsp; ByVal dwBufferLength As Long) As Long</font></p>
<p><font face="Verdana">Private Type INTERNET_PROXY_INFO<br/>&nbsp;&nbsp;&nbsp; dwAccessType As Long<br/>&nbsp;&nbsp;&nbsp; lpszProxy As String<br/>&nbsp;&nbsp;&nbsp; lpszProxyBypass As String<br/>End Type<br/>Private Const INTERNET_OPTION_PROXY As Long = 38<br/>Private Const INTERNET_OPEN_TYPE_PROXY As Long = 3</font></p><br/>
<p><font face="Verdana">Private Sub Command1_Click()<br/>&nbsp;&nbsp;&nbsp; Dim lRet As Long, proxyInfo As INTERNET_PROXY_INFO<br/>&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp; With proxyInfo<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .dwAccessType = INTERNET_OPEN_TYPE_PROXY<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .lpszProxy = "http=125.240.55.130:8080"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '目标代理服务器<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .lpszProxyBypass = "&lt;local&gt;"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '不使用代理服务器列表<br/>&nbsp;&nbsp;&nbsp; End With<br/>&nbsp;&nbsp;&nbsp; lRet = InternetSetOption(0&amp;, INTERNET_OPTION_PROXY, proxyInfo, LenB(proxyInfo))<br/>&nbsp;&nbsp;&nbsp; Debug.Print lRet<br/>End Sub</font></p><br/>
<p><font face="Verdana">Private Sub Command2_Click()<br/>&nbsp;&nbsp;&nbsp; WebBrowser1.Navigate "http://www.m5home.com/myip"<br/>End Sub</font></p></div>
<p>先点Command2查看当前IP,再重启程序,先点击Command1设置代理,后再点Command2,看看效果.</p>

qiji2009

顶 要是可以实现使用带帐户密码的 S5代理 IE 那就更NB了马神

qiji2009

上面的带貌似 是设置为 在内网环境的用户

而ADSL的用户的IE代理好象不设置成功呀

马大哈

IE代理方面,貌似不分内外网的,只要给出一个服务器,它将本来应该直接发给目标IP的包转给那个服务器,并让那个服务器代发而已.

这个功能这里是需要重启进程才能生效的,这点要注意

另外,使用Socket代理是一样的,只是使用INTERNET_OPTION_PROXY_USERNAME与INTERNET_OPTION_PROXY_PASSWORD来分别设置用户名与密码.

这些直接在MSDN里搜索InternetSetOption函数就有详细解释.

并且因为是编程语言,只要有代码就没多大问题,看不懂英文并不是个非常大的问题..

everyone

斑竹是傻逼，上紫水晶的都是傻逼。

马大哈

原来你上紫水晶就是为了证明你这个特例呀?

我说呢,今天这45个发帖是这么来的啊,呵呵,还真是辛苦你了,顶了这么多帖子.

话说回来,你还是专门开个帖子吧,咱们仔细讨论一下你对我以及我整个论坛里的人的仇恨问题,不要去影响别人的帖子.

也许,你就像一只躲在阴暗的角落里的老鼠,不敢现真身?

很怕大家知道你是谁是吧?呵呵.

shenghoumeng

厉害