PureBasic

Bonjour,

savez vous s'il existe une possibilité pour que lorsqu'on lance la commande ping par RunProgram, la fenêtre CMD se lance réduite ?

je ne veux pas la cacher , mais la réduire , si j'utilise #PB_Program_Hide , je ne peux plus utiliser #PB_Program_Read ou ProgramRunning() car

j'ai besoin de parser dans les strings de sortie ....

j'ai trouvé quelques infos mais en passant par du VBS avec un start : prog /min .....et ça , plus j'évite mieux je me porte ...

Merci,

Bonjour jmg49, je pense qu'un simple ResizeWindow devrait faire l'affaire.

le problème c'est que RunProgram lance un CMD.exe qui n'est pas dans la fenetre créée avec OpenWindow ....

Code : Tout sélectionner

Procedure ping(ip.s, mode.s) ; fait un ping d'une machine avec 4 paquets
If mode = "-t"
requete.l = RunProgram("ping"," -t "+ ip , "", #PB_Program_Open|#PB_Program_Read|#PB_Program_Hide   )
EndIf
If mode = ""
requete.l = RunProgram("ping", ip , "", #PB_Program_Open|#PB_Program_Read|#PB_Program_Hide   )
EndIf
If requete
  While ProgramRunning(requete)
    Output.s = ReadProgramString(requete)
    Output = ReplaceString(Output, "ÿ", " ",#PB_String_NoCase )
    Output = ReplaceString(Output, "requˆte", "requête",#PB_String_NoCase )
    Output = ReplaceString(Output, "‚", "é",#PB_String_NoCase )
    Output = ReplaceString(Output, "re‡us", "reçu",#PB_String_NoCase )
    Debug Output
    If FindString(Output,"Paq",1)
     Break
    EndIf
  Wend
  CloseProgram(requete)
  EndIf
EndProcedure


Procedure ipconfig(complet.l) ; donnes les informations réseau du pc
If complet = 1
requete.l = RunProgram("ipconfig","/all" ,"", #PB_Program_Open|#PB_Program_Read|#PB_Program_Hide   )
EndIf
If complet = 0
requete.l = RunProgram("ipconfig","" ,"", #PB_Program_Open|#PB_Program_Read|#PB_Program_Hide   )
EndIf
If requete
  While ProgramRunning(requete)
    Output.s = ReadProgramString(requete)
    Output = ReplaceString(Output, "ÿ", " ",#PB_String_NoCase )
    Output = ReplaceString(Output, "requˆte", "requête",#PB_String_NoCase )
    Output = ReplaceString(Output, "‚", "é",#PB_String_NoCase )
    Output = ReplaceString(Output, "re‡us", "reçu",#PB_String_NoCase )
    Output = ReplaceString(Output, "h“te", "hôte",#PB_String_NoCase )
    Output = ReplaceString(Output, "Contr“leur", "contrôleur",#PB_String_NoCase )
   
    Debug Output
  Wend
  CloseProgram(requete)
  EndIf

EndProcedure


Procedure trace(ip.s) ; permet de savoir par quel vlan on passe pour acceder à une ip
requete.l = RunProgram("tracert", ip , "", #PB_Program_Open|#PB_Program_Read|#PB_Program_Hide   )
If requete
  While ProgramRunning(requete)
    Output.s = ReadProgramString(requete)
    Output = ReplaceString(Output, "ÿ", " ",#PB_String_NoCase )
    Output = ReplaceString(Output, "requˆte", "requête",#PB_String_NoCase )
    Output = ReplaceString(Output, "‚", "é",#PB_String_NoCase )
    Output = ReplaceString(Output, "re‡us", "reçu",#PB_String_NoCase )
    If FindString(Output,"Itinéraire déterminé.",1)
     Break
    EndIf
    Debug Output
   Wend
  CloseProgram(requete)
  EndIf
EndProcedure


Procedure.s mac() ; renvoie l'adresse Mac de la carte réseau.
requete.l = RunProgram("ipconfig","/all" ,"", #PB_Program_Open|#PB_Program_Read|#PB_Program_Hide   )

If requete
  While ProgramRunning(requete)
    Output.s = ReadProgramString(requete)
    Output = ReplaceString(Output, "ÿ", " ",#PB_String_NoCase )
    Output = ReplaceString(Output, "requˆte", "requête",#PB_String_NoCase )
    Output = ReplaceString(Output, "‚", "é",#PB_String_NoCase )
    Output = ReplaceString(Output, "re‡us", "reçu",#PB_String_NoCase )
    Output = ReplaceString(Output, "h“te", "hôte",#PB_String_NoCase )
    Output = ReplaceString(Output, "Contr“leur", "contrôleur",#PB_String_NoCase )
    If FindString(Output,"Adresse physique",1)
        Output = Right(Output, Len(Output)-FindString(Output, ":", 1))
     ; Debug output
     Break
    EndIf
  Wend
  CloseProgram(requete)
  ProcedureReturn output
  EndIf
EndProcedure


Procedure NetView() ; affiche toutes les machines sur le même domaine
requete = RunProgram("NET","VIEW" ,"", #PB_Program_Open|#PB_Program_Read|#PB_Program_Hide   )

If requete
  While ProgramRunning(requete)
    Output.s = ReadProgramString(requete)
   
    Debug Output ; à cet endroit mettez ce qu'il vous faut pour ajouter dans un gadget par exemple.
  Wend
  CloseProgram(requete)
  EndIf
EndProcedure




;netview()

; trace("www.google.fr")

ping("127.0.0.1","")

; ipconfig(1)

Debug mac()

Merci ,

j'avais juste besoin de ça : RunProgram("ping", ip , "", #PB_Program_Open|#PB_Program_Read|#PB_Program_Hide )

question de syntaxe du Program_hide, je ne mettais pas de |

du coup merci pour l'utilitaire réseau ! toujours utile,

PureBasic

cmd lancé par RunProgram fenetre réduite

cmd lancé par RunProgram fenetre réduite

Re: cmd lancé par RunProgram fenetre réduite

Re: cmd lancé par RunProgram fenetre réduite

Re: cmd lancé par RunProgram fenetre réduite

Re: cmd lancé par RunProgram fenetre réduite