锐客网

  1. 首页 > 睿知 > it技术 > >

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

IT技术网卡

电脑有两张网卡 。如何用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
vb.net 获取指定网卡的网络连接状态.net不能获得【指定】网卡vb.net获取网卡的信息vb.net获取网卡，给个思路vb.net获取网卡 ， 先遍历所有网卡vb.net获取网卡，然后找到vb.net获取网卡你需要的的那个网卡的信息 。
vb.net 如何获取指定IP的网卡地址MACPublic 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
【vb.net获取网卡 vbnet如何调用api函数】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.Messageerr.StackTrace
End Try
End Function
vb.net笔记本读不出网卡地址出现这样的原因，大部分是由于 无线网卡没有安装到位 ， 接触不良造成的 。
网卡可以多插几次 。如果这样，问题没有解决，带着您的笔记本找网卡服务商 ， 如果他们解决不了，
那问题可能就在于笔记本本身 。带着您的本本和卡找您的本本服务商 。
求大神指点 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
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.Messageerr.StackTrace
End Try
End Function
关于vb.net获取网卡和vbnet如何调用api函数的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息 ， 记得收藏关注本站 。

    推荐阅读


    上一篇：如何确定服务器的网络出口？ 怎么查服务器出口

    下一篇：怎么将word中的数字格式设置，word里如何设置数字格式