Application ping

[MetalOS]

Bonjour,

Je cherche à faire une application pour tester mon reseau local, donc un ptit soft pour pinger les adresse ip de mon reseau, mais je ne c pas trop comment mis prendre. Si quelqu'un pourrait me conseiller.

Voici l'interface de mon apli si ca peut vous aider.
http://info-project.neuf.fr/

[Backup]

Code : Tout sélectionner

RunProgram("cmd.exe", "?/c ping 127.0.0.1", "")

[Flype]

peut etre aussi comme çà :

Code : Tout sélectionner

InitNetwork()

Connection = OpenNetworkConnection("192.168.0.1", 139) ; 139=NetBios, 80=Http, etc...

If Connection
  
  CloseNetworkConnection(Connection)
  
  Debug "Succès"
  
Else
  
  Debug "Echec"
  
EndIf

[Anonyme]

@Dobro, comment tu fait pour récuperer le resultat ?


http://purebasic.forum-gratuit.com/view ... 35&start=0

[MetalOS]

Merci pour vos reponses, je connaissais

Code : Tout sélectionner

RunProgram("cmd.exe", "?/c ping 127.0.0.1", "") 

mais ca m'ouvre une console, moi je veut faire ca en mode graphique.
J'ai regarder le topic que tu à mis en lien Cpl.bator et la source sur PB 4.01 marche tres bien je vais m'en inspirer pour mon soft. Si ca marche je balance ma source ici.

[Backup]

@Dobro, comment tu fait pour récuperer le resultat ?

comme ça

prg= RunProgram ( "cmd.exe" , "?/c ping 127.0.0.1" , "" , #PB_Program_Open|#PB_Program_Read )

If prg
     While ProgramRunning (prg)
         Debug ReadProgramString (prg)
     Wend
EndIf
CloseProgram (prg)