Tweet
Grüße!
Ich bin gerade dabei mir etwas .net beizubringenund komme auch recht gut voran denke ich! Jetzt habe ich versucht ein Programm zu schreiben, welches einen Ping sendet und mir die Antwortdaten ausgibt! Das Hauptprogramm besteht aus zwei Prozeduren und es funktioniert auch solange diese nacheinander, einmalig durchlaufen werden! Nun wollte ich einen variable Anzahl von Pings senden und habe die zwei Prozeduren in einer Schleife aufgerufen! Die erste wird auch noch durchlaufen, aber bei der zweiten bringt er mir immer folgenden Fehler:
Unable to cast object of type 'System.Windows.Forms.MouseEventArgs' to type 'System.Net.NetworkInformation.PingCompletedEventA rgs'
Programmcode:
Private Sub ButPingClick(ByVal sender As Object, e As EventArgs)
Call ping(sender, e)
Call auswerten(sender, e)
End Sub
Private Sub ping(ByVal sender As Object, ByVal e As EventArgs)
Dim data As String
data = "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
mPing = New Ping
mPing.SendAsync(txtIP.Text, 24, data)
End Sub
Private Sub auswerten(ByVal sender As Object, ByVal e As System.Net.NetworkInformation.PingCompletedEventAr gs) Handles mPing.PingCompleted
Dim strBuffer As String = ""
Dim R As PingReply = e.Reply
Try
If e.Cancelled Then
strBuffer = "Ping " & txtIP.Text & " cancelled."
Else
If R.Status = IPStatus.Success Then
lblIP.Text = R.Address.ToString()
lblStatus.Text = R.Status.ToString
lblWert.Text = R.RoundtripTime.ToString
Else
lblIP.Text = R.Address.ToString()
lblStatus.Text = R.Status.ToString
End If
End If
Catch Ex As Exception
strBuffer = e.Error.Message
If e.Error.InnerException IsNot Nothing Then
strBuffer = strBuffer & ControlChars.CrLf & _
e.Error.InnerException.Message
End If
End Try
End Sub
Ich hoffe ihre könnt mir helfen!
LG STE
Ich bin gerade dabei mir etwas .net beizubringenund komme auch recht gut voran denke ich! Jetzt habe ich versucht ein Programm zu schreiben, welches einen Ping sendet und mir die Antwortdaten ausgibt! Das Hauptprogramm besteht aus zwei Prozeduren und es funktioniert auch solange diese nacheinander, einmalig durchlaufen werden! Nun wollte ich einen variable Anzahl von Pings senden und habe die zwei Prozeduren in einer Schleife aufgerufen! Die erste wird auch noch durchlaufen, aber bei der zweiten bringt er mir immer folgenden Fehler:
Unable to cast object of type 'System.Windows.Forms.MouseEventArgs' to type 'System.Net.NetworkInformation.PingCompletedEventA rgs'
Programmcode:
Private Sub ButPingClick(ByVal sender As Object, e As EventArgs)
Call ping(sender, e)
Call auswerten(sender, e)
End Sub
Private Sub ping(ByVal sender As Object, ByVal e As EventArgs)
Dim data As String
data = "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
mPing = New Ping
mPing.SendAsync(txtIP.Text, 24, data)
End Sub
Private Sub auswerten(ByVal sender As Object, ByVal e As System.Net.NetworkInformation.PingCompletedEventAr gs) Handles mPing.PingCompleted
Dim strBuffer As String = ""
Dim R As PingReply = e.Reply
Try
If e.Cancelled Then
strBuffer = "Ping " & txtIP.Text & " cancelled."
Else
If R.Status = IPStatus.Success Then
lblIP.Text = R.Address.ToString()
lblStatus.Text = R.Status.ToString
lblWert.Text = R.RoundtripTime.ToString
Else
lblIP.Text = R.Address.ToString()
lblStatus.Text = R.Status.ToString
End If
End If
Catch Ex As Exception
strBuffer = e.Error.Message
If e.Error.InnerException IsNot Nothing Then
strBuffer = strBuffer & ControlChars.CrLf & _
e.Error.InnerException.Message
End If
End Try
End Sub
Ich hoffe ihre könnt mir helfen!
LG STE
Comment