VB6.0检测局域网主机代码,MSSQL代码库,德仔网

代码语言

代码分类

【MSSQL】 VB6.0检测局域网主机

作者:Dezai.CN / 发布于2012/8/23/ 678

VB6.0检测局域网主机

<div>'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
</div>

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

试试其它关键字

　检测局域网主机　

同语言下

可能有用的

Dezai.CN贡献的其它代码(4037)