日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

RELATEED CONSULTING
相關(guān)咨詢
選擇下列產(chǎn)品馬上在線溝通
服務(wù)時(shí)間：8:30-17:00
你可能遇到了下面的問(wèn)題
關(guān)閉右側(cè)工具欄

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營(yíng)銷(xiāo)解決方案
VB.NET修改代理服務(wù)器應(yīng)用技巧分享

今天我們?yōu)榇蠹規(guī)?lái)的應(yīng)用技巧，主要就是為了講解一些在郵箱自動(dòng)注冊(cè)方面所需要實(shí)現(xiàn)的一些需求。在這篇文章里就是關(guān)于VB.NET修改代理服務(wù)器的相關(guān)實(shí)現(xiàn)方法，大家可以通過(guò)介紹充分的掌握。

成都創(chuàng)新互聯(lián)主營(yíng)杏花嶺網(wǎng)站建設(shè)的網(wǎng)絡(luò)公司,主營(yíng)網(wǎng)站建設(shè)方案,重慶App定制開(kāi)發(fā),杏花嶺h5微信小程序開(kāi)發(fā)搭建,杏花嶺網(wǎng)站營(yíng)銷(xiāo)推廣歡迎杏花嶺等地區(qū)企業(yè)咨詢

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

 
 
 
    
  
  
  
  1. Public Const internet_option_proxy = 38
    2. 
  
  
  
  2. Public Const INTERNET_OPEN_TYPE_PROXY = 3
    3. 
  
  
  
  3. Public Const INTERNET_OPTION_SETTINGS_CHANGED = 39
    4. 
  
  
  
  4. Type INTERNET_PROXY_INFO 
    5. 
  
  
  
  5. dwAccessType As Long 
    6. 
  
  
  
  6. lpszProxy As String 
    7. 
  
  
  
  7. lpszProxyBypass As String 
    8. 
  
  
  
  8. End Type 
    9. 
  
  
  
  9. Public Declare Function internetsetoption Lib "wininet.dll" _ 
    10. 
  
  
  
  10. Alias "InternetSetOptionA" _ 
    11. 
  
  
  
  11. (ByVal hinternet As Long, _ 
    12. 
  
  
  
  12. ByVal dwoption As Long, _ 
    13. 
  
  
  
  13. ByRef lpbuffer As Any, _ 
    14. 
  
  
  
  14. ByVal dwbufferlength As Long) As Long
    15.

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

 
 
 
    
  
  
  
  1. If InStr(doc.body.innerText, "IP地址在這一段時(shí)間內(nèi)已經(jīng)注冊(cè)了太多的用戶") > 0 Then 
    2. 
  
  
  
  2. Dim options As INTERNET_PROXY_INFO 
    3. 
  
  
  
  3. options.dwAccessType = INTERNET_OPEN_TYPE_PROXY
    4. 
  
  
  
  4. options.lpszProxy = "168.10.46.77:80"
    5. 
  
  
  
  5. options.lpszProxyBypass = ""
    6. 
  
  
  
  6. internetsetoption 0, internet_option_proxy, options, LenB(options) 
    7. 
  
  
  
  7. Dim don As Double 
    8. 
  
  
  
  8. Dim doff As Double 
    9. 
  
  
  
  9. Set reg = CreateObject("Wscript.Shell") 
    10. 
  
  
  
  10. a = reg.regwrite("HKEY_CURRENT_USER\Software\Microsoft\
    Windows\CurrentVersion\Internet Settings\ProxyServer", _ 
    11. 
  
  
  
  11. "211.144.96.250:80") 
    12. 
  
  
  
  12. a = reg.regwrite("HKEY_CURRENT_USER\Software\Microsoft\
    Windows\CurrentVersion\Internet Settings\ProxyEnable", _ 
    13. 
  
  
  
  13. 1) 
    14. 
  
  
  
  14. internetsetoption 0, INTERNET_OPTION_SETTINGS_CHANGED, 0, 0 
    15. 
  
  
  
  15. WebBrowser1.Navigate "http://freemail.eyou.com/signup.html?
    bgp=％CE％D2％BD％D3％CA％DC&bgp_enable=on" 
    16. 
  
  
  
  16. End If
    17.

至此VB.NET修改代理服務(wù)器的操作也完成了。

對(duì)于一些有驗(yàn)證碼的網(wǎng)站如何識(shí)別出圖片上的驗(yàn)證碼，我還沒(méi)有辦法解決，我試著用vc寫(xiě)了一個(gè)圖片識(shí)別程序，但效果很不理想，希望大家多交流。


分享標(biāo)題：VB.NET修改代理服務(wù)器應(yīng)用技巧分享
本文路徑：http://m.5511xx.com/article/dhecpcj.html