Slow response when executing Ping

[selvialagar]

i did a program in vc++.net for ICMP communication using sockets.But when i execute it i received a very slow response...is there any configuration to be made on the server..or any other thing?.. i don't know the reason for slow response...i included the code for this...plz solve my problem...

// pingnew.h
 
#pragma once
using namespace System;
using namespace System::IO;
using namespace System::Text; 
using namespace System::Net;
using namespace System::Net::Sockets;
using namespace System::Web;
 
#define ICMP_ECHOREPLY 0
#define ICMP_ECHOREQUEST 8
#define MAX_TTL 256
#define PACKET_SIZE 32
 
namespace pingnew
{
    public __gc class ICMP_Packet
    {
    public:
        Byte Type;
        Byte Code;
        unsigned short Checksum;
        unsigned short ID;
        unsigned short Seq_no;
        static Byte Data[]=new Byte[PACKET_SIZE];
 
    };
    public __gc class ICMP_pro
    {
    public:
     void SendPacket(String *s);
     //static Byte CreatePack(ICMP_Packet *pac)[];
    };
    void ICMP_pro::SendPacket(String *s)
    {
        Socket *st=0;
        IPHostEntry *iphe=0;
        try
        {
        iphe = Dns::Resolve(s);
        Console::WriteLine(S"Host Entry :{0}",iphe->HostName->ToString()); 
        IPAddress* ipad = __try_cast<IPAddress*>(iphe->AddressList[0]);
        Console::WriteLine(S"IP Address : {0}",ipad->ToString()); 
        IPEndPoint* ipe = new IPEndPoint(ipad, 80);
        Console::WriteLine(S"IP Address End Point: {0}",ipe->ToString()); 
        st=new Socket(ipe->AddressFamily,SocketType::Raw,ProtocolType::Icmp);
        //st->Bind(ipe);
        ICMP_Packet *packet=new ICMP_Packet();
        packet->Type=ICMP_ECHOREQUEST;
        packet->Code=0;
        packet->Checksum=0;
        packet->ID=unsigned short(DateTime::Now.Millisecond);   
        packet->Seq_no=0;
        packet->Data=new Byte[PACKET_SIZE];
        Console::WriteLine(S"Length :{0}",packet->Data->Length.ToString());    
        for(int i=0;i<PACKET_SIZE;i++)
        {
            packet->Data[i]=(Byte)'S';
            Console::WriteLine(S"Data :{0}",packet->Data[i].ToString());   
        }
 
        //Byte BytetoSend[]=new Byte[];
        /*ICMP_pro *pro=new ICMP_pro();
        BytetoSend=pro->CreatePack(packet);*/
 
        /*to convert to byte*/
        Byte packetArray[]=new Byte[PACKET_SIZE+8];
        bool isLittleEndian=BitConverter::IsLittleEndian;
 
        UInt16 cksum=packet->Checksum;
        for(int c=0;c<packetArray->Length;c+=2)
            cksum+=Convert::ToInt32(BitConverter::ToUInt16(packetArray,c));  
        cksum=(cksum>>16)+(cksum & 0xffff);
        cksum+=(cksum >>16);
        cksum=~cksum;
        UInt16 id=packet->ID;
        UInt16 seq=packet->Seq_no;
        int index=0;
        packetArray[index++]=packet->Type;
        packetArray[index++]=packet->Code;
        Byte temp[]=BitConverter::GetBytes(cksum);
        Array::Copy(temp,0,packetArray,index,temp->Length);  
        index +=2;
        temp=BitConverter::GetBytes(id);
        Array::Copy(temp,0,packetArray,index,temp->Length);
        index +=2;
        temp=BitConverter::GetBytes(seq);
        Array::Copy(temp,0,packetArray,index,temp->Length);
        index +=2;
        Array::Copy(packet->Data,0,packetArray,index,PACKET_SIZE);  
        for(Byte i=0;i<packetArray->Length;i++)
        {
            Console::Write(S" {0}",packetArray[i].ToString());
        }
        Console::WriteLine(S""); 
        IPEndPoint* endPoint = new IPEndPoint(Dns::GetHostByName(Dns::GetHostName())->AddressList[0],80);
        EndPoint* senderRemote = __try_cast<EndPoint*>(endPoint);
        Console::WriteLine(S"SenderRemote :{0}",senderRemote->ToString()); 
 
        for(int j=0;j<=MAX_TTL;j++)
          {
            Byte RecvByte[]=new Byte[256];
            st->SetSocketOption(SocketOptionLevel::IP,SocketOptionName::IpTimeToLive,j); 
            st->SetSocketOption(SocketOptionLevel::Socket,SocketOptionName::SendTimeout,500000);
            st->SetSocketOption(SocketOptionLevel::Socket,SocketOptionName::ReceiveTimeout,500000);
            DateTime dt=DateTime::Now;
            int iRet=st->SendTo(packetArray,packetArray->Length,SocketFlags::None,ipe);
 
            Console::WriteLine(S"Address :{0}",ipe->MaxPort.ToString());  
            if(iRet==-1)
            {
                Console::WriteLine(S"Error Sending Data"); 
            }
            else
            {
                Console::WriteLine(S"Data Sending to {0}\n",ipe->ToString()); 
            }
            //Console::WriteLine(S"Address :{0}",*(&senderRemote)); 
            iRet=st->ReceiveFrom(RecvByte,RecvByte->Length,SocketFlags::None,&senderRemote);
            TimeSpan ts=DateTime::Now -dt;
            if(iRet==-1)
            {
                    Console::WriteLine(S"Error Getting Data"); 
            }
            Console::WriteLine(S"Received Data :TTL={0,-5} IP={1,-20} Time={2,3}ms",j.ToString(),senderRemote->ToString(),ts.Milliseconds.ToString());   
            if((iRet==PACKET_SIZE+ 8+ 20) && (BitConverter::ToInt16(RecvByte,24)==BitConverter::ToInt16(packetArray,4))&& (RecvByte[20]==ICMP_ECHOREPLY))
                break;
            Console::WriteLine(S"20th Byte of Received Data :{0}",RecvByte[20].ToString());
            for(Byte rb=0;rb<35;rb++)
           {
            Console::Write(S" {0}",RecvByte[rb].ToString());
           } 
           Console::WriteLine(S""); 
            if(RecvByte[20]!=ICMP_ECHOREPLY)
            {
                Console::WriteLine("UnExpected Reply,Quitting...");
                break;
            }
      }//for
    }//try
        catch(SocketException *e)
        {
            Console::WriteLine(S"Socket Exception : {0}",e->ToString());
        }
        catch(Exception *e)
        {
            Console::WriteLine(S"Exception :{0}",e->ToString());  
        }
  }//sendpacket
};//namespace
 
 

and my main program is

#include "stdafx.h"
#using <mscorlib.dll>
#include<conio.h>
using namespace System;
using namespace System::IO; 
using namespace pingnew;
 
Int32 main(void)
{
    ICMP_pro *pro1=new ICMP_pro();
    pro1->SendPacket("172.20.20.28"); 
    int d=getch();
    return 0;
}