ActiveX: SLPing (Filename: SLPING.OCX)
| SLPing is an ActiveX control that provides 'ping' functionality to your applications or ASP pages. Using SLPing 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 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 |
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
