轻松掌握VB.NET设置IP技巧

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的相关技巧就为大家介绍到这里。

【编辑推荐】

几步解决VB.NET编写病毒
VB.NET特殊操作符总结概述
VB.NET操作符like作用体现
VB.NET运算符代码示例解析
VB.NET文本框应用经验总结

标题名称：轻松掌握VB.NET设置IP技巧
链接URL：http://www.shufengxianlan.com/qtweb/news19/393269.html

网站建设、网络推广公司-创新互联，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源：创新互联

猜你还喜欢下面的内容