Ping по IP адресу

Форум » [x]Harbour » Ping по IP адресу » Ответить

Ping по IP адресу

Dima: Накопал исходничек. Но что то он не верно работает. Забиваю IP который виндой не пингуется А этот "сырец" вернет 0 , мол все в порядке. Что нужно в нем подкрутить ? [pre2] ? HB_PING( "81.214.12.12") wait #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 = INADDR_NONE; // corrected by KDJ DWORD dwRetVal; char SendData[32] = "Data Buffer"; LPVOID ReplyBuffer; DWORD ReplySize; if( isalpha( cp[0] ) ) //host address is a name { WSADATA wsaData; int iResult; iResult = WSAStartup( MAKEWORD(2, 2), &wsaData ); if( iResult == 0 ) { struct hostent *remoteHost = gethostbyname( cp ); if( remoteHost != NULL ) ipaddr = *(unsigned long *) remoteHost->h_addr_list[0]; WSACleanup(); } } else 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) { IcmpCloseHandle(hIcmpFile); return 3; } dwRetVal = IcmpSendEcho(hIcmpFile, ipaddr, SendData, sizeof(SendData), NULL, ReplyBuffer, ReplySize, 1000); free(ReplyBuffer); IcmpCloseHandle(hIcmpFile); if (dwRetVal == 0) return GetLastError(); return 0; } HB_FUNC( HB_PING ) { hb_retni( hb_Ping( hb_parc( 1 ) ) ); } #pragma ENDDUMP [/pre2]

Ответов - 20

Dima: Пощупал и портировал из Xharbour , HB_PING , там у них свой родной есть. Заменил в сырце ISCHAR на HB_ISCHAR , ISNUM на HB_ISNUM и добавил пару-тройку Include , иначе не собиралось. Работает нормально только 1 раз. При повторном вызове и проверке того же IP или URL , всегда возвращает .F. Видимо что то не обнуляют они там.......

Pasha: Если забить строку 224: // sm_bAttemptedWinsock2Initialise = TRUE; чтобы инициализация выполнялась каждый раз, начинает работать. Почему так - не разбирался

Pasha: Ага, там в конце hb_ping выдается WSACleanup(); А при повторном вызове инициализация не выполняется. Наверное здесь собака порылась

Dima: Pasha пишет: Если забить строку 224: // sm_bAttemptedWinsock2Initialise = TRUE; чтобы инициализация выполнялась каждый раз, начинает работать. Да так работает , спасибо

Dima: Pasha Там у них в сырце живет #include "inet.h" Корректно вообще если я его дерну из Xharbour или что то другое можно прицепить ? У меня MINGW

Dima: Dima пишет: #include "inet.h" Заменил его на hbsocket.h как вот тут пишут https://github.com/vszakats/hb/blob/main/contrib/xhb/inet.h Собралось и работает вроде но собиралось с ошибками. Просто не обращать внимания на них или их можно как то избежать подправив сырец ? [pre2] hbmk2: Compiling... ../hbping.c:116:57: error: unknown type name 'HB_PINGREPLY' extern HB_EXPORT BOOL hb_ping( const char* pszHostName, HB_PINGREPLY * pr, DWORD dwTimeout, UINT nPacketSize ); ^ ../hbping.c:247:40: error: unknown type name 'HB_PINGREPLY' BOOL hb_ping( const char* pszHostName, HB_PINGREPLY * pr, DWORD dwTimeout, UINT nPacketSize ) ^ ../hbping.c: In function 'HB_FUN_HB_PING': ../hbping.c:435:7: error: unknown type name 'HB_PINGREPLY' HB_PINGREPLY pr; ^ ../hbping.c:442:7: warning: implicit declaration of function 'hb_ping' [-Wimplicit-function-declaration] bSuccess = hb_ping( pszHostName, &pr, dwTimeout, nPacketSize ); ^ ../hbping.c:446:60: error: request for member 'Address' in something not a structure or union HOSTENT * phostent = gethostbyaddr( ( char * ) &pr.Address.S_un.S_addr, 4, PF_INET ); ^ ../hbping.c:455:63: error: request for member 'Address' in something not a structure or union hb_snprintf( szHostAddress, 32 , "%d.%d.%d.%d", pr.Address.S_un.S_un_b.s_b1, pr.Address.S_un.S_un_b.s_b2, pr.Address.S_un.S_un_b.s_b3, pr.Address.S_un.S_un_b.s_b4 ); ^ ../hbping.c:455:92: error: request for member 'Address' in something not a structure or union hb_snprintf( szHostAddress, 32 , "%d.%d.%d.%d", pr.Address.S_un.S_un_b.s_b1, pr.Address.S_un.S_un_b.s_b2, pr.Address.S_un.S_un_b.s_b3, pr.Address.S_un.S_un_b.s_b4 ); ^ ../hbping.c:455:121: error: request for member 'Address' in something not a structure or union hb_snprintf( szHostAddress, 32 , "%d.%d.%d.%d", pr.Address.S_un.S_un_b.s_b1, pr.Address.S_un.S_un_b.s_b2, pr.Address.S_un.S_un_b.s_b3, pr.Address.S_un.S_un_b.s_b4 ); ^ ../hbping.c:455:150: error: request for member 'Address' in something not a structure or union hb_snprintf( szHostAddress, 32 , "%d.%d.%d.%d", pr.Address.S_un.S_un_b.s_b1, pr.Address.S_un.S_un_b.s_b2, pr.Address.S_un.S_un_b.s_b3, pr.Address.S_un.S_un_b.s_b4 ); ^ ../hbping.c:473:46: error: request for member 'RTT' in something not a structure or union hb_itemPutNI( pRTT, ( int ) pr.RTT ) ; ^ ../hbping.c:477:28: error: request for member 'Address' in something not a structure or union pr.Address.S_un.S_un_b.s_b1, pr.Address.S_un.S_un_b.s_b2, pr.Address.S_un.S_un_b.s_b3, ^ ../hbping.c:477:57: error: request for member 'Address' in something not a structure or union pr.Address.S_un.S_un_b.s_b1, pr.Address.S_un.S_un_b.s_b2, pr.Address.S_un.S_un_b.s_b3, ^ ../hbping.c:477:86: error: request for member 'Address' in something not a structure or union pr.Address.S_un.S_un_b.s_b1, pr.Address.S_un.S_un_b.s_b2, pr.Address.S_un.S_un_b.s_b3, ^ ../hbping.c:478:28: error: request for member 'Address' in something not a structure or union pr.Address.S_un.S_un_b.s_b4, phostent->h_name, ( int ) pr.RTT ); ^ ../hbping.c:478:83: error: request for member 'RTT' in something not a structure or union pr.Address.S_un.S_un_b.s_b4, phostent->h_name, ( int ) pr.RTT ); ^ ../hbping.c: At top level: ../hbping.c:119:13: warning: 'IsSocketReadible' defined but not used [-Wunused-function] static BOOL IsSocketReadible( SOCKET socket, DWORD dwTimeout, BOOL * bReadible ) ^ ../hbping.c:143:13: warning: 'DecodeResponse' defined but not used [-Wunused-function] static BOOL DecodeResponse( char * pBuf, int nBytes, SOCKADDR_IN * from ) ^ ../hbping.c:203:13: warning: 'FillIcmpData' defined but not used [-Wunused-function] static void FillIcmpData( LPICMP_HEADER pIcmp, int nData ) ^ ../hbping.c:222:13: warning: 'Initialise' defined but not used [-Wunused-function] static BOOL Initialise( void ) [/pre2]

Pasha: Попробовал - у меня лезут другие ошибки Но и с этими ошибками сборка не должна была завершиться успешно Может быть там остался старый obj или exe с предыдущей сборки ?

Dima: Pasha пишет: Может быть там остался старый obj или exe с предыдущей сборки ? Да ты прав. Оставил в сырце вот так #include "hbsocket.h" // добавил #include "inet.h" // оставил от Xharbour Собралось , работает. А вот в первом сырце там в конце не нужен WSACleanup(); , хотя судя по коду если я верно понял , когда чекается по IP адресу то WSAStartup вроде как и не используется

Dima: Dima пишет: [pre2] IcmpCloseHandle(hIcmpFile); if (dwRetVal == 0) return GetLastError(); [/pre2] Кстати на форуме FW , выглядит этот кусок вот так [pre2] IcmpCloseHandle(hIcmpFile); if (dwRetVal == 0) return 4; [/pre2] И по ходу работает нормально на не живых IP

Dima: Dima пишет: HB_FUNC( HB_PING ) { hb_retni( hb_Ping( hb_parc( 1 ) ) ); } Павел а как грамотно исправить что бы если возврат 0 то возвращало .T. если не ноль то .F. ? Я в сях ни чего не понимаю Попробовал вот так и вроде даже работает [pre2] HB_FUNC( HB_PING ) { BOOL LSuccess=FALSE; int nSuccess; nSuccess=hb_Ping( hb_parc( 1 ) ); if (nSuccess == 0) LSuccess=TRUE; hb_retl(LSuccess); } [/pre2]

Pasha: Dima пишет: Павел а как грамотно исправить что бы если возврат 0 то возвращало .T. если не ноль то .F. ? hb_retl( hb_Ping( hb_parc( 1 ) ) == 0 );

Pasha: Dima пишет: Попробовал вот так и вроде даже работает это в принципе тоже самое

Dima: Pasha пишет: hb_retl( hb_Ping( hb_parc( 1 ) ) == 0 ); Спасибо А я "кучу" кода наколотил а оно вон как просто

Pasha: Dima пишет: А вот в первом сырце там в конце не нужен WSACleanup(); , хотя судя по коду если я верно понял , когда чекается по IP адресу то WSAStartup вроде как и не используется Как я понимаю, WSAStartup() / WSACleanup() надо использовать парами, инициализация/деинициализация Во время первой инициализации загружается winsock dll, во время последней деинициализации - выгружается там еще через MAKEWORD(2, 2) передается номер версии winsock а в HB_PING из xHb реальный косяк с деинициализацией, но вполне исправимый Насчет использования inet.h в одном модуле вообще ничего смертельного нет, работает - и хорошо. Та просто нужные определения типов и макросов

Dima: Pasha пишет: там еще через MAKEWORD(2, 2) передается номер версии winsock Да про это я уже почитал в гугл. Я так понимаю правильное определение , учитывая что у нас ниже Windows 7 ни у кого нет. PS Теперь у меня в копилке 2 разных и рабочих варианта PING. Спасибо Павел !

Andrey: Dima пишет: Теперь у меня в копилке 2 разных и рабочих варианта PING. Для Харбора дай пожалуйста исходник рабочий

Dima: [pre2] #pragma BEGINDUMP #include <hbapi.h> #include <winsock2.h> #include <iphlpapi.h> #include <icmpapi.h> int hb_Ping2( const char * cp ) { HANDLE hIcmpFile; unsigned long ipaddr = INADDR_NONE; // corrected by KDJ DWORD dwRetVal; char SendData[32] = "Data Buffer"; LPVOID ReplyBuffer; DWORD ReplySize; if( isalpha( cp[0] ) ) //host address is a name { WSADATA wsaData; int iResult; iResult = WSAStartup( MAKEWORD(2, 2), &wsaData ); if( iResult == 0 ) { struct hostent *remoteHost = gethostbyname( cp ); if( remoteHost != NULL ) ipaddr = *(unsigned long *) remoteHost->h_addr_list[0]; WSACleanup(); } } else 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) { IcmpCloseHandle(hIcmpFile); return 3; } dwRetVal = IcmpSendEcho(hIcmpFile, ipaddr, SendData, sizeof(SendData), NULL, ReplyBuffer, ReplySize, 1000); free(ReplyBuffer); IcmpCloseHandle(hIcmpFile); if (dwRetVal == 0) return 4; /*GetLastError();*/ return 0; } HB_FUNC( HB_PING2 ) { hb_retl( hb_Ping2( hb_parc( 1 ) ) == 0 ); } #pragma ENDDUMP [/pre2]

Andrey: Спасибо большое !

Andrey: Вот сделал короткий пример. Кому будет интересно. [pre2]/* * MINIGUI - Harbour Win32 GUI library Demo * * Copyright 2023 Dima - http://clipper.borda.ru/ * Copyright 2003-2012 Grigory Filatov <gfilatov@inbox.ru> SAMPLES\Applications\SysInfo * * Проверка доступности сетевого ресурса * Checking the availability of a network resource * */ #include "hmg.ch" ANNOUNCE RDDSYS PROCEDURE MAIN LOCAL lRet, cPath, cMsg, cName, cIP SET WINDOW MAIN OFF SET MSGALERT FONTCOLOR TO BLACK SET MSGALERT BACKCOLOR TO {198,217,240} DEFINE FONT DlgFont FONTNAME "DejaVu Sans Mono" SIZE 16 cPath := UPPER("\\SERVER-2019\@Software") IF AT("\\",cPath) > 0 cName := SUBSTR(cPath,3) cName := SUBSTR(cName,1,AT("\",cName)-1) If WSAStartUp() == 0 cIP := GetHostByName( cName ) WSACleanUp() Endif cMsg := cPath + ";;" lRet := HB_PING2(cName) cMsg += "NAME: " + cName + " , IP: " + cIP + ";;" cMsg += "HB_PING2("+cName+") -> " cMsg += cValToChar(lRet) + ";;" lRet := HB_PING2(cIP) cMsg += "HB_PING2("+cIP+") -> " cMsg += cValToChar(lRet) ELSE cMsg := cPath + ";;This is the local computer!" ENDIF AlertStop( cMsg, "Result", "ZZZ_B_STOP64", 64 ) RETURN //////////////////////////////////////////////////////////////////////////////// #pragma BEGINDUMP #include <hbapi.h> #include <winsock2.h> #include <iphlpapi.h> #include <icmpapi.h> int hb_Ping2( const char * cp ) { HANDLE hIcmpFile; unsigned long ipaddr = INADDR_NONE; // corrected by KDJ DWORD dwRetVal; char SendData[32] = "Data Buffer"; LPVOID ReplyBuffer; DWORD ReplySize; if( isalpha( cp[0] ) ) //host address is a name { WSADATA wsaData; int iResult; iResult = WSAStartup( MAKEWORD(2, 2), &wsaData ); if( iResult == 0 ) { struct hostent *remoteHost = gethostbyname( cp ); if( remoteHost != NULL ) ipaddr = *(unsigned long *) remoteHost->h_addr_list[0]; WSACleanup(); } } else 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) { IcmpCloseHandle(hIcmpFile); return 3; } dwRetVal = IcmpSendEcho(hIcmpFile, ipaddr, SendData, sizeof(SendData), NULL, ReplyBuffer, ReplySize, 1000); free(ReplyBuffer); IcmpCloseHandle(hIcmpFile); if (dwRetVal == 0) return 4; /*GetLastError();*/ return 0; } HB_FUNC( HB_PING2 ) { hb_retl( hb_Ping2( hb_parc( 1 ) ) == 0 ); } HB_FUNC ( WSASTARTUP ) { WSADATA wsa; hb_retni( WSAStartup( 0x101, &wsa ) ); } HB_FUNC ( WSACLEANUP ) { hb_retni( WSACleanup() ); } HB_FUNC ( GETHOSTNAME ) { BYTE Name[ 255 ]; gethostname( ( char * ) Name, 255 ); hb_retc( ( char * ) Name ); } HB_FUNC (GETHOSTBYNAME) { struct hostent * pHost; BYTE addr[ 20 ]; strcpy( ( char * ) addr, "0.0.0.0" ); pHost = gethostbyname( ( char * ) hb_parc( 1 ) ) ; if( pHost ) { wsprintf( ( char * ) addr, "%i.%i.%i.%i", ( BYTE ) pHost->h_addr[ 0 ], ( BYTE ) pHost->h_addr[ 1 ], ( BYTE ) pHost->h_addr[ 2 ], ( BYTE ) pHost->h_addr[ 3 ] ); } hb_retc( ( char * ) addr ); } #pragma ENDDUMP [/pre2]

Dima: Есть еще вот такой PING , более навороченный , работает норм. hbping.c [pre2] /* * $Id: hbping.c 9859 2012-12-07 00:08:53Z andijahja $ */ /* * Harbour Project source code: * HB_PING() function * * Copyright (c) 1998 - 2000 by PJ Naughter. * All rights reserved. * 2012-12-01: Ported to xHarbour by Andi Jahja <andi.jahja/AT/yahoo.co.id> * www - http://www.harbour-project.org http://www.xharbour.org * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2, or (at your option) * any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this software; see the file COPYING. If not, write to * the Free Software Foundation, Inc., 59 Temple Place, Suite 330, * Boston, MA 02111-1307 USA (or visit the web site http://www.gnu.org/). * * As a special exception, the Harbour Project gives permission for * additional uses of the text contained in its release of Harbour. * * The exception is that, if you link the Harbour libraries with other * files to produce an executable, this does not by itself cause the * resulting executable to be covered by the GNU General Public License. * Your use of that executable is in no way restricted on account of * linking the Harbour library code into it. * * This exception does not however invalidate any other reasons why * the executable file might be covered by the GNU General Public License. * * This exception applies only to the code released by the Harbour * Project under the name Harbour. If you copy code from other * Harbour Project or Free Software Foundation releases into a copy of * Harbour, as the General Public License permits, the exception does * not apply to the code that you add in this way. To avoid misleading * anyone as to the status of such modified files, you must delete * this exception notice from them. * * If you write modifications of your own for Harbour, it is your choice * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. * */ #include "hbapi.h" #include <winsock2.h> #include <iphlpapi.h> #include <icmpapi.h> #include "hbapiitm.h" #include "inet.h" #include "hbstack.h" #include <fcntl.h> #include <errno.h> #include <assert.h> #if defined( HB_OS_WIN ) /* add parens to avoid warning */ #if defined( __BORLANDC__ ) && ( __BORLANDC__ <= 0x620 ) #undef MAKEWORD #define MAKEWORD( a, b ) ( ( WORD ) ( ( ( BYTE ) ( ( ( DWORD_PTR ) ( a ) ) & 0xff ) ) | ( ( ( WORD ) ( ( BYTE ) ( ( ( DWORD_PTR ) ( b ) ) & 0xff ) ) ) << 8 ) ) ) #endif #define MIN_ICMP_PACKET_SIZE 8 /* minimum 8 byte icmp packet (just header) */ #define MAX_ICMP_PACKET_SIZE 1024 /* Maximum icmp packet size */ /* IP header */ #pragma pack(push, 1) /* The IP_HEADER and ICMP_HEADER should be alligned on 1 byte boundaries */ typedef struct tagIP_HEADER { UINT h_len : 4; /* length of the header */ UINT version : 4; /* Version of IP */ UCHAR tos; /* Type of service */ USHORT total_len; /* total length of the packet */ USHORT ident; /* unique identifier */ USHORT frag_and_flags; /* flags */ UCHAR ttl; UCHAR proto; /* protocol (TCP, UDP etc) */ USHORT checksum; /* IP checksum */ UINT sourceIP; UINT destIP; } IP_HEADER, * LPIP_HEADER; /* ICMP header */ typedef struct tagICMP_HEADER { BYTE i_type; BYTE i_code; /* type sub code */ USHORT i_cksum; USHORT i_id; USHORT i_seq; /* This is not the std header, but we reserve space for time */ ULONG timestamp; } ICMP_HEADER, * LPICMP_HEADER; #pragma pack(pop) static BOOL sm_bAttemptedWinsock2Initialise = FALSE; static BOOL sm_bWinsock2OK = FALSE; static __int64 sm_TimerFrequency = 0; static char szResponse[ 1024 ] = { '\0' }; HB_EXTERN_BEGIN extern HB_EXPORT BOOL hb_ping( const char* pszHostName, HB_PINGREPLY * pr, DWORD dwTimeout, UINT nPacketSize ); HB_EXTERN_END BOOL IsSocketReadible( SOCKET socket, DWORD dwTimeout, BOOL * bReadible ) { TIMEVAL timeout; /* = { dwTimeout / 1000, dwTimeout % 1000 }; */ fd_set fds; int nStatus; FD_ZERO( &fds ); FD_SET( socket, &fds ); timeout.tv_sec = dwTimeout / 1000; timeout.tv_usec = dwTimeout % 1000; nStatus = select( 0, &fds, NULL, NULL, &timeout ); if( nStatus == SOCKET_ERROR ) return FALSE; else { *bReadible = ! ( nStatus == 0 ); return TRUE; } } /* Decode the raw Ip packet we get back */ BOOL DecodeResponse( char * pBuf, int nBytes, SOCKADDR_IN * from ) { LARGE_INTEGER TimerTick; LPIP_HEADER pIpHdr = ( LPIP_HEADER ) pBuf; int nIpHdrlen = pIpHdr->h_len * 4; /* Number of 32-bit words*4 = bytes */ /* Get the current tick count */ QueryPerformanceCounter( &TimerTick ); /* Not enough data recieved */ if( nBytes < nIpHdrlen + MIN_ICMP_PACKET_SIZE ) { hb_snprintf( szResponse, 1024, "Received too few bytes from %s", inet_ntoa( from->sin_addr ) ); SetLastError( ERROR_UNEXP_NET_ERR ); return FALSE; } else { /* Check it is an ICMP_ECHOREPLY packet */ LPICMP_HEADER pIcmpHdr = ( LPICMP_HEADER ) ( pBuf + nIpHdrlen ); if( pIcmpHdr->i_type != 0 ) /* type ICMP_ECHOREPLY is 0 */ { hb_snprintf( szResponse, 1024, "Non-echo type %d recvd", pIcmpHdr->i_type ); SetLastError( ERROR_UNEXP_NET_ERR ); return FALSE; } /* Check it is the same id as we sent */ if( pIcmpHdr->i_id != ( USHORT ) GetCurrentProcessId() ) { hb_snprintf( szResponse, 1024, "Received someone else's packet!" ); SetLastError( ERROR_UNEXP_NET_ERR ); return FALSE; } } /* nBytes < nIpHdrlen + MIN_ICMP_PACKET_SIZE */ return TRUE; } /* generate an IP checksum based on a given data buffer */ USHORT GenerateIPChecksum( USHORT * pBuffer, int nSize ) { ULONG cksum = 0; while( nSize > 1 ) { cksum += *pBuffer++; nSize -= sizeof( USHORT ); } if( nSize ) cksum += *( UCHAR * ) pBuffer; cksum = ( cksum >> 16 ) + ( cksum & 0xffff ); cksum += ( cksum >> 16 ); return ( USHORT ) ( ~cksum ); } /* Fill up the ICMP packet with defined values */ static void FillIcmpData( LPICMP_HEADER pIcmp, int nData ) { /* Set up the data which will be sent */ int nHdrSize = sizeof( ICMP_HEADER ); char * pData = ( ( char * ) pIcmp ) + nHdrSize; pIcmp->i_type = 8; /* ICMP_ECHO type */ pIcmp->i_code = 0; pIcmp->i_id = ( USHORT ) GetCurrentProcessId(); pIcmp->i_seq = 0; pIcmp->i_cksum = 0; pIcmp->timestamp = GetTickCount(); memset( pData, 'E', nData - nHdrSize ); /* Generate the checksum */ pIcmp->i_cksum = GenerateIPChecksum( ( USHORT * ) pIcmp, nData ); } BOOL Initialise( void ) { if( ! sm_bAttemptedWinsock2Initialise ) { WSADATA wsa; LARGE_INTEGER Frequency; /* sm_bAttemptedWinsock2Initialise = TRUE; */ /* Initialise the winsock 2 stack */ sm_bWinsock2OK = ( WSAStartup( MAKEWORD( 2, 1 ), &wsa ) == 0 ); /* Use the High performace counter to get an accurate RTT */ Frequency.QuadPart = 0; sm_bWinsock2OK = sm_bWinsock2OK && QueryPerformanceFrequency( &Frequency ); if( sm_bWinsock2OK ) sm_TimerFrequency = Frequency.QuadPart; } return sm_bWinsock2OK; } BOOL hb_ping( const char* pszHostName, HB_PINGREPLY * pr, DWORD dwTimeout, UINT nPacketSize ) { /* Parameter validation */ if( nPacketSize > MAX_ICMP_PACKET_SIZE || nPacketSize < MIN_ICMP_PACKET_SIZE ) { assert( FALSE ); SetLastError( WSAENOBUFS ); return FALSE; } /* Make sure everything is initialised */ if( Initialise() ) { /* Resolve the address of the host to connect to */ SOCKADDR_IN dest; char* lpszAscii = ( char* ) pszHostName; ULONG addr = inet_addr( lpszAscii ); SOCKET sockRaw; memset( &dest, 0, sizeof( dest ) ); if( addr == INADDR_NONE ) { /* Not a dotted address, then do a lookup of the name */ HOSTENT * hp = gethostbyname( lpszAscii ); if( hp ) { memcpy( &( dest.sin_addr ), hp->h_addr, hp->h_length ); dest.sin_family = hp->h_addrtype; } else { hb_snprintf( szResponse, 1024, "Could not resolve the host name %s", pszHostName ); return FALSE; } } else { dest.sin_addr.s_addr = addr; dest.sin_family = AF_INET; } /* Create the raw socket */ sockRaw = WSASocket( AF_INET, SOCK_RAW, IPPROTO_ICMP, NULL, 0, 0 ); if( sockRaw == INVALID_SOCKET ) { hb_snprintf( szResponse, 1024, "Failed to create a raw socket" ); return FALSE; } else { int nBufSize = nPacketSize + sizeof( ICMP_HEADER ); char * pICMP = ( char * ) hb_xgrab( nBufSize ); LARGE_INTEGER TimerTick; __int64 nStartTick; int nWrote; /* Allocate the ICMP packet */ FillIcmpData( ( LPICMP_HEADER ) pICMP, nBufSize ); /* Get the tick count prior to sending the packet */ QueryPerformanceCounter( &TimerTick ); nStartTick = TimerTick.QuadPart; /* Send of the packet */ nWrote = sendto( sockRaw, pICMP, nBufSize, 0, ( SOCKADDR * ) &dest, sizeof( dest ) ); if( nWrote == SOCKET_ERROR ) { DWORD dwError = GetLastError(); hb_snprintf( szResponse, 1024, "sendto failed" ); hb_xfree( pICMP ); closesocket( sockRaw ); SetLastError( dwError ); return FALSE; } else { /* allocate the recv buffer */ char * pRecvBuf = ( char * ) hb_xgrab( MAX_ICMP_PACKET_SIZE ); BOOL bReadable; SOCKADDR_IN from; int nRead, nFromlen = sizeof( from ); /* Allow the specified timeout */ if( IsSocketReadible( sockRaw, dwTimeout, &bReadable ) ) { if( bReadable ) /* Receive the response */ nRead = recvfrom( sockRaw, pRecvBuf, MAX_ICMP_PACKET_SIZE, 0, ( SOCKADDR * ) &from, &nFromlen ); else { hb_snprintf( szResponse, 1024, "Timeout occured while awaiting recvfrom" ); closesocket( sockRaw ); hb_xfree( pICMP ); hb_xfree( pRecvBuf ); /* set the error to timed out */ SetLastError( WSAETIMEDOUT ); return FALSE; } } else { DWORD dwError = GetLastError(); hb_snprintf( szResponse, 1024, "IsReadible call failed" ); hb_xfree( pICMP ); hb_xfree( pRecvBuf ); closesocket( sockRaw ); SetLastError( dwError ); return FALSE; } /* Get the current tick count */ QueryPerformanceCounter( &TimerTick ); /* Now check the return response from recvfrom */ if( nRead == SOCKET_ERROR ) { DWORD dwError = GetLastError(); hb_snprintf( szResponse, 1024, "recvfrom call failed" ); hb_xfree( pICMP ); hb_xfree( pRecvBuf ); closesocket( sockRaw ); SetLastError( dwError ); return FALSE; } else { /* Decode the response we got back */ BOOL bSuccess = DecodeResponse( pRecvBuf, nRead, &from ); /* If we successfully decoded the response, then return the * values in the HB_PINGREPLY instance */ if( bSuccess ) { pr->Address = from.sin_addr; pr->RTT = ( ULONG ) ( ( TimerTick.QuadPart - nStartTick ) * 1000 / sm_TimerFrequency ); } /* Don't forget to release out socket */ closesocket( sockRaw ); /* Free up the memory we allocated */ hb_xfree( pICMP ); hb_xfree( pRecvBuf ); /* return the status */ return bSuccess; } /* nRead == SOCKET_ERROR */ } /* nWrote == SOCKET_ERROR */ } /* sockRaw == INVALID_SOCKET */ } /* Initialise() */ return FALSE; } /* Syntax: HB_PING( cHost, @cResult, iPacketSize, iTimeOut, @cAddress, @cHost, @iRTT ) cHost = string, hostname of IP address cResult = passed by ref string, string to hold ping response iPacketSize = integer, size of data to send, default 32 iTimeOut = integer, response waiting time, default 5000ms cAdress = passed by ref string, string to host address cHost = passed by ref string, string to host name iRTT = passed by ref integer, is Round Trip Time */ HB_FUNC( HB_PING ) { if( HB_ISCHAR( 1 ) ) { const char* pszHostName = hb_parc( 1 ); HB_PINGREPLY pr; BOOL bSuccess; PHB_ITEM pRef = hb_param( 2, HB_IT_BYREF ); UINT nPacketSize = HB_ISNUM( 3 ) ? ( UINT ) hb_parni( 3 ) : 32; DWORD dwTimeout = HB_ISNUM( 4 ) ? ( DWORD ) hb_parni( 4 ) : 5000; *szResponse = 0; bSuccess = hb_ping( pszHostName, &pr, dwTimeout, nPacketSize ); if( bSuccess ) { HOSTENT * phostent = gethostbyaddr( ( char * ) &pr.Address.S_un.S_addr, 4, PF_INET ); if( phostent ) { char szHostAddress[ 32 ] = { '\0' }; char szHostName[ 256 ] = { '\0' }; PHB_ITEM pHostAddress = hb_param( 5, HB_IT_BYREF ); PHB_ITEM pHostName = hb_param( 6, HB_IT_BYREF ); PHB_ITEM pRTT = hb_param( 7, HB_IT_BYREF ); hb_snprintf( szHostAddress, 32 , "%d.%d.%d.%d", pr.Address.S_un.S_un_b.s_b1, pr.Address.S_un.S_un_b.s_b2, pr.Address.S_un.S_un_b.s_b3, pr.Address.S_un.S_un_b.s_b4 ); hb_snprintf( szHostName, 256, phostent->h_name ); if( pHostAddress ) { pHostAddress = hb_itemUnRef( pHostAddress ); hb_itemPutC( pHostAddress, szHostAddress ); } if( pHostName ) { pHostName = hb_itemUnRef( pHostName ); hb_itemPutC( pHostName, szHostName ) ; } if( pRTT ) { pRTT = hb_itemUnRef( pRTT ); hb_itemPutNI( pRTT, ( int ) pr.RTT ) ; } hb_snprintf( szResponse, 1024, "%d.%d.%d.%d [%s], replied in RTT:%dms\n", pr.Address.S_un.S_un_b.s_b1, pr.Address.S_un.S_un_b.s_b2, pr.Address.S_un.S_un_b.s_b3, pr.Address.S_un.S_un_b.s_b4, phostent->h_name, ( int ) pr.RTT ); } } if( pRef ) { pRef = hb_itemUnRef( pRef ); hb_itemPutC( pRef, szResponse ); } hb_retl( bSuccess ); WSACleanup(); return; } hb_retl( FALSE ); } #else /* * TODO: Non-Windows developers are expected to port this function */ HB_FUNC( HB_PING ) { hb_retl( FALSE ); } #endif [/pre2] [pre2] bResponse := HB_PING( cHostName, @sz, Val( nPacket ), Val( nTimeOut ), @cAddress, @cName, @iRTT ) cHostName:="127.0.0.1" bResponse:= HB_PING( cHostName,@cs,32,1000, @cAddress, @cName, @iRTT) ? bResponse ? cs ? "HB_PING() IP-Address:", cAddress ? "HB_PING() Host Name :", cName ? "HB_PING() RTT :", IF( iRTT!=NIL,LTRIM(STR(iRTT)) + "ms",NIL) [/pre2]

полная версия страницы