Discussion :

[mouztik]

Hello,
Je débute en vb.net (je fais déjà du vbs) et j'ai une petite difficulté.
Je souhaite pinguer une liste de machines que j'insère dans une textbox multiple.
Le problème est que le ping de la première machine est toujours ok, mais la suivante il y a toujours un problème. (la liste de machines est ok et je n'ai pas de soucis a les pinguer via cmd)
Je ne sais pas si cela vient du for each ou si je dois terminer le ping par une commande spécifique pour que je puisse en faire un autre.
Voici le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
Imports System.Net
Imports System.Net.NetworkInformation
 
Public Class Form1
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()
    End Sub
 
    Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'On Error Resume Next
        For Each strLine As String In TextBox1.Text.Split(vbNewLine)
 
            Dim _ping As New Ping
            Dim _pingreply = _ping.Send(strLine, 2000)
            If _pingreply.Status = IPStatus.Success Then
                MsgBox("success")
            Else
                MsgBox("failed")
            End If
        Next
        'On Error GoTo 0
 
    End Sub
 
End Class

Au deuxième passage dans le for each j'ai l'erreur suivante: System.Net.NetworkInformation.PingException {"An exception occurred during a Ping request."}


le détails:

L'exception System.Net.NetworkInformation.PingException n'a pas été gérée
HResult=-2146233079
Message=An exception occurred during a Ping request.
Source=System
StackTrace:
at System.Net.NetworkInformation.Ping.Send(String hostNameOrAddress, Int32 timeout, Byte[] buffer, PingOptions options)
at System.Net.NetworkInformation.Ping.Send(String hostNameOrAddress, Int32 timeout)
at WindowsApplication1.Form1.Button1_Click(Object sender, EventArgs e) in \\xxxxxxxx\username$\Data\Visual Studio 2010\Projects\checkmcaffeeversion.vb:line 16
at System.Windows.Forms.Control.OnClick(EventArgs e)
at System.Windows.Forms.Button.OnClick(EventArgs e)
at System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent)
at System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks)
at System.Windows.Forms.Control.WndProc(Message& m)
at System.Windows.Forms.ButtonBase.WndProc(Message& m)
at System.Windows.Forms.Button.WndProc(Message& m)
at System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
at System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
at System.Windows.Forms.NativeWindow.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
at System.Windows.Forms.UnsafeNativeMethods.DispatchMessageW(MSG& msg)
at System.Windows.Forms.Application.ComponentManager.System.Windows.Forms.UnsafeNativeMethods.IMsoComponentManager.FPushMessageLoop(IntPtr dwComponentID, Int32 reason, Int32 pvLoopData)
at System.Windows.Forms.Application.ThreadContext.RunMessageLoopInner(Int32 reason, ApplicationContext context)
at System.Windows.Forms.Application.ThreadContext.RunMessageLoop(Int32 reason, ApplicationContext context)
at System.Windows.Forms.Application.Run(ApplicationContext context)
at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.OnRun()
at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.DoApplicationModel()
at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.Run(String[] commandLine)
at WindowsApplication1.My.MyApplication.Main(String[] Args) in 17d14f5c-a337-4978-8281-53493378c1071.vb:line 81
at System.AppDomain._nExecuteAssembly(RuntimeAssembly assembly, String[] args)
at System.AppDomain.ExecuteAssembly(String assemblyFile, Evidence assemblySecurity, String[] args)
at Microsoft.VisualStudio.HostingProcess.HostProc.RunUsersAssembly()
at System.Threading.ThreadHelper.ThreadStart_Context(Object state)
at System.Threading.ExecutionContext.RunInternal(ExecutionContext executionContext, ContextCallback callback, Object state, Boolean preserveSyncCtx)
at System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state, Boolean preserveSyncCtx)
at System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state)
at System.Threading.ThreadHelper.ThreadStart()
InnerException: System.Net.Sockets.SocketException
ErrorCode=11001
HResult=-2147467259
Message=No such host is known
NativeErrorCode=11001
Source=System
StackTrace:
at System.Net.Dns.GetAddrInfo(String name)
at System.Net.Dns.InternalGetHostByName(String hostName, Boolean includeIPv6)
at System.Net.Dns.GetHostAddresses(String hostNameOrAddress)
at System.Net.NetworkInformation.Ping.Send(String hostNameOrAddress, Int32 timeout, Byte[] buffer, PingOptions options)
InnerException:


Avez-vous une idée ?

Merci
Fabien

[Kropernic]

Hello,

N'y a-t-il pas une InnerException (dans l'exception) ?

[DotNetMatt]

Vérifie ce que tu as à chaque itération dans la variable strLine.

Le message d'erreur est clair : "No such host known" donc tu dois avoir des valeurs incorrectes, ou alors tu as indiqué dans ton textbox une machine qui n'existe pas...

[Kropernic]

Vérifie ce que tu as à chaque itération dans la variable strLine.

Le message d'erreur est clair : "No such host known" donc tu dois avoir des valeurs incorrectes, ou alors tu as indiqué dans ton textbox une machine qui n'existe pas...

J'avais pas vu qu'il y avait l'inner exception en dessous du stacktrace XD.

C'est justement l'info que je cherchais à obtenir pour lui en faire prendre conscience ^^. Bien vu !

[mouztik]

Ok j'ai trouvé, mon split me laissait un retour a la ligne dans mon strline, et toujours au deuxième passage sur le for each.

J'ai changé le split par "For Each Strline As String In TextBox1.Lines" et la tout fonctionne.

Merci de votre aide!