Adhemar, porque no funciona con
www.microsoft.com ??
#include "fivewin.ch"
// PRUEBA DE PING //
function main()
if WSAStartup() != 0
MsgAlert( "WSAStartup error" )
return nil
endif
/* // Funciona perfecto
if hb_Ping( GetHostByName( "www.google.com" ) ) == 0
Msginfo("Respuesta correcta del host " + AllTrim( GetHostByName( "www.google.com" ) ), "Atención" )
else
Msginfo("Host inaccesible" + AllTrim( GetHostByName( "www.google.com" ) ), "Atención" )
endif
Ping( GetHostByName( "www.google.com" ) )
*/
/* // funciona perfecto
if hb_Ping( GetHostByName( "www.lostajiboshotel.com" ) ) == 0
Msginfo("Respuesta correcta del host " + AllTrim( GetHostByName( "www.lostajiboshotel.com" ) ), "Atención" )
else
Msginfo("Host inaccesible " + AllTrim( GetHostByName( "www.lostajiboshotel.com" ) ), "Atención" )
endif
Ping( GetHostByName( "www.lostajiboshotel.com" ) )
*/
// Funciona perfecto
*/
if hb_Ping( GetHostByName( "www.hotmail.com" ) ) == 0
Msginfo("Respuesta correcta del host " + AllTrim( GetHostByName( "www.hotmail.com" ) ), "Atención" )
else
Msginfo("Host inaccesible" + AllTrim( GetHostByName( "www.hotmail.com" ) ), "Atención" )
endif
Ping( GetHostByName( "www.hotmail.com" ) )
*/
// Adhemar, porque no funciona con <!-- w --><a class="postlink" href="http://www.microsoft">www.microsoft</a><!-- w --> ??
if hb_Ping( GetHostByName( "www.microsoft.com" ) ) == 0
Msginfo("Respuesta correcta del host " + AllTrim( GetHostByName( "www.microsoft.com" ) ), "Atención" )
else
Msginfo("Host inaccesible " + AllTrim( GetHostByName( "www.microsoft.com" ) ), "Atención" )
endif
Ping( GetHostByName( "www.microsoft.com" ) )
WSACleanUp()
return nil
Function Ping(DestinationAddress)
Local IcmpHandle,Replicas,puerto
Local RequestData :="Probando ping",;
RequestSize :=15,;
RequestOptions:="",;
ReplyBuffer :=SPACE(278),;
ReplySize :=278,;
Timeout := 1000 && Milisegundos de espera
DEFAULT DestinationAddress := "127.0.0.1"
DestinationAddress:=LEFT(ALLTRIM(DestinationAddress)+SPACE(15),15)
MsgGet("Ping...","Ingrese una dirección IP",@DestinationAddress)
IcmpHandle:=IcmpCreateFile()
Replicas :=IcmpSendEcho(IcmpHandle,;
inet_addr(DestinationAddress),;
RequestData,;
RequestSize,0,;
ReplyBuffer,;
ReplySize,;
Timeout)
IcmpCloseHandle(IcmpHandle)
IF Replicas > 0
Msginfo("Respuesta correcta del host "+ALLTRIM(DestinationAddress),"Atención")
ELSE
Msginfo("Host inaccesible"+ALLTRIM(DestinationAddress)+"Atención")
ENDIF
Return nil
//
DLL32 FUNCTION WSAGetLastError() AS _INT PASCAL FROM "WSAGetLastError" LIB "wsock32.dll"
DLL32 FUNCTION inet_addr(cIP AS STRING) AS LONG PASCAL FROM "inet_addr" LIB "wsock32.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"
#pragma BEGINDUMP
#include <hbapi.h>
#include <winsock2.h>
#include <iphlpapi.h>
#include <icmpapi.h>
int hb_Ping( const char * cp )
{
HANDLE hIcmpFile;
unsigned long ipaddr;
DWORD dwRetVal;
char SendData[32] = "Data Buffer";
LPVOID ReplyBuffer;
DWORD ReplySize;
ipaddr = inet_addr( cp );
if (ipaddr == INADDR_NONE)
return 1;
hIcmpFile = IcmpCreateFile();
if (hIcmpFile == INVALID_HANDLE_VALUE)
return 2;
ReplySize = sizeof(ICMP_ECHO_REPLY) + sizeof(SendData);
ReplyBuffer = (VOID*) malloc(ReplySize);
if (ReplyBuffer == NULL)
return 3;
dwRetVal = IcmpSendEcho(hIcmpFile, ipaddr, SendData, sizeof(SendData),
NULL, ReplyBuffer, ReplySize, 1000);
if (dwRetVal == 0)
return 4;
return 0;
}
HB_FUNC( HB_PING )
{
hb_retni( hb_Ping( hb_parc( 1 ) ) );
}
#pragma ENDDUMP
Gracias,
