Hola a todos...
Necesito hacer un ping a una direccion para ver si puedo conectar con ella.Alguien sabe alguna forma sencilla de comprobar si una maquina está activa??
Un saludo y gracias..
Elías Torres...
function Main()
MsgInfo( IcmpCreateFile() )
return nil
#pragma BEGINDUMP
#include <windows.h>
#include <icmpapi.h>
#include <hbapi.h>
HB_FUNC( ICMPCREATEFILE )
{
hb_retnl( ( LONG ) IcmpCreateFile() );
}
#pragma ENDDUMP
function Main()
local hICMP := IcmpCreateFile()
local cData := "Esto es un ping"
local cReply := Space( ICMP_ECHO_REPLY() + Len( cData ) )
local nResult := IcmpSendEcho( hICMP, inet_addr( "192.168.0.16" ), cData,;
Len( cData ) + ICMP_ECHO_REPLY(), 0,;
cReply, Len( cData ), 1000 )
if nResult > 0
MsgInfo( "hay conexión con esa máquina" )
else
MsgInfo( "no hay conexión" )
endif
IcmpCloseHandle( hIcmp )
return nil
#pragma BEGINDUMP
#include <windows.h>
#include <icmpapi.h>
#include <winsock.h>
#include <hbapi.h>
HB_FUNC( ICMPCREATEFILE )
{
hb_retnl( ( LONG ) IcmpCreateFile() );
}
HB_FUNC( ICMPCLOSEHANDLE )
{
hb_retl( IcmpCloseHandle( ( HANDLE ) hb_parnl( 1 ) ) );
}
HB_FUNC( ICMPSENDECHO )
{
hb_retnl( IcmpSendEcho( ( HANDLE ) hb_parnl( 1 ),
( IPAddr ) hb_parnl( 2 ),
( LPVOID ) hb_parc( 3 ),
( WORD ) hb_parnl( 4 ),
( PIP_OPTION_INFORMATION ) hb_parnl( 5 ),
( LPVOID ) hb_parc( 6 ),
( DWORD ) hb_parnl( 7 ),
( DWORD ) hb_parnl( 8 ) ) );
}
HB_FUNC( INET_ADDR )
{
hb_retnl( inet_addr( hb_parc( 1 ) ) );
}
HB_FUNC( ICMP_ECHO_REPLY )
{
hb_retnl( sizeof( ICMP_ECHO_REPLY ) );
}
#pragma ENDDUMP
Ese soy yo...Elias Torres wrote:* Hecho por JOSE MARIA GARCIA MARTINEZ *
Return to FiveWin para Pocket PC
Users browsing this forum: No registered users and 4 guests