L'auteur
Gregory Adam
 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é 9170 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é ...
|
Retour à la liste