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

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

VB.NET設(shè)置IP其實(shí)利用VB修改ip地址是比較容易的。我利用的就是wmi方式。先是找出當(dāng)前系統(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 '找第一個(gè)網(wǎng)卡就退出  
Next obj End Function  

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

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é)