VB查看局域网在线主机

Question

求段源代码
例如查看路由的在线客户端。

追加。！！！！

T-T~~
我那个只是VB6。 - -||

and 哪一段在label控件里显示呢？
怎么在label里显示呢，写出来可以么？
我只是个菜鸟。- -||

Answer 1

'form中加个按钮
Option Explicit
Private Const INADDR_NONE As Long = &HFFFFFFFF
Private Const PING_TIMEOUT As Long = 500
Private Type ICMP_ECHO_REPLY
Address As Long
status As Long
RoundTripTime As Long
DataSize As Long
DataPointer As Long
Data As String * 250
End Type
Private Declare Function inet_addr Lib "WSOCK32.DLL" (ByVal s As String) As Long
Private Declare Function IcmpCreateFile Lib "icmp.dll" () As Long
Private Declare Function IcmpSendEcho Lib "icmp.dll" (ByVal IcmpHandle As Long, _
ByVal DestinationAddress As Long, ByVal RequestData As String, ByVal RequestSize As Long, _
ByVal RequestOptions As Long, ReplyBuffer As ICMP_ECHO_REPLY, ByVal ReplySize As Long, _
ByVal Timeout As Long) As Long
Private Declare Function IcmpCloseHandle Lib "icmp.dll" (ByVal IcmpHandle As Long) As Long

'##################################################################
'## 函数名称：ping
'## 参数：IP 为String型
'As Boolean'## 返回类型：As Boolean
'##################################################################
Public Function ping(IP As String) As Boolean
Dim ECHO As ICMP_ECHO_REPLY
Dim mystr As String
Dim hPort As Long
mystr = inet_addr(IP)
If mystr <> INADDR_NONE Then
hPort = IcmpCreateFile()
If hPort Then
Call IcmpSendEcho(hPort, mystr, 0, 0, 0, ECHO, Len(ECHO), PING_TIMEOUT) '发送回响请求报文，返回回响应答报文
Call IcmpCloseHandle(hPort)
End If
If ECHO.status = 0 Then ping = True
Else
ping = False
End If
End Function

Private Sub Command1_Click()
Dim IPC As String
Dim i As Integer
For i = 1 To 254
IPC = "192.168.1." & i
If ping(IPC) Then
Print IPC & "--PING成功"
Else
Print IPC & "--PING失败"
End If
Next
End Sub

Answer 2

想怎么查看呢？如果只是想知道哪些主机开着，
在VB2008里有Ping语句可以用，可以把常用网段都查了。

Dim i As Integer
For i=0 To 255
If Ping ("192.168.0." & i.ToString) = True Then
Console.WriteLine ("网段192.168.0." & i.ToString & "在线")
End If
Next