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

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

VB.NET設置IP其實利用VB修改ip地址是比較容易的。我利用的就是wmi方式。先是找出當前系統(tǒng)的所有網(wǎng)卡信息，下面給出的是找出所有網(wǎng)卡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 '找第一個網(wǎng)卡就退出  
Next obj End Function  

VB.NET設置IP大下一步就是根據(jù)所找到的各個網(wǎng)卡的進行信息（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 '只修改第一個網(wǎng)卡的設置  
End If Next   
End Function  

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

【編輯推薦】

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