Re: Ping et net send comme sous dos(Presque) |
Sujet: Re: Ping et net send comme sous dos(Presque) par Anonyme sur 16/9/2003 11:59:32 ou bien un simple petit ping avec cette "petite" fonction : FONCTION Gbl_Ping_adresseIP(IpHote_) IpHote est une chaîne = IpHote_ // Par défaut TimeOut est un entier retVal est un entier hIcmp est un entier SizeReply est un entier ReplyData est un entier IpAdress est un entier IpAdress = AppelDLL32("Wsock32", "inet_addr", IpHote) // Mauvaise adresse IP SI IpAdress = 0xFFFFFFFF ALORS RENVOYER Faux FIN SizeReply = 255 TimeOut = 25 hIcmp = AppelDLL32("icmp", "IcmpCreateFile") retVal = AppelDLL32("icmp", "IcmpSendEcho", hIcmp, IpAdress, 0, 0, Null, &ReplyData, SizeReply, TimeOut) AppelDLL32("icmp", "IcmpCloseHandle", hIcmp) RENVOYER retVal |