Hexillion
 

HexIcmp quick examples

Visual Basic 5.0

'A simple Ping program
'Be sure to select the Hexillion components
'in the Project|References dialog
Option Explicit
Sub main()
    Dim oIcmp As New HexIcmp
    Dim oLkup As New HexLookup
    Dim lAddr As Long, lRtt As Long
    Dim sHost As String, sOut As String
        
    sHost = "www.netscape.com"
    lAddr = oLkup.LookUp(sHost)
    
    If 0 <> lAddr Then
        oIcmp.Timeout = 2000
        lRtt = oIcmp.Ping(lAddr)
        If 0 <= lRtt Then
            sOut = "Round trip time to "
            sOut = sOut & sHost & ": "
            sOut = sOut & lRtt & " ms"
            MsgBox sOut
        Else
            MsgBox "No reply to ping"
        End If
    Else
        MsgBox "Lookup of " & sHost & " failed."
    End If
End Sub

ASP with VBScript

<%@ LANGUAGE="VBSCRIPT" %>

<HTML>
<HEAD>
<TITLE>HexIcmp Ping example</TITLE>
</HEAD>
<BODY>

<%
set oIcmp = Server.CreateObject("Hexillion.HexIcmp")
set oLkup = Server.CreateObject("Hexillion.HexLookup")
%>

<p>Using Hexillion.HexIcmp that expires 
<% = oIcmp.Expires %></p>

<%
sHost = "www.yahoo.com"
lAddr = oLkup.LookUp( sHost )
if 0 = lAddr then
    Response.Write( "<p>Lookup of " & sHost )
    Response.Write( " failed with error " )
    Response.Write( oLkup.Error & "</p>" )
    Response.end
end if

Response.Write( "<p>Pinging " & sHost & "<br>" )
for i = 1 to 3
    lRTT = oIcmp.Ping( lAddr )
    Response.Write( i & ": " )
    if lRTT >= 0 then
        Response.Write( lRTT & "<br>" )
    else
        Response.Write( "Error: " )
        Response.Write( oIcmp.Error & "<br>" )
    end if
next
Response.Write( "</p>" )
%>

</BODY>
</HTML>

Visual C++ 5.0

// Simple ping example
#include <windows.h>
#include <iostream>
#include <string>
#import "HexIcmp.dll"
#import "HexLookup.dll"

using namespace std;
using namespace HexIcmpLib;
using namespace HexLookupLib;

void main()
    {
    CoInitialize( NULL );

    {
    IHexIcmpSyncPtr pIcmp( __uuidof( HexIcmp ) );
    IHexLookupSyncPtr pLkup( __uuidof( HexLookup ) );
	
    string sHost = "www.ibm.com";
    long lAddr = pLkup->LookUp( sHost.c_str() );

    if( 0 == lAddr )
        cout << "Lookup of " << sHost
             << " failed." << endl;

        else
            {
            cout << "Pinging " << sHost << "... ";
            long lRtt = pIcmp->Ping( lAddr );

            if( 0 > lRtt )
                cout << "No response" << endl;
            else
                cout << "RTT = " << lRtt
                     << " ms" << endl;
            }
    }

    CoUninitialize();
    }
Show site map

contact us    privacy policy    legal information