VB.NET怎么修改代理服务器
这篇文章主要介绍“VB.NET怎么修改代理服务器”，在日常操作中，相信很多人在VB.NET怎么修改代理服务器问题上存在疑惑，小编查阅了各式资料，整理出简单好用的操作方法，希望对大家解答”VB.NET怎么修改代理服务器”的疑惑有所帮助！接下来，请跟着小编一起来学习吧！
创新互联 - 成都多线服务器托管，四川服务器租用，成都服务器租用，四川网通托管,绵阳服务器托管，德阳服务器托管，遂宁服务器托管，绵阳服务器托管，四川云主机，成都云主机，西南云主机，成都多线服务器托管，西南服务器托管，四川/成都大带宽，机柜大带宽、租用·托管，四川老牌ＩＤＣ服务商
如果一个IP在一段时间过多的注册，则该IP会被封调，一个办法就是修改注册表以实现VB.NET修改代理服务器。在这里我使用一个API函数internetsetoption，使用之前要添加一个模块，然后加入如下代码：
Public Const internet_option_proxy = 38 Public Const INTERNET_OPEN_TYPE_PROXY = 3 Public Const INTERNET_OPTION_SETTINGS_CHANGED = 39 Type INTERNET_PROXY_INFO dwAccessType As Long lpszProxy As String lpszProxyBypass As String End Type Public Declare Function internetsetoption Lib "wininet.dll" _ Alias "InternetSetOptionA" _ (ByVal hinternet As Long, _ ByVal dwoption As Long, _ ByRef lpbuffer As Any, _ ByVal dwbufferlength As Long) As Long
改代码定义了三个常数和一个结构，该API函数的具体用法请大家查询MSDN。VB.NET修改注册表的办法就太多了，我就不多说了。在WebBrowser1_DocumentComplete事件中在添加一个条件语句，用以判断是否是IP被封的提示页面，代码如下：
If InStr(doc.body.innerText, "IP地址在这一段时间内已经注册了太多的用户") > 0 Then
Dim options As INTERNET_PROXY_INFO
options.dwAccessType = INTERNET_OPEN_TYPE_PROXY
options.lpszProxy = "168.10.46.77:80"
options.lpszProxyBypass = ""
internetsetoption 0, internet_option_proxy, options, LenB(options)
Dim don As Double
Dim doff As Double
Set reg = CreateObject("Wscript.Shell")
a = reg.regwrite("HKEY_CURRENT_USER\Software\Microsoft\
Windows\CurrentVersion\Internet Settings\ProxyServer", _"211.144.96.250:80")
a = reg.regwrite("HKEY_CURRENT_USER\Software\Microsoft\
Windows\CurrentVersion\Internet Settings\ProxyEnable", _1)
internetsetoption 0, INTERNET_OPTION_SETTINGS_CHANGED, 0, 0
WebBrowser1.Navigate "http://freemail.eyou.com/signup.html?
bgp=％CE％D2％BD％D3％CA％DC&bgp_enable=on"End If
到此，关于“VB.NET怎么修改代理服务器”的学习就结束了，希望能够解决大家的疑惑。理论与实践的搭配能更好的帮助大家学习，快去试试吧！若想继续学习更多相关知识，请继续关注创新互联网站，小编会继续努力为大家带来更多实用的文章！
分享文章：VB.NET怎么修改代理服务器
转载源于：http://6mz.cn/article/joiooh.html