vb.net获取网卡 vbnet如何调用api函数

电脑有两张网卡。如何用vb.net分别获取网卡的IP?求大神明路！

'要使得引用System.Management有效，先通过菜单

'[项目]--[添加引用]，在“.Net”选项卡里，选择“System.Management”，单击[确定]

Imports System.Management

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim MySearcher As New ManagementObjectSearcher("SELECT * FROM Win32_NetworkAdapterConfiguration")

For Each MySearcherObj As ManagementObject In MySearcher.Get

If CBool(MySearcherObj("IPEnabled")) Then

MsgBox(MySearcherObj("IPAddress")(0))

End If

Next

End Sub

End Class

相关问答

Q1: vb.net 获取指定网卡的网络连接状态

.net不能获得【指定】网卡vb.net获取网卡的信息vb.net获取网卡，给个思路vb.net获取网卡，先遍历所有网卡vb.net获取网卡，然后找到vb.net获取网卡你需要的的那个网卡的信息。

Q2: 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

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

End If

Next

Catch err AS Exception

EnumNetworkAdapters = err.Message err.StackTrace

End Try

End Function

Q3: vb.net笔记本读不出网卡地址

出现这样的原因，大部分是由于 无线网卡没有安装到位，接触不良造成的。

网卡可以多插几次。如果这样，问题没有解决，带着您的笔记本找网卡服务商，如果他们解决不了，

那问题可能就在于笔记本本身。带着您的本本和卡找您的本本服务商。

Q4: 求大神指点 vb.net 怎么获取 所有网卡的 描述呢? vbs 的也可以

Private Sub GetMyIP()

        Dim strComputer As String

        Dim objWMI As Object

        Dim colIP As Object

        Dim IP As Object

        Dim I As Integer

        strComputer = "."

        objWMI = GetObject("winmgmts://"  strComputer  "/root/cimv2")

        colIP = objWMI.ExecQuery _

        ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")

        For Each IP In colIP

            If Not IsNothing(IP.IPAddress) Then

                For I = LBound(IP.IPAddress) To UBound(IP.IPAddress)

                    MsgBox("IP 地址:"  IP.IPAddress(I)  Chr(10)  _

                    "网卡类型:"  IP.Description(I)  Chr(10)  _

                    "网卡地址:"  IP.Macaddress(I))

                Next

            End If

        Next

    End Sub

Q5: vb.net怎么获取网卡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

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

End If

Next

Catch err A* **ception

EnumNetworkAdapters = err.Message err.StackTrace

End Try

End Function

关于vb.net获取网卡和vbnet如何调用api函数的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。