vb获取ip 网关

 

因为经常要换网关，嫌麻烦，就想利用一下编程来快速切换网关，可是结果找了好多都不行

找了下面两个还算可以的学习学习，为了自己的方便一定要把它改好嘎嘎~~~~~~^_^

 

获取ip可以用winsock控件 winsock1.localip获得

 

网关怎么获得呢

 

代码一

Function ChangeIP(IP As String, NM As String, GW As String, MDNS As String) As String '返回值说明:返回一个设置的中文说明. Dim strComputer, objWMIService, colNetAdapters, strIPAddress, strSubnetMask Dim strGateway, strGatewaymetric, strDNS, objNetAdapter, errEnable, errGateways, errDNS strComputer = "." Set objWMIService = GetObject("winmgmts://" & strComputer & "/root/cimv2") Set colNetAdapters = objWMIService.ExecQuery("select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE") strIPAddress = Array(IP) 'ip地址 strSubnetMask = Array(NM) '子网掩码 strGateway = Array(GW) '网关 strDNS = Array(MDNS) '主DNS各备DNS strGatewaymetric = Array(1) For Each objNetAdapter In colNetAdapters errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask) errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric) errDNS = objNetAdapter.SetDNSServerSearchOrder(strDNS) If errEnable = 0 And errGateways = 0 And errDNS = 0 Then ChangeIP = "设置成功" Else If errEnable = 0 Then ChangeIP = "IP地址和子网掩码设置成功, " Else ChangeIP = "IP地址或子网掩码设置失败, " End If If errGateways = 0 Then ChangeIP = ChangeIP & "默认网关设置成功, " Else ChangeIP = ChangeIP & "默认网关设置失败, " End If If errDNS = 0 Then ChangeIP = ChangeIP & "DNS设置成功" Else ChangeIP = ChangeIP & "DNS设置失败" End If End If Next End Function Private Sub Command1_Click() MsgBox ChangeIP("192.168.1.103", "255.255.255.0", "192.168.1.2", "202.99.192.66") End Sub

但是这段代码返回值老是错误，本人新手，不知道哪里返回值错误

 

代码2

Option Explicit Dim objSWbemServices As SWbemServices Dim objSWbemObjectSet As SWbemObjectSet Dim objSWbemObject As SWbemObject Private Type NetCard Name As String IPAdress As String IpSubNets As String IpGateWay As String DnsString0 As String DnsString1 As String MacAdress As String End Type Dim MtNetCard() As NetCard Private Sub Command1_Click() Dim i As Long For i = LBound(MtNetCard) To UBound(MtNetCard) - 1 Text1 = Text1 & "网卡： " & MtNetCard(i).Name & vbNewLine Text1 = Text1 & "ip地址： " & MtNetCard(i).IPAdress & vbNewLine Text1 = Text1 & "子网掩码：" & MtNetCard(i).IpSubNets & vbNewLine Text1 = Text1 & "网关： " & MtNetCard(i).IpGateWay & vbNewLine Text1 = Text1 & "DNS1： " & MtNetCard(i).DnsString0 & vbNewLine Text1 = Text1 & "DNS2： " & MtNetCard(i).DnsString1 & vbNewLine Text1 = Text1 & "MAC： " & MtNetCard(i).MacAdress & vbNewLine Next Erase MtNetCard End Sub Private Sub Form_Load() ReDim MtNetCard(0) As NetCard Set objSWbemServices = GetObject("winmgmts:") Set objSWbemObjectSet = objSWbemServices.ExecQuery("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE") For Each objSWbemObject In objSWbemObjectSet On Error Resume Next MtNetCard(UBound(MtNetCard)).Name = objSWbemObject.Description '添加本机上已经安装了TCP/IP协议的网卡 MtNetCard(UBound(MtNetCard)).IPAdress = objSWbemObject.IPAddress(0) MtNetCard(UBound(MtNetCard)).IpSubNets = objSWbemObject.IPSubnet(0) MtNetCard(UBound(MtNetCard)).IpGateWay = objSWbemObject.DefaultIPGateway(0) MtNetCard(UBound(MtNetCard)).DnsString0 = objSWbemObject.DNSServerSearchOrder(0) MtNetCard(UBound(MtNetCard)).DnsString1 = objSWbemObject.DNSServerSearchOrder(1) MtNetCard(UBound(MtNetCard)).MacAdress = objSWbemObject.MacAddress(0) ReDim Preserve MtNetCard(UBound(MtNetCard) + 1) As NetCard Next End Sub

 

可以获得网关，学习学习吧