ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Ping with IcmpSendEcho2()   



L'auteur

Gregory Adam
Belgique Belgique
Membre Actif (personne physique)
# 0000001121
enregistré le 04/06/2006

Fiche personnelle


Note des membres
pas de note

Contributions > 05 - API et appels systèmes > IP

Ping with IcmpSendEcho2()
# 0000000779
ajouté le 26/01/2011 18:11:12 et modifié le 26/01/2011
consulté 5707 fois
Niveau initié

Version(s) Foxpro :
VFP 9.0
VFP 8.0


Le téléchargement des pièces jointes est limité aux membres
Veuillez vous identifier ou vous inscrire si vous n'avez pas encore de compte ...
Description

Contient une classe qui resoud une addresse ip ou un url (utilisant ws2_32.dll)

Contient un classe qui permet de faire un ping en utilisant IcmpSendEcho2() contenu dans iphlpapi.dll ou icmp.dll

Minimum OS : win2000

Traduction de l'exemple dans http://msdn.microsoft.com/en-us/library/aa366051(VS.85).aspx

Code source :
#define true  .T.
#define false  .F.

set procedure to .\prog\PingBits additive

local success
success = true


local obj

local replyAddress, ;
    replyStatus, ;
    replyRoundTripTime, ;
    replyDataSize, ;
    replyData

local pingArray[4]
pingArray[1] = '192.168.0.2'
pingarray[2] = 'www.altavista.com'
pingarray[3] = 'www.universalthread.com'

pingarray[4] = 'www.abc.pp.com'

do case
case !m.success

case !PingBits_Object(@m.obj)
  assert false
  success = false

otherwise
  local site, reachable


  for each site in pingarray
    ?m.site, chr(0x09)
    reachable= m.obj.Ping( ;
            m.site, ;
            1000, ;
            @m.replyAddress, ;
            @m.replyStatus, ;
            @m.replyRoundTripTime, ;
            @m.replyDataSize, ;
            @m.replyData ;
            )

    if( !m.reachable)
      ?? 'Failed'

    else
      ?? 'ms= ', replyRoundTripTime, 'address = ', replyAddress, ' received: ', m.replyData

    endif

  endfor

endcase

Commentaires
Aucun commentaire enregistré ...

www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2020.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3