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的相关技巧就为大家介绍到这里。
【编辑推荐】