[RESOLU] Commandes inconnues

[Anonyme 2]

Yo,
J'aimerais des informations sur des commandes non-déclérées dans le manuel purebasic, tel que:
IcmpCreateFile()
inet_addr_()
IcmpSendEcho()
Pourquoi ne sont-elles pas présentées dans l'aide, ou ou est-ce que je pourrais avoir des infos sur celles-ci, merci!

[dayvid]

Sa ne ressemble pas a une commande de pure basic
je dirais de l'APEI plutôt

Je ne sais pas a quoi elle servent
Sinon pt'être une commande de procedure ou de macro

[falsam]

@dayvid : Tu as raison ce sont des API pas des APEI
A.P.I. pour Application Programming Interface. Tu trouveras quelques explications sur en cliquant sur ce lien

@Dzoumaka : IcmpCreateFile_ inet_addr_ et IcmpSendEcho_ sont des API.

inet_addr est la fonction des Sockets Windows pour convertir une chaîne contenant une adresse à point en une in_addr.

IcmpCreateFile crée un handle sur lequel des requêtes ICMP (1) peuvent être adressées.

IcmpSendEcho envoie une requête en echo pour un ICMP (1) qui retourne une ou plusieurs réponses.

(1) ICPM : Internet Control Message Protocol

Quelques exemples glaner sur les forums consacrés à Pure Basic.

Tester la validité d'une adresse IP

Code : Tout sélectionner

;Tester la validité une adresse IP
IP.s = "192.168.1.0"

Result =inet_addr_(IP)

If Result = -1 
  Debug("L'IP "+ IP +" est erronée")
Else
  Debug("L'IP "+ IP +" est correcte")
EndIf

Pinger une adresse IP (Utilisation de IcmpSendEcho_ et IcmpCreateFile_)

Code : Tout sélectionner

EchoMessage.s = "MVPing make a Ping Test"
ResultSize.l = SizeOf(ICMP_ECHO_REPLY) + Len(EchoMessage)
*Result = AllocateMemory(ResultSize) 
*Echo.ICMP_ECHO_REPLY = *Result

If OpenConsole() 
  ConsoleTitle("MVPing")
  Repeat
    ConsoleColor(15,0)
    Print("Adresse IP: ")
    ConsoleColor(10,0)
    sIPAddress.s = Input() 
    PrintN("")
    
    If Len(sIPAddress ) > 0 
      hFile.l = IcmpCreateFile_() 
      IPAddress.l=MakeIPAddress(Val(StringField(sIPAddress,1,".")),Val(StringField(sIPAddress,2,".")),Val(StringField(sIPAddress,3,".")),Val(StringField(sIPAddress+".",4,"."))) 
      ConsoleColor(14,0)
      For Boucle.l = 1 To 4 
        lngResult.l = IcmpSendEcho_(hFile, IPAddress, EchoMessage, Len(EchoMessage), 0, *Result, ResultSize, 500) 
        PrintN("Ping " + sIPAddress + " Octets: " + Str(*Echo\DataSize) + " Temps: " + Str(*Echo\RoundTripTime) + " ms TTL:" + StrU(*Echo\Options\Ttl,#PB_Byte))
        Delay(500)
      Next 
      IcmpCloseHandle_(hFile)
    EndIf 
  Until sIPAddress= ""
  FreeMemory(*Result)
EndIf
End

[djes]

Il faut que vous récupériez le fichier win32.hlp quelque part (désolé, je ne peux pas le mettre ici, il est sous copyright), et que vous le mettiez dans un dossier help dans votre dossier purebasic. Ceci fait, vous pourrez faire F1 pour avoir de l'aide sur la plupart des commandes de l'API Windows. Par contre, pour les plus récentes, il faudra utiliser Google.

[Anonyme 2]

Yo,
Merci pour toutes vos réponses, je vais annalyser cela

[falsam]

les fonctions natives de la library Network ne sont elles pas suffisantes ?

[Anonyme 2]

Soif de connaissances falsam!!
(par exemple, je ne savais même pas qu'il existait des API windows lol )

[Patrick88]

Il faut que vous récupériez le fichier win32.hlp quelque part (désolé, je ne peux pas le mettre ici, il est sous copyright), et que vous le mettiez dans un dossier help dans votre dossier purebasic. Ceci fait, vous pourrez faire F1 pour avoir de l'aide sur la plupart des commandes de l'API Windows. Par contre, pour les plus récentes, il faudra utiliser Google.

dispo sur le site web de purebasic , section lien.

pat

[Anonyme 2]

Est-ce que ce code peut-être adapté en utilisant la bibliothèque Network?:

Code : Tout sélectionner

EchoMessage.s = "MVPing make a Ping Test"
ResultSize.l = SizeOf(ICMP_ECHO_REPLY) + Len(EchoMessage)
*Result = AllocateMemory(ResultSize) 
*Echo.ICMP_ECHO_REPLY = *Result
If OpenConsole() 
  ConsoleTitle("MVPing")
  Repeat
    ConsoleColor(15,0)
    Print("Adresse IP: ")
    ConsoleColor(10,0)
    sIPAddress.s = Input() 
    PrintN("")    
    If Len(sIPAddress ) > 0 
      hFile.l = IcmpCreateFile_() 
      IPAddress.l=MakeIPAddress(Val(StringField(sIPAddress,1,".")),Val(StringField(sIPAddress,2,".")),Val(StringField(sIPAddress,3,".")),Val(StringField(sIPAddress+".",4,"."))) 
      ConsoleColor(14,0)
      For Boucle.l = 1 To 4 
        lngResult.l = IcmpSendEcho_(hFile, IPAddress, EchoMessage, Len(EchoMessage), 0, *Result, ResultSize, 500) 
        PrintN("Ping " + sIPAddress + " Octets: " + Str(*Echo\DataSize) + " Temps: " + Str(*Echo\RoundTripTime) + " ms TTL:" + StrU(*Echo\Options\Ttl,#PB_Byte))
        Delay(500)
      Next 
      IcmpCloseHandle_(hFile)
    EndIf 
  Until sIPAddress= ""
  FreeMemory(*Result)
EndIf
End

[djes]

Ne dites rien, mais je crois bien que le fichier est dispo là : http://www.carabez.com/downloads.html (/win32api_big.zip)
Si vous n'arrivez pas à l'ouvrir, allez voir aussi de ce côté là : http://support.microsoft.com/kb/917607

[Backup]

Est-ce que ce code peut-être adapté en utilisant la bibliothèque Network?:

si le but est de faire un ping , il y a beaucoup plus court

[Anonyme 2]

@Dobro:
Oui oui, c'est vrai qu'il y a plus simple, mais c'est juste pour avoir une ptite idee des capacitées de la bibliothèque Network

[Backup]

@Dobro:
Oui oui, c'est vrai qu'il y a plus simple,

ha ; alors tu ferai comment ? (les autres ne répondez pas ..) (petit test pour voir... )

[Anonyme 2]

Démarrer>Cmd>ping

[Backup]

Démarrer>Cmd>ping

en Purebasic !! on parle bien de programmation ici non ?