Bonjour,
dans mon appli j'ai besoin de tester très rapidement une série d'adresse IP, de 10 à 50 environ.
J'ai essayé la classe diagnostic :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Dim proc As New Diagnostics.Process
With proc.StartInfo
   .UseShellExecute = False
   .WindowStyle = ProcessWindowStyle.Hidden
   .RedirectStandardOutput = True
   .FileName = "ping.exe"
   .Arguments = " -n 1 -w 500 " & adIP
End With
proc.Start()
Le probème est que la fenêtre de commande apparaît malgrès le Hidden...
Si quelqu'un voit comment régler ce problème je le remercie d'avance.
Pour le moment je l'ai réglé avec ceci :
Shell("cmd.exe /c ping -n 1 -w 500 " & adIp & " >>" & fiTemp.FullName, AppWinStyle.Hide, True)
mais ça ne me plais pas des masses d'aller écrire et lire le fichier fiTemp 50 fois en 25 secondes...