Como hacer un ping a una maquina...

[Elias Torres]

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...

[Elias Torres]

Hola a todos...

He encontrado un codigo que se supone hace un ping a una direccion que le pongamos y nos dice si tiene conexion o no...

El codigo es el siguiente:


********************************************************************* PING.PRG
* *
* PING.PRG 01-10-2002 *
* *
* Hecho por JOSE MARIA GARCIA MARTINEZ *
* *
* Lenguaje de programación CLIPPER 5.3 *
* Librería Windows FIVEWIN 2.3a *
* Librería de proposito general FUNCKY-II *
* Linkador Windows/DOS BLINKER 5.0 *
* Herramientas de apoyo BORLAND WORK-SHOP 4.0 *
* Compilador de recursos RESOURCE COMPILER MS 7.0 *
* *
******************************************************************************

********************************************************************* INCLUDES
#include"FiveWin.ch"

*********************************************************************** Main()
function main()
local IcmpHandle,Replicas
local DestinationAddress:="direccionip",;
RequestData:="Esto es un ping",;
RequestSize:=15,;
RequestOptions:="",;
ReplyBuffer:=space(278),;
ReplySize:=278,;
Timeout:=2000 && Milisegundos de espera

DestinationAddress:=left(alltrim(DestinationAddress)+space(15),15)
MsgGet("Ping...","Introduzca dirección IP",@DestinationAddress)
*---
IcmpHandle:=IcmpCreateFile()
Replicas:=IcmpSendEcho(IcmpHandle,;
inet_addr(DestinationAddress),;
RequestData,;
RequestSize,0,;
ReplyBuffer,;
ReplySize,;
Timeout)
msginfo(Replicas)
IcmpCloseHandle(IcmpHandle)
*---
if Replicas>0
msginfo("La máquina "+alltrim(DestinationAddress)+" EXISTE")
else
msginfo("La máquina "+alltrim(DestinationAddress)+" NO existe")
endif
return nil

************************************************** LLAMADAS A DLL's DE WINDOWS
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"
DLL32 FUNCTION WSAGetLastError() AS _INT PASCAL FROM "WSAGetLastError" LIB "wsock32.dll"
******************************************************************************
/*
Compilar con Clipper 5.3:
clipper ping.prg /n/a/v/p

Linkar con Blinker 5.0:
blinker fi ping @COMPILA.LNK

COMPILA.LNK:
blinker incremental OFF
fi \bases\blinker5\BLXCLP53
DEFBEGIN
name FIVEEXE
description 'FiveWin Windows executable to call a DLL function'
exetype Windows 3.1
Stacksize 8500
Heapsize 8500
code preload moveable discardable
data preload moveable
segment 'PLANKTON_TEXT' nondiscardable
segment 'EXTEND_TEXT' nondiscardable
segment 'OM_TEXT' nondiscardable
segment 'OSMEM_TEXT' nondiscardable
segment 'SORTOF_TEXT' nondiscardable
segment 'STACK_TEXT' nondiscardable
DEFEND
lib Five,FiveC,Objects,WinApi
lib Clipper,Llibca51
lib Fivestub
lib Extend,DbfNtx,DbfCdx,Terminal
*/


El problema es que al ejecutarlo me da error en las dos dll que usa. Entonces mi pregunta es la siguiente hay que registrar las dll esas??. Si es así como lo hago??


Un saludo y gracias..

Elías Torres

[Antonio Linares]

Elías,

Parece que "icmp.dll" no está en Windows Mobile pero sí esta "icmplib.lib". Habria que probar cambiando el nombre.

Igualmente usar "ws2.lib" (ó "winsock.lib" ) en vez de "wsock32.dll"

[Elias Torres]

Hola Antonio.

He cambiado el nombre (entiendo que en la aplicacion) por esos dos, pero me sigue dando el mismo error:

"Error code: 0 loading icmplib.lib"
"Error code: 0 loading sw2.lib"


Seguiré buscando....


Saludos..

Elías Torres.

[Antonio Linares]

Elías,

Este código construye bien y funciona y puede servirte para continuar implementando lo que quieres:

Code: Select all  Expand view  RUN

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


Tienes que enlazar tambien (en buildce.bat ó en tu propio bat/make):

echo %vcdir%\lib\arm\icmplib.lib >> msvc.tmp
echo %vcdir%\lib\arm\winsock.lib >> msvc.tmp

[Elias Torres]

Gracias Antonio..

Pero tengo que decirte que no entiendo el codigo.. Eso que has puesto que es? ¿Es la definicion de la funcion IcmpCreateFile() ? Disculpa pero esto se me hace un poco grande, puesto que principalmente desconozco el tratamiento que hay que hacer a los datos en redes,direcciones ip,etc...

Te agradeceria si me explicaras o me guiaras un poco en lo que tengo que hacer...

Saludos y mil gracias.

Elías Torres.

[Antonio Linares]

Elías,

Este es el código completo, sin embargo en el emulador de Pocket PC está devolviendo cero. A ver si a ti te funciona,
Nos hemos guiado por este ejemplo: http://msdn.microsoft.com/library/defau ... ndecho.asp

Code: Select all  Expand view  RUN

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


[Elias Torres]

Hola Antonio..

He probado el codigo (ante todo muchas gracias por tu tiempo) pero efectivamente a mi tambien me devuelve cero...

He probado a aumentarle el tiempo de respuesta por si acaso fuese que intenta conectar y se la acaba el tiempo antes....pero nada

Habrá que seguir probando.

Saludos.

Elías Torres.

[Elias Torres]

Hola Antonio...

Por fin lo he solucionado. Te pongo el codigo para que le heches un vistazo y de paso por si le sirve a alguien..


function main()
local IcmpHandle,Replicas
local DestinationAddress:="192.168.0.31",;
RequestData:="Esto es un ping",;
RequestSize:=15,;
RequestOptions:="",;
ReplyBuffer:=space(278),;
ReplySize:=278,;
Timeout:=1000 && Milisegundos de espera

*---
IcmpHandle:=IcmpCreateFile()
Replicas:=IcmpSendEcho(IcmpHandle,;
inet_addr(DestinationAddress),;
RequestData,;
RequestSize,0,;
ReplyBuffer,;
ReplySize,;
Timeout)

IcmpCloseHandle(IcmpHandle)
*---
if Replicas>0
msginfo("La máquina "+alltrim(DestinationAddress)+" EXISTE")
else
msginfo("La máquina "+alltrim(DestinationAddress)+" NO existe")
endif
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


Saludos y gracias por la ayuda...

Elías Torres.

[Antonio Linares]

Elías,

Estupendo

Por lo visto era una cuestión de los parámetros a usar.

[JmGarcia]

* Hecho por JOSE MARIA GARCIA MARTINEZ *

Ese soy yo...

Bueno como podeis ver, en mi código fuente del ping, suelo ser de usar mucho el "wrapeado" de funciones en DLL del tipo "DLL32 FUNCTION...". Me ha ayudado mucho.
Pero ahora en FWPPC pregunto si la sintaxis es igual y cuales son las DLLs homónimas de las de FWH.
Los de las DLLs lo pregunto ya que he leído aquí que la "socket.dll" es la "ws2.lib", la "icmp.dll" no está ahora es "icmplib.lib".
¿ Entonces si linko las LIBs ya no tengo que hacer llamadas del tipo DLL32 FUNCTION ?