cmd lancé par RunProgram fenetre réduite

[jmg49]

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,

[Micoute]

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

[jmg49]

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

[Atlante]

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()

[jmg49]

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,