VB.NET怎么修改代理服务器

这篇文章主要介绍“VB.NET怎么修改代理服务器”,在日常操作中,相信很多人在VB.NET怎么修改代理服务器问题上存在疑惑,小编查阅了各式资料,整理出简单好用的操作方法,希望对大家解答”VB.NET怎么修改代理服务器”的疑惑有所帮助!接下来,请跟着小编一起来学习吧!

创新互联 - 成都多线服务器托管,四川服务器租用,成都服务器租用,四川网通托管,绵阳服务器托管,德阳服务器托管,遂宁服务器托管,绵阳服务器托管,四川云主机,成都云主机,西南云主机,成都多线服务器托管,西南服务器托管,四川/成都大带宽,机柜大带宽、租用·托管,四川老牌IDC服务商

如果一个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被封的提示页面,代码如下:

  1. If InStr(doc.body.innerText, "IP地址在这一段时间内已经注册了太多的用户") > 0 Then  

  2. Dim options As INTERNET_PROXY_INFO  

  3. options.dwAccessType = INTERNET_OPEN_TYPE_PROXY 

  4. options.lpszProxy = "168.10.46.77:80" 

  5. options.lpszProxyBypass = "" 

  6. internetsetoption 0, internet_option_proxy, options, LenB(options)  

  7. Dim don As Double  

  8. Dim doff As Double  

  9. Set reg = CreateObject("Wscript.Shell")  

  10. a = reg.regwrite("HKEY_CURRENT_USER\Software\Microsoft\
    Windows\CurrentVersion\Internet Settings\ProxyServer", _  

  11. "211.144.96.250:80")  

  12. a = reg.regwrite("HKEY_CURRENT_USER\Software\Microsoft\
    Windows\CurrentVersion\Internet Settings\ProxyEnable", _  

  13. 1)  

  14. internetsetoption 0, INTERNET_OPTION_SETTINGS_CHANGED, 0, 0  

  15. WebBrowser1.Navigate "http://freemail.eyou.com/signup.html?
    bgp=%CE%D2%BD%D3%CA%DC&bgp_enable=on"  

  16. End If 

到此,关于“VB.NET怎么修改代理服务器”的学习就结束了,希望能够解决大家的疑惑。理论与实践的搭配能更好的帮助大家学习,快去试试吧!若想继续学习更多相关知识,请继续关注创新互联网站,小编会继续努力为大家带来更多实用的文章!


文章名称:VB.NET怎么修改代理服务器
URL网址:http://scyanting.com/article/joiooh.html