vb.net设置网卡ip的简单介绍

提示：扫一扫查出行
【扫一扫了解最新限行尾号】
复制提示

vb修改ip代码

在菜单中的【工程】—【引用】下，添加“Microsoft WMI Scripting V1.1 Library”，然后在Form1窗体上添加1个Combo1、Text1(0)、Text1(1)、Text1(2)、Text1(3)和Command1、Command2，代码如下：

Option Explicit

Dim objSWbemServices As SWbemServices

Dim objSWbemObjectSet As SWbemObjectSet

Dim objSWbemObject As SWbemObject

'Text1(0)为IP地址、Text1(1)为子网掩码、Text1(2)为缺省网关、Text1(3)为DNS

Private Sub Form_Load()

Set objSWbemServices = GetObject("winmgmts:")

Set objSWbemObjectSet = objSWbemServices.ExecQuery("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")

For Each objSWbemObject In objSWbemObjectSet

Combo1.AddItem objSWbemObject.Description '添加本机上已经安装了TCP/IP协议的网卡

Combo1.Text = Combo1.List(0)

Combo1.ListIndex = 0

End Sub

Private Sub Form_Unload(Cancel As Integer)

Set objSWbemServices = Nothing

Set objSWbemObjectSet = Nothing

Set objSWbemObject = Nothing

End Sub

'当选择了网卡后，显示当前所选网卡的设置

Private Sub Combo1_Click()

Set objSWbemObjectSet = objSWbemServices.ExecQuery("Select * From Win32_NetworkAdapterConfiguration Where Description='" Combo1.Text "'")

For Each objSWbemObject In objSWbemObjectSet

If objSWbemObject.DHCPEnabled Then

Text1(0).Text = ""

Text1(1).Text = ""

Text1(2).Text = ""

If IsNull(objSWbemObject.DNSServerSearchOrder) Then

Text1(3).Text = ""

Else

Text1(3).Text = objSWbemObject.DNSServerSearchOrder(0)

End If

Else

Text1(0).Text = objSWbemObject.IPAddress(0)

Text1(1).Text = objSWbemObject.IPSubnet(0)

Text1(2).Text = objSWbemObject.DefaultIPGateway(0)

Text1(3).Text = objSWbemObject.DNSServerSearchOrder(0)

End If

End Sub

'设置网卡的IP地址、子网掩码、缺省网关和DNS

Private Sub Command1_Click()

Set objSWbemObjectSet = objSWbemServices.ExecQuery("Select * From Win32_NetworkAdapterConfiguration Where Description='" Combo1.Text "'")

For Each objSWbemObject In objSWbemObjectSet

objSWbemObject.EnableStatic Array(Text1(0).Text), Array(Text1(1).Text)

objSWbemObject.SetGateways Array(Text1(2).Text)

objSWbemObject.SetDNSServerSearchOrder Array(Text1(3).Text)

End Sub

Private Sub Command2_Click()

Unload Me

End Sub

相关问答

Q1: vb.net 如何获取指定IP的网卡地址MAC

Public Function EnumNetworkAdapters() As String

Try

Dim query As System.Management.ManagementObjectSearcher = New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_NetworkAdapterConfiguration")

Dim queryCollection As System.Management.ManagementObjectCollection = query.Get()

Dim mo As New System.Management.ManagementObject

For Each mo In queryCollection

If IsDBNull(mo.Item("Description")) = False Then

EnumNetworkAdapters = mo.Item("Description") "|||"

End If

If IsDBNull(mo.Item("macaddress")) = False Then

If mo.Item("macaddress") "" Then

EnumNetworkAdapters = mo.Item("macaddress") "|||"

End If

If IsDBNull(mo.Item("IPAddress")) = False Then

Dim temp As String

temp = Join(mo.Item("IPAddress"), ".")

If temp "" Then

EnumNetworkAdapters = temp "|||"

End If

Catch err AS Exception

EnumNetworkAdapters = err.Message err.StackTrace

End Try

End Function

Q2: 请问怎么用VB修改WIN7系统IP地址、子网掩码、网关、DNS服务器地址

如电脑使用Win7系统，可按以下方法设置DNS：您右键点击电脑桌面的“网络”图标，选择“属性” ＞选择“控制面板” ＞在“网络和共享中心”中可看到当前的网络状况，点击左边的“更改适配器设置” ＞右键单击“本地连接”，选择“属性” ＞选择“internet协议版本4（TCP/IPv4）”，点击“属性” ＞选择“使用下列DNS服务器地址”，输入“首选”及“备用”DNS地址，最后点击“确认”即可。

温馨提示：每个地市的DNS地址参数不同，建议您可联系人工客服或前往营业厅进行咨询了解。

Q3: 如何在vb，net用程序修改ip地址

做exe程序获取本机IP地址用

System.Net.Dns.GetHostByName(System.Net.Dns.GetHostName()).AddressList

做web程序获取客户端的IP地址用

HttpContext.Current.Request.ServerVariables（"REMOTE_ADDR"]）

Q4: 如何设置电脑无线网卡IP地址？

设置方法：

1.点击电脑左下角“开始”，接着点击开始界面右栏出现的“控制面板”

2.在控制面板界面点击选择“网络和internet”。

3.接着点击选择“网络和共享中心”。

4.在新的界面点击选择左侧的“更改适配器设置”。