輕松掌握VB.NET設置IP技巧
作者：佚名
VB.NET設置IP的實現比較容易，可以利用wmi方式來進行具體的操作。我們可以通過本文介紹的相關方法對此有一個詳細的解讀。
VB.NET編程語言主要是面向對象。隨著它的應用日趨成熟，大家慢慢體會到了其功能的強大和新穎。在這里我們會通過一個VB.NET設置IP的小例子來詳細分析這一語言的具體用法，希望能給大家帶來幫助。
這些天總是帶著筆記本在家/單位/客戶等等幾個地方跑來跑去的，于是在各個地方上網都是要重新設置的，有時候有線，有時候無線。唉，昨天我終于爆發了，再也受不了這么沒有盡頭的折磨了。于是我又用VB寫了一個簡單的IP設置轉換器。
VB.NET設置IP其實利用VB修改ip地址是比較容易的。我利用的就是wmi方式。先是找出當前系統的所有網卡信息，下面給出的是找出所有網卡MAC地址的例程： Function GetMACaddress（）
- Dim tempBool As Boolean strComputer = "."
- Set objWMIServiceGL = GetObject
（"winmgmts：\\" & strComputer &
"\root\cimv2"）- Set colNetAdaptersGL =
objWMIServiceGL.ExecQuery
（"Select * from Win32_Network
AdapterConfiguration where
（IPEnabled=TRUE）"）- For Each obj In objs
- getMACAddressgetMACAddress =
getMACAddress & obj.macaddress
& VBCrLf & VBCrLf- 'Exit For '找第一個網卡就退出
- Next obj End Function
VB.NET設置IP大下一步就是根據所找到的各個網卡的進行信息（IP，DNS等）更改：
- Function ModifyIP（） strComputer = "."
- Set objWMIService = GetObject
（"winmgmts：\\" & strComputer &
"\root\cimv2"）- Set objSWbemObjectSet = objSWbem
Services.ExecQuery（"Select * From
Win32_NetworkAdapterConfiguration
Where Description='" &
Combo1.Text & "'"）- For Each objNetAdapter In colNet
Adapters sip = objNetAdapter.
IPaddress（0）- If Option1.Value = True Then
'DHCP is enabled- objNetAdapter.EnableDHCP
- errDNS = objNetAdapter.SetDNS
ServerSearchOrder（）- Else strIPAddress = Array（Text1.Text）
- strSubnetMask = Array（Text2.Text）
- strGateway = Array（Text3.Text）
- strGatewaymetric = Array（1）
- StrDns = Array（Text4.Text，
Text5.Text）- errEnable = objNetAdapter.
EnableStatic（strIPAddress，
strSubnetMask）- errGateways = objNetAdapter.SetGateways
（strGateway， strGatewaymetric）- errDNS = objNetAdapter.SetDNS
ServerSearchOrder（StrDns）- 'Exit For '只修改第一個網卡的設置
- End If Next
- End Function
VB.NET設置IP的相關技巧就為大家介紹到這里。
【編輯推薦】
責任編輯：曹凱
來源：
中國IT實驗室
