Forums PureBasic - Français
http://forums.purebasic.com/french/
Code : Tout sélectionner
InitNetwork()
Debug " ping"
If OpenNetworkConnection("www.purebasic.fr",80)
Debug " pong "
Else
Debug " pas de bol"
EndIf
bon j'avais dit :case a écrit :au hazard je dirais...
tu vas me dire que ton pseudo c'est case pas "les autres"(les autres ne répondez pas ..)
Code : Tout sélectionner
RunProgram("ping.exe", "192.168.0.1", "", 0)
Code : Tout sélectionner
prg=RunProgram("cmd.exe", "?/c ipconfig", "", #PB_Program_Open|#PB_Program_Read)
If prg
While ProgramRunning(prg)
Debug ReadProgramString(prg)
Wend
EndIf
CloseProgram(prg)
Code : Tout sélectionner
;- Window Constants
Enumeration
#Window_0
EndEnumeration
;- Gadget Constants
Enumeration
#Frame3D_0
#IPAddress_0
#Button_0
#Text_envoys
#Text_reus
#Text_perdu
#Text_Perte
#Text_Duree_min
#Text_Duree_max
#Text_Moyenne
EndEnumeration
If OpenWindow(#Window_0, 216, 0, 460, 145, "Ping Powah", #PB_Window_SystemMenu | #PB_Window_TitleBar | #PB_Window_ScreenCentered )
Frame3DGadget(#Frame3D_0, 10, 10, 440, 125, "")
StringGadget(#IPAddress_0, 25, 25, 200, 20, "www.purebasic.com")
ButtonGadget(#Button_0, 235, 25, 200, 20, "Lancer une requête ping")
TextGadget(#Text_envoys, 25, 55, 120, 20, "Paquets envoyés = ")
TextGadget(#Text_reus, 25, 80, 120, 20, "Paquets reçus = ")
TextGadget(#Text_perdu, 25, 105, 120, 20, "Paquets perdu = ")
TextGadget(#Text_Perte, 170, 55, 120, 20, "Perte = ")
TextGadget(#Text_Duree_min, 170, 80, 120, 20, "Durée minimum = ")
TextGadget(#Text_Duree_max, 170, 105, 120, 20, "Durée maximum = ")
TextGadget(#Text_Moyenne, 310, 80, 125, 20, "Moyenne = ")
EndIf
Repeat
EventID = WaitWindowEvent()
If EventID = #PB_Event_Gadget
Select EventGadget()
Case #Button_0
adresseip$ = GetGadgetText(#IPAddress_0)
Programme = RunProgram("ping.exe", adresseip$, "", #PB_Program_Open | #PB_Program_Read | #PB_Program_Hide)
Output.s = ""
Output1.s = ""
While ProgramRunning(Programme )
Output = ReadProgramString(Programme )
If FindString(Output,"Paq",1)
Break
EndIf
Wend
While ProgramRunning(Programme)
Output1 = ReadProgramString(Programme)
If FindString(Output1,"Min",1)
Break
EndIf
Wend
OemToChar_(@Output,@Output)
OemToChar_(@Output1,@Output1)
Paquets_envoyes$= Mid(Output, 25, 1)
TextGadget(#Text_envoys, 25, 55, 120, 20, "Paquets envoyés = "+Paquets_envoyes$)
Paquets_recu$= Mid(Output, 36, 1)
TextGadget(#Text_reus, 25, 80, 120, 20, "Paquets reçus = "+Paquets_recu$)
Paquets_perdu$= Mid(Output, 48, 1)
Resultat = TextGadget(#Text_perdu, 25, 105, 120, 20, "Paquets perdu = "+Paquets_perdu$)
If Val(Paquets_perdu$) = 0
Perte$= Mid(Output, 57, 1)
TextGadget(#Text_Perte, 170, 55, 120, 20, "Perte = "+Perte$+"%")
ElseIf Val(Paquets_perdu$) = 4
Perte$= Mid(Output, 57, 3)
TextGadget(#Text_Perte, 170, 55, 120, 20, "Perte = "+Perte$+"%")
EndIf
Duree_minimum$ = Mid(Output1, 15, 4)
Resultat1 = TextGadget(#Text_Duree_min, 170, 80, 120, 20, "Durée minimum = "+Duree_minimum$)
Duree_maximum$ = Mid(Output1, 30, 5)
Resultat2 = TextGadget(#Text_Duree_max, 170, 105, 120, 20, "Durée maximum = "+Duree_maximum$)
Moyenne$ = Mid(Output1, 46, 7)
Resultat3 = TextGadget(#Text_Moyenne, 310, 80, 125, 20, "Moyenne = "+Moyenne$)
EndSelect
EndIf
Until EventID = #PB_Event_CloseWindow
