侷域網的IP一般是 192.168.0.*

通過某计算机的IP，得到它的计算机名
Private Const WSADescription_Len = 256
Private Const WSASYS_Status_Len = 128
Private Const WS_VERSION_REQD As Long = &H101
Private Const IP_SUCCESS As Long = 0
Private Const SOCKET_ERROR As Long = -1
Private Const AF_INET = 2

Private Type WSADATA
wVersion As Integer
wHighVersion As Integer
szDescription(0 To WSADescription_Len) As Byte
szSystemStatus(0 To WSASYS_Status_Len) As Byte
imaxsockets As Integer
imaxudp As Integer
lpszvenderinfo As Long
End Type

Private Declare Function WSAStartup Lib "wsock32.dll" _
(ByVal VersionReq As Long, _
WSADataReturn As WSADATA) As Long

Private Declare Function WSACleanup Lib "wsock32.dll" () As Long

Private Declare Function inet_addr Lib "wsock32.dll" _
(ByVal s As String) As Long

Private Declare Function gethostbyaddr Lib "wsock32.dll" _
(haddr As Long, _
ByVal hnlen As Long, _
ByVal addrtype As Long) As Long

Private Declare Sub CopyMemory Lib "kernel32" _
Alias "RtlMoveMemory" _
(xDest As Any, _
xSource As Any, _
ByVal nbytes As Long)

Private Declare Function lstrlen Lib "kernel32" _
Alias "lstrlenA" _
(lpString As Any) As Long


Public Function SocketsInitialize() As Boolean

Dim WSAD As WSADATA

SocketsInitialize = WSAStartup(WS_VERSION_REQD, WSAD) = IP_SUCCESS

End Function


Public Sub SocketsCleanup()

If WSACleanup() <> 0 Then
MsgBox "Windows Sockets error occurred in Cleanup.", vbExclamation
End If

End Sub


Public Function GetHostNameFromIP(ByVal sAddress As String) As String

Dim ptrHosent As Long
Dim hAddress As Long
Dim nbytes As Long

If SocketsInitialize() Then

'convert string address to long
hAddress = inet_addr(sAddress)

If hAddress <> SOCKET_ERROR Then

'obtain a pointer to the HOSTENT structure
'that contains the name and address
'corresponding to the given network address.
ptrHosent = gethostbyaddr(hAddress, 4, AF_INET)

If ptrHosent <> 0 Then

'convert address and
'get resolved hostname
CopyMemory ptrHosent, ByVal ptrHosent, 4
nbytes = lstrlen(ByVal ptrHosent)

If nbytes > 0 Then
sAddress = Space$(nbytes)
CopyMemory ByVal sAddress, ByVal ptrHosent, nbytes
GetHostNameFromIP = sAddress
End If

Else: MsgBox "Call to gethostbyaddr failed."
End If 'If ptrHosent

SocketsCleanup

Else: MsgBox "String passed is an invalid IP."
End If 'If hAddress

Else: MsgBox "Sockets failed to initialize."
End If 'If SocketsInitialize

End Function

但是计算机的IP我们不知道呀!
用192.168.0.1-192.168.0.255一个个来试吗

用FOR循環提取 ,然后檢測不能用的 ,賸下的就是叻``

嘿嘿,这方法是可以实现,但你试试看,这方法不太实用呀!!!

你看看要多少是时间才能把这255个IP给搜索完........

伱太多慮叻``可以一次檢測好幾個,然后驗證,驗證完一個然后在賸餘的IP裏提取一個```


PS:好像直接循環也用不了多長時間吧```

你给我一个例子好吗?

那可能是我的方法不对,我这才搜索28个IP就用了15分钟.

[此贴子已经被作者于2007-3-5 18:22:01编辑过]

可以設置超時時間啊```

麻烦你能写出完成的代码吗?拜托了

額``我空閑時間不多的``