求大神指點 vb點虐 怎么獲取 所有網(wǎng)卡的 描述呢? vbs 的也可以

Private?Sub?GetMyIP()

專注于為中小企業(yè)提供成都網(wǎng)站制作、成都做網(wǎng)站、外貿(mào)營銷網(wǎng)站建設(shè)服務(wù),電腦端+手機端+微信端的三站合一,更高效的管理,為中小企業(yè)朝陽縣免費做網(wǎng)站提供優(yōu)質(zhì)的服務(wù)。我們立足成都，凝聚了一批互聯(lián)網(wǎng)行業(yè)人才，有力地推動了上1000家企業(yè)的穩(wěn)健成長，幫助中小企業(yè)通過網(wǎng)站建設(shè)實現(xiàn)規(guī)模擴充和轉(zhuǎn)變。

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)??_

答斗瞎????????????????"網(wǎng)卡類型:"??IP.Description(I)??Chr(10)??_

"網(wǎng)卡地址:"??IP.Macaddress(I))

Next

End?If

Next

End?Sub

電腦有兩張網(wǎng)卡。如何用vb點虐 分別獲取網(wǎng)卡的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點虐 獲取指定網(wǎng)卡的網(wǎng)絡(luò)連接狀態(tài)

點虐 不能獲得【指定】網(wǎng)卡的信息，給個思路，先遍歷所有網(wǎng)卡，然后找到你需要的的那個網(wǎng)卡的信息。

用vb點虐 實現(xiàn)網(wǎng)絡(luò)通信

用 vb點虐 socket通信

Dim th As Threading.Thread

2 Dim tcpl As System.Net.Sockets.TcpListener

3

4 Private Sub Form1_Load()Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

5 th = New System.Threading.Thread(New System.Threading.ThreadStart(AddressOf MyListen))

6 th.Start()

7 End Sub

8

9 Public Sub SendMessage()Sub SendMessage(ByVal IP As String, ByVal SendMsg As String)

10 Try

11 If IP "" Then

12 Dim tcpc As New System.Net.Sockets.TcpClient(IP, 5656)

13 Dim tcpStream As Net.Sockets.NetworkStream = tcpc.GetStream

14 Dim reqStream As New IO.StreamWriter(tcpStream)

15 reqStream.Write(SendMsg)

16 reqStream.Flush()

17 tcpStream.Close()

18 tcpc.Close()

19 End If

20 Catch ex As Exception

21 MsgBox(ex.Message.ToString)

22 End Try

23 End Sub

24 Private Sub MyListen()Sub MyListen()

25 Try

26 Dim ipAddress As System.Net.IPAddress = System.Net.Dns.Resolve(System.Net.Dns.GetHostName).AddressList(0)

27 tcpl = New System.Net.Sockets.TcpListener(ipAddress, 5656)

28 tcpl.Start()

29 While True

30 Dim s As System.Net.Sockets.Socket = tcpl.AcceptSocket()

31 Dim MyBuffer(1024) As Byte

32 Dim i As Integer

33 i = s.Receive(MyBuffer)

34 If i 0 Then

35 Dim lstrRec As String

36 Dim j As Integer

37 For j = 0 To i - 1

38 TextBox1.Text += Chr(MyBuffer(j)) ","

39 Next

40 End If

41 End While

42 Catch ex As Exception

43 MsgBox(ex.Message.ToString)

44 End Try

45 End Sub

46

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

48 SendMessage("192.168.0.61", TextBox2.Text)

49 End Sub