FiveTech Support Forums

Function Ping(DestinationAddress)  // String in IPv4 Format (192.168.0.1)
   local IcmpHandle,Replicas
   local nAddress := 0             // Numeric IPv4 after inet_addr()
   local RequestData:="Test ping",;
         RequestSize:=15,;
         RequestOptions:="",;
         ReplyBuffer:=space(278),;
         ReplySize:=278,;
         Timeout:=500 // Milliseconds
   DestinationAddress:=left(alltrim(DestinationAddress)+space(15),15)
   olbx:Add("DestinationAddress="+DestinationAddress)
   olbx:REFRESH()
   nAddress := inet_addr(DestinationAddress)
   olbx:Add("nAddress="+Str(nAddress))
   olbx:REFRESH()
   IcmpHandle:=IcmpCreateFile()
   olbx:Add("IcmpHandle="+Str(IcmpHandle))
   olbx:REFRESH()
   Replicas:=IcmpSendEcho(IcmpHandle,;      // Application Hangs Here
                          nAddress,;
                          RequestData,;
                          RequestSize,;
                          0,;
                          ReplyBuffer,;
                          ReplySize,;
                          Timeout)

   olbx:Add("Replicas="+Str(Replicas))
   olbx:REFRESH()
   IcmpCloseHandle(IcmpHandle)

return Replicas

DLL32 FUNCTION WSAGetLastError() AS _INT PASCAL FROM "WSAGetLastError" LIB "ws2_32.dll"
DLL32 FUNCTION inet_addr(cIP AS STRING) AS LONG PASCAL FROM "inet_addr" LIB "ws2_32.dll"
//DLL32 FUNCTION IcmpCreateFile() AS LONG PASCAL FROM "IcmpCreateFile" LIB "icmp.dll"
//DLL32 FUNCTION IcmpCloseHandle(IcmpHandle AS LONG) AS LONG PASCAL FROM "IcmpCloseHandle" LIB "icmp.dll"
//DLL32 FUNCTION IcmpSendEcho(IcmpHandle AS LONG,;
//                            DestinationAddress AS LONG,;
//                            RequestData AS STRING,;
//                            RequestSize AS LONG,;
//                            RequestOptions AS LONG,;
//                            ReplyBuffer AS LPSTR,;
//                            ReplySize AS LONG,;
//                            Timeout AS LONG) AS LONG PASCAL FROM "IcmpSendEcho" LIB "icmp.dll"

DLL32 FUNCTION IcmpCreateFile() AS LONG PASCAL FROM "IcmpCreateFile" LIB "iphlpapi.dll"
DLL32 FUNCTION IcmpCloseHandle(IcmpHandle AS LONG) AS LONG PASCAL FROM "IcmpCloseHandle" LIB "iphlpapi.dll"
DLL32 FUNCTION IcmpSendEcho(IcmpHandle AS LONG,;
                            DestinationAddress AS LONG,;
                            RequestData AS STRING,;
                            RequestSize AS LONG,;
                            RequestOptions AS LONG,;
                            ReplyBuffer AS LPSTR,;
                            ReplySize AS LONG,;
                            Timeout AS LONG) AS LONG PASCAL FROM "IcmpSendEcho" LIB "iphlpapi.dll"