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

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

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營銷解決方案
輕松掌握VB.NET設(shè)置IP技巧

VB.NET編程語言主要是面向?qū)ο?。隨著它的應(yīng)用日趨成熟，大家慢慢體會到了其功能的強(qiáng)大和新穎。在這里我們會通過一個VB.NET設(shè)置IP的小例子來詳細(xì)分析這一語言的具體用法，希望能給大家?guī)韼椭?/p>

這些天總是帶著筆記本在家/單位/客戶等等幾個地方跑來跑去的，于是在各個地方上網(wǎng)都是要重新設(shè)置的，有時候有線，有時候無線。唉，昨天我終于爆發(fā)了，再也受不了這么沒有盡頭的折磨了。于是我又用VB寫了一個簡單的IP設(shè)置轉(zhuǎn)換器。

VB.NET設(shè)置IP其實(shí)利用VB修改ip地址是比較容易的。我利用的就是wmi方式。先是找出當(dāng)前系統(tǒng)的所有網(wǎng)卡信息，下面給出的是找出所有網(wǎng)卡MAC地址的例程： Function GetMACaddress（）

 
 
 
    
  
  
  
  1. Dim tempBool As Boolean strComputer = "." 
    2. 
  
  
  
  2. Set objWMIServiceGL = GetObject
    （"winmgmts：\\" & strComputer & 
    "\root\cimv2"）  
    3. 
  
  
  
  3. Set colNetAdaptersGL = 
    objWMIServiceGL.ExecQuery
    （"Select * from Win32_Network
    AdapterConfiguration where
    （IPEnabled=TRUE）"）  
    4. 
  
  
  
  4. For Each obj In objs  
    5. 
  
  
  
  5. getMACAddressgetMACAddress = 
    getMACAddress & obj.macaddress 
    & VBCrLf & VBCrLf  
    6. 
  
  
  
  6. 'Exit For '找第一個網(wǎng)卡就退出  
    7. 
  
  
  
  7. Next obj End Function  
    8.

VB.NET設(shè)置IP大下一步就是根據(jù)所找到的各個網(wǎng)卡的進(jìn)行信息（IP，DNS等）更改：

 
 
 
    
  
  
  
  1. Function ModifyIP（） strComputer = "." 
    2. 
  
  
  
  2. Set objWMIService = GetObject
    （"winmgmts：\\" & strComputer & 
    "\root\cimv2"）  
    3. 
  
  
  
  3. Set objSWbemObjectSet = objSWbem
    Services.ExecQuery（"Select * From 
    Win32_NetworkAdapterConfiguration 
    Where Description='" & 
    Combo1.Text & "'"）  
    4. 
  
  
  
  4. For Each objNetAdapter In colNet
    Adapters sip = objNetAdapter.
    IPaddress（0）  
    5. 
  
  
  
  5. If Option1.Value = True Then 
    'DHCP is enabled  
    6. 
  
  
  
  6. objNetAdapter.EnableDHCP  
    7. 
  
  
  
  7. errDNS = objNetAdapter.SetDNS
    ServerSearchOrder（）  
    8. 
  
  
  
  8. Else strIPAddress = Array（Text1.Text）  
    9. 
  
  
  
  9. strSubnetMask = Array（Text2.Text）  
    10. 
  
  
  
  10. strGateway = Array（Text3.Text）  
    11. 
  
  
  
  11. strGatewaymetric = Array（1）  
    12. 
  
  
  
  12. StrDns = Array（Text4.Text， 
    Text5.Text）  
    13. 
  
  
  
  13. errEnable = objNetAdapter.
    EnableStatic（strIPAddress， 
    strSubnetMask）  
    14. 
  
  
  
  14. errGateways = objNetAdapter.SetGateways
    （strGateway， strGatewaymetric）  
    15. 
  
  
  
  15. errDNS = objNetAdapter.SetDNS
    ServerSearchOrder（StrDns）  
    16. 
  
  
  
  16. 'Exit For '只修改第一個網(wǎng)卡的設(shè)置  
    17. 
  
  
  
  17. End If Next   
    18. 
  
  
  
  18. End Function  
    19.

VB.NET設(shè)置IP的相關(guān)技巧就為大家介紹到這里。

【編輯推薦】

  1. 幾步解決VB.NET編寫病毒
  2. VB.NET特殊操作符總結(jié)概述
  3. VB.NET操作符like作用體現(xiàn)
  4. VB.NET運(yùn)算符代碼示例解析
  5. VB.NET文本框應(yīng)用經(jīng)驗(yàn)總結(jié)

網(wǎng)站欄目：輕松掌握VB.NET設(shè)置IP技巧
URL網(wǎng)址：http://www.5511xx.com/article/dpogdci.html