[RESOLU] Commandes inconnues

[case]

au hazard je dirais...

Code : Tout sélectionner

InitNetwork()
Debug " ping"
If OpenNetworkConnection("www.purebasic.fr",80) 
Debug " pong "
Else
Debug " pas de bol"
EndIf

[Anonyme 2]

Moi je sais pas alors

[Backup]

au hazard je dirais...

bon j'avais dit :

(les autres ne répondez pas ..)

tu vas me dire que ton pseudo c'est case pas "les autres"

le plus court que je connaisse c'est :

Code : Tout sélectionner

RunProgram("ping.exe", "192.168.0.1", "", 0)

sinon pour avoir des infos plus importante genre ipconfig ...
c'est :

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)

voila tu couchera moins ... enfin plus ...informé

[venom]

pour du ping via purebasic, j'avais fait ce petit code simple:

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

@++

[case]

il a avoué qu'il savais pas du coup ... bah ...

et puis je trouve que ça manque de classe ta solution dobro, et c'est même pas multiplateforme , je crois pas qu'il y ait un ping.exe sous mac os ou linux

[Anonyme 2]

Yo,
En gros on peut ou pas utiliser la bibliothèque Network pour faire un ping ou pas? En vue de vos réponses, je pense que c'est pas possible..

[djes]

Normalement, ce n'est pas prévu pour, puisque ce n'est pas la même couche réseau. La bibliothèque network ne s'occupe que de la couche application.

[Anonyme 2]

Ok merci pour vos reponses

EDIT:Juste une petite reponse en plus: ces commandes utilise la librairie de Winsock