🚀 go-pugleaf

I don't know if this is the correct place for this but since it uses
sockets and ports I made a guess.

This is reputed to be a PING.c   example.
it came from 
http://www.vijaymukhi.com/vmis/wsockexp.htm


I downloaded it directly from the web and attempted to create a
console app.  I think it is quite old code.

When I compile it it gives  me several errors but all  are so similar
that I think the resolution for one will apply to many.

So here goes.

The error messages are 
indicated by a -> at the begriming of the line
No doubt very basic for experienced programmers but...

//------------------------------------------------------------------
[34] E2034 Cannot convert 'void*" to HINSTANCE__*'
[34] E2343 Type mismatch in parameter "hModule" in call to '__stdcall
GetProcAddress(HINSTANCE__*,const char *]"
[34] E2034 Cannot convert *int(__stdcall*)()' to void * (__stdcall *
)()'

//------------------------------------------------------------------


#include <windows.h>
 struct o
 {
  unsigned char Ttl,Tos,Flags,OptionsSize,*OptionsData;
 };
 struct
 {
  DWORD Address;
  unsigned long  Status,RoundTripTime;
  unsigned short DataSize,Reserved;
  void *Data;
  struct o  Options;
 } E;

 HANDLE hIP;WSADATA wsa;HANDLE hIcmp;DWORD *dwIPAddr;struct hostent 
    *phostent;
 DWORD d;char aa[100];struct o I;

 HANDLE ( WINAPI *pIcmpCreateFile )( VOID );
 BOOL ( WINAPI *pIcmpCloseHandle )( HANDLE );
 DWORD (WINAPI *pIcmpSendEcho)(HANDLE,DWORD,LPVOID,WORD,LPVOID,
                                                 LPVOID,DWORD,DWORD);


int APIENTRY WinMain( HINSTANCE hInstance, HINSTANCE hPrev,
                                         LPSTR lpCmd,int nShow )
  {
    hIcmp = LoadLibrary( "ICMP.DLL" );
    WSAStartup( 0x0101, &wsa );
    phostent = gethostbyname( "www.microsoft.com");
    dwIPAddr = (DWORD *)( *phostent->h_addr_list );

->    pIcmpCreateFile=GetProcAddress( hIcmp,"IcmpCreateFile");
->    pIcmpCloseHandle=GetProcAddress( hIcmp,"IcmpCloseHandle");
->    pIcmpSendEcho =GetProcAddress( hIcmp,"IcmpSendEcho" );

    hIP = pIcmpCreateFile();
    I.Ttl=6;
    pIcmpSendEcho(hIP,*dwIPAddr,0,0,&I,&E,sizeof(E),8000 );
    d=E.Address;
    phostent = gethostbyaddr((char *)&d,4,PF_INET);
    sprintf(aa,"gethostbyaddr %p",phostent );
    MessageBox(0,aa,aa,0);
    if ( phostent  != 0 ) MessageBox(0,phostent->h_name,"hi",0);
    wsprintf(aa,"RTT: %dms,TTL:%d", E.RoundTripTime, E.Options.Ttl );
    MessageBox(0,aa,"hi",0);
    pIcmpCloseHandle( hIP );
    FreeLibrary( hIcmp );
    WSACleanup();
  }

//-----------------------------------------------------------------