VB.NET怎么修改代理服務(wù)器

這篇文章主要介紹“VB.NET怎么修改代理服務(wù)器”，在日常操作中，相信很多人在VB.NET怎么修改代理服務(wù)器問(wèn)題上存在疑惑，小編查閱了各式資料，整理出簡(jiǎn)單好用的操作方法，希望對(duì)大家解答”VB.NET怎么修改代理服務(wù)器”的疑惑有所幫助！接下來(lái)，請(qǐng)跟著小編一起來(lái)學(xué)習(xí)吧！

如果一個(gè)IP在一段時(shí)間過(guò)多的注冊(cè)，則該IP會(huì)被封調(diào)，一個(gè)辦法就是修改注冊(cè)表以實(shí)現(xiàn)VB.NET修改代理服務(wù)器。在這里我使用一個(gè)API函數(shù)internetsetoption，使用之前要添加一個(gè)模塊，然后加入如下代碼：

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

改代碼定義了三個(gè)常數(shù)和一個(gè)結(jié)構(gòu)，該API函數(shù)的具體用法請(qǐng)大家查詢MSDN。VB.NET修改注冊(cè)表的辦法就太多了，我就不多說(shuō)了。在WebBrowser1_DocumentComplete事件中在添加一個(gè)條件語(yǔ)句，用以判斷是否是IP被封的提示頁(yè)面，代碼如下：

If InStr(doc.body.innerText, "IP地址在這一段時(shí)間內(nèi)已經(jīng)注冊(cè)了太多的用戶") > 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 

到此，關(guān)于“VB.NET怎么修改代理服務(wù)器”的學(xué)習(xí)就結(jié)束了，希望能夠解決大家的疑惑。理論與實(shí)踐的搭配能更好的幫助大家學(xué)習(xí)，快去試試吧！若想繼續(xù)學(xué)習(xí)更多相關(guān)知識(shí)，請(qǐng)繼續(xù)關(guān)注億速云網(wǎng)站，小編會(huì)繼續(xù)努力為大家?guī)?lái)更多實(shí)用的文章！