【讨论】VB代理IP上网
怎样能够实现用VB做的浏览器用代理IP上网？ 老马，你永远像神一样有求必应 <p>正好有做过而已.....................- -!</p> <p>使用InternetSetOption函数即可实现本进程范围内有效的代理服务器设置:</p><p> </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/> ByVal hInternet As Long, _<br/> ByVal dwOption As Long, _<br/> ByRef lpBuffer As Any, _<br/> ByVal dwBufferLength As Long) As Long</font></p>
<p><font face="Verdana">Private Type INTERNET_PROXY_INFO<br/> dwAccessType As Long<br/> lpszProxy As String<br/> 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/> Dim lRet As Long, proxyInfo As INTERNET_PROXY_INFO<br/> <br/> With proxyInfo<br/> .dwAccessType = INTERNET_OPEN_TYPE_PROXY<br/> .lpszProxy = "http=125.240.55.130:8080" '目标代理服务器<br/> .lpszProxyBypass = "<local>" '不使用代理服务器列表<br/> End With<br/> lRet = InternetSetOption(0&, INTERNET_OPTION_PROXY, proxyInfo, LenB(proxyInfo))<br/> Debug.Print lRet<br/>End Sub</font></p><br/>
<p><font face="Verdana">Private Sub Command2_Click()<br/> WebBrowser1.Navigate "http://www.m5home.com/myip"<br/>End Sub</font></p></div>
<p>先点Command2查看当前IP,再重启程序,先点击Command1设置代理,后再点Command2,看看效果.</p> 顶 要是可以实现使用带帐户密码的 S5代理 IE 那就更NB了马神 上面的带貌似 是设置为 在内网环境的用户
而ADSL的用户的IE代理好象不设置成功呀 IE代理方面,貌似不分内外网的,只要给出一个服务器,它将本来应该直接发给目标IP的包转给那个服务器,并让那个服务器代发而已.
这个功能这里是需要重启进程才能生效的,这点要注意
另外,使用Socket代理是一样的,只是使用INTERNET_OPTION_PROXY_USERNAME与INTERNET_OPTION_PROXY_PASSWORD来分别设置用户名与密码.
这些直接在MSDN里搜索InternetSetOption函数就有详细解释.
并且因为是编程语言,只要有代码就没多大问题,看不懂英文并不是个非常大的问题.. 斑竹是傻逼，上紫水晶的都是傻逼。 原来你上紫水晶就是为了证明你这个特例呀?
我说呢,今天这45个发帖是这么来的啊,呵呵,还真是辛苦你了,顶了这么多帖子.
话说回来,你还是专门开个帖子吧,咱们仔细讨论一下你对我以及我整个论坛里的人的仇恨问题,不要去影响别人的帖子.
也许,你就像一只躲在阴暗的角落里的老鼠,不敢现真身?
很怕大家知道你是谁是吧?呵呵. 厉害
页:
[1]