エラーメッセージの解決
- 題名: エラーメッセージの解決
- 著者: 悩み中の人
- 日時: 2009/06/25 16:53:00
- ID: 24825
- この記事の返信元:
- この記事への返信:
- ツリーを表示
- 題名: Re[1]: エラーメッセージの解決
- 著者: オショウ
- 日時: 2009/06/25 18:23:54
- ID: 24826
- この記事の返信元:
- この記事への返信:
- ツリーを表示
- 題名: Re[2]: エラーメッセージの解決
- 著者: 悩み中の人
- 日時: 2009/06/26 11:51:13
- ID: 24829
- この記事の返信元:
- この記事への返信:
- ツリーを表示
分類:[.NET]
以前、pingツールについて質問した者です。
なんとかpingは通るようになったのですが、IPアドレスの入力方法を間違えると
(63.23.123.23というIPアドレスをそのまま通すと063.023.123.023と書くと通る、また存在しないIPを打ち込んでも起こる)。
呼び出しのターゲットが例外をスローしましたというエラーメッセージがでてプログラムが止まります。どうしたらよいでしょうか。
ソースは以下の通りです。
Public Class Form1
Dim WithEvents pingClient As New Net.NetworkInformation.Ping
Private Shared logcount As Integer = 1
Private Sub pingClient_PingCompleted(ByVal sender As Object, ByVal e As System.Net.NetworkInformation.PingCompletedEventArgs) Handles pingClient.PingCompleted
Try
If e.Error Is Nothing Then
If e.Cancelled = False Then
TextBox2.Text &= "Address : " & e.Reply.Address.ToString & vbCrLf & _
"Buffer : " & e.Reply.Buffer.Length.ToString & vbCrLf & _
"RoundtripTime : " & e.Reply.RoundtripTime.ToString & vbCrLf & _
"TTL : " & e.Reply.Options.Ttl.ToString
End If
Else
TextBox2.Text &= e.Error.InnerException.Message.ToString() & _
Environment.NewLine
End If
Catch ex As InvalidOperationException
MessageBox.Show(ex.Message)
End Try
End Sub
'ここからMaskedText
Private Sub MaskedTextBox1_MaskInputRejected(ByVal sender As Object, ByVal e As System.Windows.Forms.MaskInputRejectedEventArgs) _
Handles MaskedTextBox1.MaskInputRejected
AppendLog(("数字を入力して下さい"))
Me.TextBox2.ScrollToCaret()
End Sub
Private Sub AppendLog(ByVal msg As String)
Me.TextBox2.AppendText((logcount.ToString + "." + msg + vbCr + vbLf))
logcount += 1
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Try
Call pingClient.SendAsync(MaskedTextBox1.Text, Nothing)
Catch ex As InvalidOperationException
MessageBox.Show(ex.Message)
End Try
End Sub
End Class