VPF::Ping - Форум программистов

Bima

Дата 10.10.2006, 10:32 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 518
Регистрация: 15.8.2006

Репутация: 2
Всего: 2

проверил переменную
возвращает 11007 (IP_BAD_OPTION)
и что это значит???

--------------------

Чтобы дойти до цели, надо идти.

Клавиатура и мышь - это главные инструменты прогресса.

Romikgy

Дата 10.10.2006, 11:36 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 11
Всего: 146

замени на это , думаю найдешь где

Код


if (mByte)
    {
    ipInfo.Options = new unsigned char[mByte];// çäåñü íàäî èìõî âûäåëèòü ñêîëüêî áàéò øëåøü
    memset(ipInfo.Options,0,mByte);
    }
    else
    ipInfo.Options = NULL;

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Bima

Дата 10.10.2006, 13:41 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 518
Регистрация: 15.8.2006

Репутация: 2
Всего: 2

Все заработало.
Вот универсальный код программы, который можно использовать:

Создаем новый проект
кидаем на форму Edit и Button

добавляем к проекту два файла:
cping.cpp

Код


#include "CPing.h"
//---------------------------------------------------------------------------
CPing::CPing()
{
bValid = FALSE;
WSADATA wsaData;            // WSADATA
int nRet;                    // General use return code

hndlIcmp = LoadLibrary("ICMP.DLL"); // Dynamically load the ICMP.DLL
if (hndlIcmp == NULL)
   {
   ::MessageBox(NULL, "Could not load ICMP.DLL", "Error:", MB_OK);
   return;
   }
// Retrieve ICMP function pointers
pIcmpCreateFile  = (HANDLE (WINAPI *)(void))
   GetProcAddress((HMODULE)hndlIcmp,"IcmpCreateFile");
pIcmpCloseHandle = (BOOL (WINAPI *)(HANDLE))
   GetProcAddress((HMODULE)hndlIcmp,"IcmpCloseHandle");
pIcmpSendEcho = (DWORD (WINAPI *)
   (HANDLE,DWORD,LPVOID,WORD,PIPINFO,LPVOID,DWORD,DWORD))
   GetProcAddress((HMODULE)hndlIcmp,"IcmpSendEcho");
// Check all the function pointers
if (pIcmpCreateFile == NULL        ||
   pIcmpCloseHandle == NULL    ||
   pIcmpSendEcho == NULL)
{
   ::MessageBox(NULL, "Error loading ICMP.DLL", "Error:", MB_OK);
   FreeLibrary((HMODULE)hndlIcmp);
   return;
}

nRet = WSAStartup(0x0101, &wsaData ); // Init WinSock
if (nRet)
   {
   ::MessageBox(NULL, "WSAStartup() error:", "Error:", MB_OK);
   WSACleanup();
   FreeLibrary((HMODULE)hndlIcmp);
   return;
   }
    
if (0x0101 != wsaData.wVersion)  // Check WinSock version
   {
   ::MessageBox(NULL, "No WinSock version 1.1 support found", "Error:", MB_OK);
   WSACleanup();
   FreeLibrary((HMODULE)hndlIcmp);
   return;
   }
bValid = TRUE;
}
//---------------------------------------------------------------------------
CPing::~CPing()
{
WSACleanup();
FreeLibrary((HMODULE)hndlIcmp);
}
//---------------------------------------------------------------------------
int CPing::Ping(char* strHost, DWORD mByte, DWORD TimeOut, DWORD *mSek)
{
struct in_addr iaDest;  // Internet address structure
LPHOSTENT pHost;        // Pointer to host entry structure
DWORD *dwAddress;       // IP Address
IPINFO ipInfo;          // IP Options structure
ICMPECHO icmpEcho;      // ICMP Echo reply buffer
HANDLE hndlFile;        // Handle for IcmpCreateFile()

if(!bValid)             //Если создание класса произошло успешно то можно пинговать
   {
   return No_Create_Class;  //возвращаем 100 (No_Create_Class)
   }

iaDest.s_addr = inet_addr(strHost);
if (iaDest.s_addr == INADDR_NONE)
    pHost = gethostbyname(strHost);
else
    pHost = gethostbyaddr((const char *)&iaDest, sizeof(struct in_addr), AF_INET);
if (pHost == NULL)
   {
   return Error_Host;
   }

dwAddress = (DWORD *)(*pHost->h_addr_list); // Copy the IP address
hndlFile = pIcmpCreateFile(); // Get an ICMP echo request handle

ipInfo.Ttl = 255;
ipInfo.Tos = 0;
ipInfo.IPFlags = 0;
ipInfo.OptSize = mByte;
if (mByte)
  {
  ipInfo.Options = new unsigned char[mByte];// выделяем память
  memset(ipInfo.Options,0,mByte);
  }
else
  ipInfo.Options = NULL;

icmpEcho.Status = 0;

pIcmpSendEcho(
    hndlFile,     // Handle from IcmpCreateFile()
    *dwAddress,   // Destination IP address
    NULL,         // Pointer to buffer to send
    0,            // Size of buffer in bytes
    &ipInfo,      // Request options
    &icmpEcho,    // Reply buffer
    sizeof(struct tagICMPECHO),
    TimeOut);     // Time to wait in milliseconds

iaDest.s_addr = icmpEcho.Source;
*mSek=icmpEcho.RTTime;

if (mByte)
   delete [] ipInfo.Options;

if (icmpEcho.Status!=0)
   {
//**************************************
//весь switch можно заремировать
//**************************************
   switch (icmpEcho.Status)
      {
      case No_Create_Class :
         ::MessageBox(NULL, "Class not create","Error",MB_ICONWARNING);
         break;
      case Error_Host :
         ::MessageBox(NULL, "Error Host","Error",MB_ICONWARNING);
         break;
      case IP_BUF_TOO_SMALL :
         ::MessageBox(NULL, "IP_BUF_TOO_SMALL","Error",MB_ICONWARNING);
         break;
      case IP_DEST_NET_UNREACHABLE :
         ::MessageBox(NULL, "IP_DEST_NET_UNREACHABLE","Error",MB_ICONWARNING);
         break;
      case IP_DEST_HOST_UNREACHABLE :
         ::MessageBox(NULL, "IP_DEST_HOST_UNREACHABLE","Error",MB_ICONWARNING);
         break;
      case IP_DEST_PROT_UNREACHABLE :
         ::MessageBox(NULL, "IP_DEST_PROT_UNREACHABLE","Error",MB_ICONWARNING);
         break;
      case IP_DEST_PORT_UNREACHABLE :
         ::MessageBox(NULL, "IP_DEST_PORT_UNREACHABLE","Error",MB_ICONWARNING);
         break;
      case IP_NO_RESOURCES :
         ::MessageBox(NULL, "IP_NO_RESOURCES","Error",MB_ICONWARNING);
         break;
      case IP_BAD_OPTION :
         ::MessageBox(NULL, "IP_BAD_OPTION","Error",MB_ICONWARNING);
         break;
      case IP_HW_ERROR :
         ::MessageBox(NULL, "IP_HW_ERROR","Error",MB_ICONWARNING);
         break;
      case IP_PACKET_TOO_BIG :
         ::MessageBox(NULL, "IP_PACKET_TOO_BIG","Error",MB_ICONWARNING);
         break;
      case IP_REQ_TIMED_OUT :
         ::MessageBox(NULL, "IP_REQ_TIMED_OUT","Error",MB_ICONWARNING);
         break;
      case IP_BAD_REQ :
         ::MessageBox(NULL, "IP_BAD_REQ","Error",MB_ICONWARNING);
         break;
      case IP_BAD_ROUTE :
         ::MessageBox(NULL, "IP_BAD_ROUTE","Error",MB_ICONWARNING);
         break;
      case IP_TTL_EXPIRED_TRANSIT :
         ::MessageBox(NULL, "IP_TTL_EXPIRED_TRANSIT","Error",MB_ICONWARNING);
         break;
      case IP_TTL_EXPIRED_REASSEM :
         ::MessageBox(NULL, "IP_TTL_EXPIRED_REASSEM","Error",MB_ICONWARNING);
         break;
      case IP_PARAM_PROBLEM :
         ::MessageBox(NULL, "IP_PARAM_PROBLEM","Error",MB_ICONWARNING);
         break;
      case IP_SOURCE_QUENCH :
         ::MessageBox(NULL, "IP_SOURCE_QUENCH","Error",MB_ICONWARNING);
         break;
      case IP_OPTION_TOO_BIG :
         ::MessageBox(NULL, "IP_OPTION_TOO_BIG","Error",MB_ICONWARNING);
         break;
      case IP_BAD_DESTINATION :
         ::MessageBox(NULL, "IP_BAD_DESTINATION","Error",MB_ICONWARNING);
         break;

      default :
         ::MessageBox(NULL, "Error","Error",MB_ICONWARNING);
      }
//**************************************
   return icmpEcho.Status;
   }
pIcmpCloseHandle(hndlFile);
return 0;
}
//---------------------------------------------------------------------------

cping.h

Код


#ifndef CPING_H
#define CPING_H
#define No_Create_Class       100
#define Error_Host            101

//#include "StdAfx.h"
#include <windows.h>
#include <winsock.h>
#include <ipexport.h>

typedef struct tagIPINFO
{
    u_char Ttl;                // Time To Live
    u_char Tos;                // Type Of Service
    u_char IPFlags;      // IP flags
    u_char OptSize;      // Size of options data
    u_char FAR *Options;    // Options data buffer
}IPINFO;

typedef IPINFO* PIPINFO;

typedef struct tagICMPECHO
{
    u_long Source;            // Source address
    u_long Status;            // IP status
    u_long RTTime;            // Round trip time in milliseconds
    u_short DataSize;        // Reply data size
    u_short Reserved;        // Unknown
    void FAR *pData;        // Reply data buffer
    IPINFO    ipInfo;     // Reply options
}ICMPECHO;

typedef ICMPECHO* PICMPECHO;

class CPing
{
public:
    CPing();
    ~CPing();
    int CPing::Ping(char* strHost, DWORD mByte, DWORD TimeOut, DWORD *mSek);
private:
    // ICMP.DLL Export Function Pointers
    HANDLE (WINAPI *pIcmpCreateFile)(VOID);
    BOOL (WINAPI *pIcmpCloseHandle)(HANDLE);
    DWORD (WINAPI *pIcmpSendEcho)
        (HANDLE,DWORD,LPVOID,WORD,PIPINFO,LPVOID,DWORD,DWORD);
    HANDLE hndlIcmp;     // LoadLibrary() handle to ICMP.DLL
    BOOL bValid;         // if it doesn't construct properly, it won't be valid
};

#endif

Теперь делаем обработчик на кнопке куда записываем код
Здесь код основной программы:

Код


//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "Kod.h"
#include "Cping.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
CPing ping;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner):TForm(Owner){}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
DWORD p;
AnsiString Otvet;
int bResult = ping.Ping(Edit1->Text.c_str(), 1, 3000, &p);
if (bResult==0)
   {
   Otvet="Ping good ("+IntToStr(p)+"ms)";
   Application->MessageBox(Otvet.c_str() ,"Information",MB_ICONINFORMATION+MB_SYSTEMMODAL);
   }
else
   {
   if (bResult==IP_REQ_TIMED_OUT)
         Application->MessageBox("TimeOut" ,"Information",MB_ICONINFORMATION+MB_SYSTEMMODAL);
   }
}
//---------------------------------------------------------------------------

--------------------

Чтобы дойти до цели, надо идти.

Клавиатура и мышь - это главные инструменты прогресса.

Romikgy

Дата 10.10.2006, 14:20 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 11
Всего: 146

Bima, оно работает но не правильно ,
после н-ного промежутка времени и работы со снифером добился работы нормальной

Код


int CPing::Ping(char* strHost, DWORD mByte, DWORD TimeOut, DWORD *mSek)
{
    struct in_addr iaDest;        // Internet address structure
    LPHOSTENT pHost;            // Pointer to host entry structure
    DWORD *dwAddress;            // IP Address
    IPINFO ipInfo;                // IP Options structure
    ICMPECHO *icmpEcho;            // ICMP Echo reply buffer
    HANDLE hndlFile;            // Handle for IcmpCreateFile()
    if(!bValid)
    {
        return FALSE;
    }
    // Lookup destination
    // Use inet_addr() to determine if we're dealing with a name
    // or an address
    iaDest.s_addr = inet_addr(strHost);
    if (iaDest.s_addr == INADDR_NONE)
        pHost = gethostbyname(strHost);
    else
        pHost = gethostbyaddr((const char *)&iaDest, 
                        sizeof(struct in_addr), AF_INET);
    if (pHost == NULL)
    {
        return FALSE;
    }
    // Copy the IP address
    dwAddress = (DWORD *)(*pHost->h_addr_list);
    // Get an ICMP echo request handle        
    hndlFile = pIcmpCreateFile();
    // Set some reasonable default values
    ipInfo.Ttl = 255;
    ipInfo.Tos = 0;
    ipInfo.IPFlags = 0;
    ipInfo.OptSize = 0;
    ipInfo.Options = NULL;
    icmpEcho=(ICMPECHO*) new char [sizeof(ICMPECHO)+ mByte];
    //icmpEcho = 0;
    //memset(&icmpEcho,0,sizeof(icmpEcho));
    // Reqest an ICMP echo
    char *x=NULL;

    if (mByte) {x=new char[mByte];
    memset(x,'A',mByte);
    }
    pIcmpSendEcho(
        hndlFile,        // Handle from IcmpCreateFile()
        *dwAddress,        // Destination IP address
        x,            // Pointer to buffer to send
        mByte,                // Size of buffer in bytes
        &ipInfo,        // Request options
        icmpEcho,        // Reply buffer
        sizeof(struct tagICMPECHO)+mByte,
        TimeOut);            // Time to wait in milliseconds
    if (mByte) {delete [] x;}
    // Print the results
    iaDest.s_addr = icmpEcho->Source;
    *mSek=icmpEcho->RTTime;
    if (icmpEcho->Status)
    {
        return FALSE;
    }
    // Close the echo request file handle
    //if (mByte)     delete [] ipInfo.Options;
    pIcmpCloseHandle(hndlFile);
    delete [] icmpEcho;
    return TRUE;
}

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Bima

Дата 10.10.2006, 14:57 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 518
Регистрация: 15.8.2006

Репутация: 2
Всего: 2

Romikgy, спасибо.
вот исправленная рабочая версия:

Создаем новый проект
кидаем на форму Edit и Button

добавляем к проекту два файла:
cping.cpp

Код


#include "CPing.h"
//---------------------------------------------------------------------------
CPing::CPing()
{
bValid = FALSE;
WSADATA wsaData;            // WSADATA
int nRet;                    // General use return code

hndlIcmp = LoadLibrary("ICMP.DLL"); // Dynamically load the ICMP.DLL
if (hndlIcmp == NULL)
   {
   ::MessageBox(NULL, "Could not load ICMP.DLL", "Error:", MB_OK);
   return;
   }
// Retrieve ICMP function pointers
pIcmpCreateFile  = (HANDLE (WINAPI *)(void))
   GetProcAddress((HMODULE)hndlIcmp,"IcmpCreateFile");
pIcmpCloseHandle = (BOOL (WINAPI *)(HANDLE))
   GetProcAddress((HMODULE)hndlIcmp,"IcmpCloseHandle");
pIcmpSendEcho = (DWORD (WINAPI *)
   (HANDLE,DWORD,LPVOID,WORD,PIPINFO,LPVOID,DWORD,DWORD))
   GetProcAddress((HMODULE)hndlIcmp,"IcmpSendEcho");
// Check all the function pointers
if (pIcmpCreateFile == NULL        ||
   pIcmpCloseHandle == NULL    ||
   pIcmpSendEcho == NULL)
{
   ::MessageBox(NULL, "Error loading ICMP.DLL", "Error:", MB_OK);
   FreeLibrary((HMODULE)hndlIcmp);
   return;
}

nRet = WSAStartup(0x0101, &wsaData ); // Init WinSock
if (nRet)
   {
   ::MessageBox(NULL, "WSAStartup() error:", "Error:", MB_OK);
   WSACleanup();
   FreeLibrary((HMODULE)hndlIcmp);
   return;
   }
    
if (0x0101 != wsaData.wVersion)  // Check WinSock version
   {
   ::MessageBox(NULL, "No WinSock version 1.1 support found", "Error:", MB_OK);
   WSACleanup();
   FreeLibrary((HMODULE)hndlIcmp);
   return;
   }
bValid = TRUE;
}
//---------------------------------------------------------------------------
CPing::~CPing()
{
WSACleanup();
FreeLibrary((HMODULE)hndlIcmp);
}
//---------------------------------------------------------------------------
int CPing::Ping(char* strHost, DWORD mByte, DWORD TimeOut, DWORD *mSek)
{
struct in_addr iaDest;  // Internet address structure
LPHOSTENT pHost;        // Pointer to host entry structure
DWORD *dwAddress;       // IP Address
IPINFO ipInfo;          // IP Options structure
ICMPECHO *icmpEcho;      // ICMP Echo reply buffer
HANDLE hndlFile;        // Handle for IcmpCreateFile()

if(!bValid)             //Если создание класса произошло успешно то можно пинговать
   {
   return No_Create_Class;  //возвращаем 100 (No_Create_Class)
   }

iaDest.s_addr = inet_addr(strHost);
if (iaDest.s_addr == INADDR_NONE)
    pHost = gethostbyname(strHost);
else
    pHost = gethostbyaddr((const char *)&iaDest, sizeof(struct in_addr), AF_INET);
if (pHost == NULL)
   {
   return Error_Host;
   }

dwAddress = (DWORD *)(*pHost->h_addr_list); // Copy the IP address
hndlFile = pIcmpCreateFile(); // Get an ICMP echo request handle

ipInfo.Ttl = 255;
ipInfo.Tos = 0;
ipInfo.IPFlags = 0;
ipInfo.OptSize = 0;
ipInfo.Options = NULL;
icmpEcho=(ICMPECHO*) new char [sizeof(ICMPECHO)+ mByte];
char *x=NULL;

if (mByte)
   {
   x=new char[mByte];
   memset(x,'A',mByte);
   }

pIcmpSendEcho(
   hndlFile,       // Handle from IcmpCreateFile()
   *dwAddress,     // Destination IP address
   x,              // Pointer to buffer to send
   mByte,          // Size of buffer in bytes
   &ipInfo,        // Request options
   icmpEcho,       // Reply buffer
   sizeof(struct tagICMPECHO)+mByte,
   TimeOut);       // Time to wait in milliseconds

if (mByte)
   delete [] x;

iaDest.s_addr = icmpEcho->Source;
*mSek=icmpEcho->RTTime;

if (icmpEcho->Status!=0)
   {
//**************************************
//весь switch можно заремировать
//**************************************
   switch (icmpEcho->Status)
      {
      case No_Create_Class :
         ::MessageBox(NULL, "Class not create","Error",MB_ICONWARNING);
         break;
      case Error_Host :
         ::MessageBox(NULL, "Error Host","Error",MB_ICONWARNING);
         break;
      case IP_BUF_TOO_SMALL :
         ::MessageBox(NULL, "IP_BUF_TOO_SMALL","Error",MB_ICONWARNING);
         break;
      case IP_DEST_NET_UNREACHABLE :
         ::MessageBox(NULL, "IP_DEST_NET_UNREACHABLE","Error",MB_ICONWARNING);
         break;
      case IP_DEST_HOST_UNREACHABLE :
         ::MessageBox(NULL, "IP_DEST_HOST_UNREACHABLE","Error",MB_ICONWARNING);
         break;
      case IP_DEST_PROT_UNREACHABLE :
         ::MessageBox(NULL, "IP_DEST_PROT_UNREACHABLE","Error",MB_ICONWARNING);
         break;
      case IP_DEST_PORT_UNREACHABLE :
         ::MessageBox(NULL, "IP_DEST_PORT_UNREACHABLE","Error",MB_ICONWARNING);
         break;
      case IP_NO_RESOURCES :
         ::MessageBox(NULL, "IP_NO_RESOURCES","Error",MB_ICONWARNING);
         break;
      case IP_BAD_OPTION :
         ::MessageBox(NULL, "IP_BAD_OPTION","Error",MB_ICONWARNING);
         break;
      case IP_HW_ERROR :
         ::MessageBox(NULL, "IP_HW_ERROR","Error",MB_ICONWARNING);
         break;
      case IP_PACKET_TOO_BIG :
         ::MessageBox(NULL, "IP_PACKET_TOO_BIG","Error",MB_ICONWARNING);
         break;
      case IP_REQ_TIMED_OUT :
         ::MessageBox(NULL, "IP_REQ_TIMED_OUT","Error",MB_ICONWARNING);
         break;
      case IP_BAD_REQ :
         ::MessageBox(NULL, "IP_BAD_REQ","Error",MB_ICONWARNING);
         break;
      case IP_BAD_ROUTE :
         ::MessageBox(NULL, "IP_BAD_ROUTE","Error",MB_ICONWARNING);
         break;
      case IP_TTL_EXPIRED_TRANSIT :
         ::MessageBox(NULL, "IP_TTL_EXPIRED_TRANSIT","Error",MB_ICONWARNING);
         break;
      case IP_TTL_EXPIRED_REASSEM :
         ::MessageBox(NULL, "IP_TTL_EXPIRED_REASSEM","Error",MB_ICONWARNING);
         break;
      case IP_PARAM_PROBLEM :
         ::MessageBox(NULL, "IP_PARAM_PROBLEM","Error",MB_ICONWARNING);
         break;
      case IP_SOURCE_QUENCH :
         ::MessageBox(NULL, "IP_SOURCE_QUENCH","Error",MB_ICONWARNING);
         break;
      case IP_OPTION_TOO_BIG :
         ::MessageBox(NULL, "IP_OPTION_TOO_BIG","Error",MB_ICONWARNING);
         break;
      case IP_BAD_DESTINATION :
         ::MessageBox(NULL, "IP_BAD_DESTINATION","Error",MB_ICONWARNING);
         break;

      default :
         ::MessageBox(NULL, "Error","Error",MB_ICONWARNING);
      }
//**************************************
   return icmpEcho->Status;
   }
pIcmpCloseHandle(hndlFile);
delete [] icmpEcho;
return 0;
}
//---------------------------------------------------------------------------

cping.h

Код


#ifndef CPING_H
#define CPING_H
#define No_Create_Class       100
#define Error_Host            101

//#include "StdAfx.h"
#include <windows.h>
#include <winsock.h>
#include <ipexport.h>

typedef struct tagIPINFO
{
    u_char Ttl;                // Time To Live
    u_char Tos;                // Type Of Service
    u_char IPFlags;      // IP flags
    u_char OptSize;      // Size of options data
    u_char FAR *Options;    // Options data buffer
}IPINFO;

typedef IPINFO* PIPINFO;

typedef struct tagICMPECHO
{
    u_long Source;            // Source address
    u_long Status;            // IP status
    u_long RTTime;            // Round trip time in milliseconds
    u_short DataSize;        // Reply data size
    u_short Reserved;        // Unknown
    void FAR *pData;        // Reply data buffer
    IPINFO    ipInfo;     // Reply options
}ICMPECHO;

typedef ICMPECHO* PICMPECHO;

class CPing
{
public:
    CPing();
    ~CPing();
    int CPing::Ping(char* strHost, DWORD mByte, DWORD TimeOut, DWORD *mSek);
private:
    // ICMP.DLL Export Function Pointers
    HANDLE (WINAPI *pIcmpCreateFile)(VOID);
    BOOL (WINAPI *pIcmpCloseHandle)(HANDLE);
    DWORD (WINAPI *pIcmpSendEcho)
        (HANDLE,DWORD,LPVOID,WORD,PIPINFO,LPVOID,DWORD,DWORD);
    HANDLE hndlIcmp;     // LoadLibrary() handle to ICMP.DLL
    BOOL bValid;         // if it doesn't construct properly, it won't be valid
};

#endif

Теперь делаем обработчик на кнопке куда записываем код
Здесь код основной программы:

Код


//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "Kod.h"
#include "Cping.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
CPing ping;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner):TForm(Owner){}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
DWORD p;
AnsiString Otvet;
int bResult = ping.Ping(Edit1->Text.c_str(), 1, 3000, &p);
if (bResult==0)
   {
   Otvet="Ping good ("+IntToStr(p)+"ms)";
   Application->MessageBox(Otvet.c_str() ,"Information",MB_ICONINFORMATION+MB_SYSTEMMODAL);
   }
else
   {
   if (bResult==IP_REQ_TIMED_OUT)
         Application->MessageBox("TimeOut" ,"Information",MB_ICONINFORMATION+MB_SYSTEMMODAL);
   }
}
//---------------------------------------------------------------------------

--------------------

Чтобы дойти до цели, надо идти.

Клавиатура и мышь - это главные инструменты прогресса.

bigscorp

Дата 12.12.2006, 06:33 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 23
Регистрация: 23.5.2005

Репутация: нет
Всего: нет

а почему не возвращает код ошибки если пробуешь пнуть адрес которого в сетке нету smile

Это сообщение отредактировал(а) bigscorp - 12.12.2006, 06:55

Bima

Дата 12.12.2006, 09:49 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 518
Регистрация: 15.8.2006

Репутация: 2
Всего: 2

Смотри внимательно код.
в самом конце обрабатывается условие на таймаут, если туда еще поставишь что нибудь из этой таблицы:

Код


#define IP_STATUS_BASE              11000

#define IP_SUCCESS                  0
#define IP_BUF_TOO_SMALL            (IP_STATUS_BASE + 1)
#define IP_DEST_NET_UNREACHABLE     (IP_STATUS_BASE + 2)
#define IP_DEST_HOST_UNREACHABLE    (IP_STATUS_BASE + 3)
#define IP_DEST_PROT_UNREACHABLE    (IP_STATUS_BASE + 4)
#define IP_DEST_PORT_UNREACHABLE    (IP_STATUS_BASE + 5)
#define IP_NO_RESOURCES             (IP_STATUS_BASE + 6)
#define IP_BAD_OPTION               (IP_STATUS_BASE + 7)
#define IP_HW_ERROR                 (IP_STATUS_BASE + 8)
#define IP_PACKET_TOO_BIG           (IP_STATUS_BASE + 9)
#define IP_REQ_TIMED_OUT            (IP_STATUS_BASE + 10)
#define IP_BAD_REQ                  (IP_STATUS_BASE + 11)
#define IP_BAD_ROUTE                (IP_STATUS_BASE + 12)
#define IP_TTL_EXPIRED_TRANSIT      (IP_STATUS_BASE + 13)
#define IP_TTL_EXPIRED_REASSEM      (IP_STATUS_BASE + 14)
#define IP_PARAM_PROBLEM            (IP_STATUS_BASE + 15)
#define IP_SOURCE_QUENCH            (IP_STATUS_BASE + 16)
#define IP_OPTION_TOO_BIG           (IP_STATUS_BASE + 17)
#define IP_BAD_DESTINATION          (IP_STATUS_BASE + 18)

то будет выдавать и ошибку и все, что ты захочешь.

--------------------

Чтобы дойти до цели, надо идти.

Клавиатура и мышь - это главные инструменты прогресса.

bigscorp

Дата 13.12.2006, 03:00 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 23
Регистрация: 23.5.2005

Репутация: нет
Всего: нет

факт!! респект Bima ... а не подскажешь, можно ли на основе этой функции создать что-то типа tracert?
в принципе я понял как это сделать ... ттл увеличивать на 1 и будет путь прохождения пакета пока не уткнется в указанный адрес, но не могу ИП получить из icmpEcho

Это сообщение отредактировал(а) bigscorp - 13.12.2006, 03:27

Bima

Дата 13.12.2006, 06:37 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 518
Регистрация: 15.8.2006

Репутация: 2
Всего: 2

Сложно сказать, ничего в голову с ходу не лезет. Сделай новую ветку в форуме, думаю, тебе здесь помогут.

--------------------

Чтобы дойти до цели, надо идти.

Клавиатура и мышь - это главные инструменты прогресса.

SergXP

Дата 5.5.2008, 15:19 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 150
Регистрация: 16.4.2008

Репутация: нет
Всего: нет

Извеняюсь, что поднимаю старую тему, но у меня такая проблема

Добавил StringGrid, две колонки IP Adress и Ping

Начинаю считывать каждую ячейку с IP Адрессом и получаю пинг, но он отображается не правильно

например

XXX.XXX.XXX.XXX 30ms
YYY.YYY.YYY.YYY 30 ms

ZZZ.ZZZ.ZZZ.ZZZ 180ms
DDD.DDD.DDD.DDD 180 ms

Не понятно, почему происходит запись пинга два раза на разные айпи адреса

Плюс к тому же, я записываю каждый шаг в Memo, и в нем выводятся строки
1
2
3
4
5
6
Выводятся они не быстро, сразу тока нажал, 1, 2 потом думает, 3,4 опять думает и так далее

Вот такой у меня кодик..

Код


void __fastcall TForm1::Button1Click(TObject *Sender)
{
 DWORD p;
AnsiString Otvet;
int x,y;
x=1;
 while (x<=StringGrid1->RowCount-1) {
 &p == "";

 Memo1->Lines->Add(IntToStr(x)+" ");
 int bResult = ping.Ping(StringGrid1->Cells[0][x].c_str(), 5, 1000, &p);
 StringGrid1->Cells[1][x] = IntToStr(p);
 x++;


 }

Но почему то не работает! smile

--------------------

База IMEI-номеров украденных и утерянных мобильных телефоновhttp://imeis.net.ru/

SergXP

Дата 7.5.2008, 20:00 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 150
Регистрация: 16.4.2008

Репутация: нет
Всего: нет

люди! Хелп! smile

--------------------

База IMEI-номеров украденных и утерянных мобильных телефоновhttp://imeis.net.ru/

Bima

Дата 8.5.2008, 13:19 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 518
Регистрация: 15.8.2006

Репутация: 2
Всего: 2

Похоже функция вызывается, но параметры остались с прошлого раза.
попробуй в цикле вставь задержку с временем таймаута пинга, если это не поможет будем дальше разбираться

--------------------

Чтобы дойти до цели, надо идти.

Клавиатура и мышь - это главные инструменты прогресса.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| C++ Builder \| Следующая тема »