ActiveX: SLPing
(Filename: SLPING.OCX)
SLPing is an ActiveX component that provides 'ping' functionality
to your applications or ASP pages. With the SLPing control you can test for the
existence of machines on the Internet or intranet and you can determine
the response times (in milliseconds) for these machines. SLPing uses
the ICMP (Internet Control Message Protocol) protocol when doing a ping.
The size of the ping data packet that is sent is 32 bytes.
Properties
|
Name |
Type |
Description |
|
HostNotFound |
Boolean |
This property is set
to True if an IP address or domain name was not found at
the last call of the Ping method. This
property is read-only.
|
|
ResponseTime |
Long |
After calling the
Ping method you can obtain the response
time by reading this property. The response time is returned in
milliseconds. This property is read-only.
|
|
Timeout |
Long |
Specifies the amount
of time (in seconds) the control will wait for an answer from a
host after sending the ping packet.
|
|
TimeoutOccurred |
Boolean |
This property is set
to True if a time out occurred when calling the
Ping method. This property is read-only.
|
Methods
Ping (Address As String) As Boolean
Sends a ping packet to a
remote host. The Address parameter
specifies a domain name or IP address to be pinged. If the host
exists and no error occurs the method returns True. The response
time can be obtained by reading the ResponseTime
property.
If the host is not found, a time out occurs or there is an error
the method returns False. The GetLastError
method can then be used to obtain an error code. If the operation
timed out the TimeoutOccurred property
is set to True. If the host is not found the
HostNotFound property is set
to True.
GetLastError
() As Long
Returns an error code for
the last error that occurred in the control.
A list of possible error codes is available here.
|
Example
SLPing1.Timeout = 5
' Set time out to 5 seconds
If SLPing1.Ping("www.samlogic.net") Then
RespTime = SLPing1.ResponseTime
' Obtain response time in milliseconds
ErrNr = PING_OK
Else
If SLPing1.HostNotFound Then
' If this property is True, no host was found
ErrNr = PING_HOSTNOTFOUND
ElseIf SLPing1.TimeoutOccurred Then
' If this property is True, a time out occurred
ErrNr = PING_TIMEOUT
Else
ErrNr = SLPing1.GetLastError()
' Get an error code for the last error
End If
End If
< Go back
|
|
