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 :
Le probème est que la fenêtre de commande apparaît malgrès le Hidden...
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()
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 :
mais ça ne me plais pas des masses d'aller écrire et lire le fichier fiTemp 50 fois en 25 secondes...Shell("cmd.exe /c ping -n 1 -w 500 " & adIp & " >>" & fiTemp.FullName, AppWinStyle.Hide, True)
Partager