Page 1 sur 1
Application ping
Publié : sam. 25/nov./2006 4:12
par 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/
Publié : sam. 25/nov./2006 12:10
par Backup
Publié : sam. 25/nov./2006 13:18
par 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
Publié : sam. 25/nov./2006 14:01
par Anonyme
Publié : sam. 25/nov./2006 14:25
par MetalOS
Merci pour vos reponses, je connaissais
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.
Publié : sam. 25/nov./2006 18:03
par Backup
Cpl.Bator a écrit : @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)