|
|
|
PING
|
|||
|---|---|---|---|
|
#18+
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Dim ping As New System.Net.NetworkInformation.Ping Try ping.Send(TextBox1.Text) RichTextBox1.Text = RichTextBox1.Text & Chr(10) & "Error! Пинг " & TextBox1.Text & " провести не удалось. " _ & Now.ToLongDateString & " " & Now.ToLongTimeString Catch ex3 As System.Net.NetworkInformation.PingException kol2 = kol2 + 1 Label5.Text = kol2 RichTextBox1.Text = RichTextBox1.Text & Chr(10) & "Error! Пинг " & TextBox1.Text & " провести не удалось. " _ & Now.ToLongDateString & " " & Now.ToLongTimeString & vbNewLine & " " & ex3.Message.ToString End Try Me.NotifyIcon1.Text = "Пингатор." & Chr(10) & "Успешно: " & Label3.Text & Chr(10) & "Errors: " & Label5.Text End Sub ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 10.12.2013, 18:27:59 |
|
||
|
PING
|
|||
|---|---|---|---|
|
#18+
Доброго времени суток, в чем собственно проблема - при выполнении кода выше пингуются IP связи с которыми нет в принципе. Не могли бы сказать в чем собственно беда? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 10.12.2013, 18:29:35 |
|
||
|
PING
|
|||
|---|---|---|---|
|
#18+
Лучше так, чтобы лишних вопросов не было. Код: vbnet 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 10.12.2013, 18:41:01 |
|
||
|
PING
|
|||
|---|---|---|---|
|
#18+
Sky1992, ... вообще-то, MSDN предлагает оценивать ответ PingReply для этого: http://msdn.microsoft.com/ru-ru/library/system.net.networkinformation.pingreply(v=vs.110).aspx ..а не иксепшн ловить ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 10.12.2013, 18:59:53 |
|
||
|
|
start [/forum/topic.php?fid=20&fpage=135&tid=1403531]: |
0ms |
get settings: |
9ms |
get forum list: |
18ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
203ms |
get topic data: |
13ms |
get forum data: |
4ms |
get page messages: |
49ms |
get tp. blocked users: |
2ms |
| others: | 227ms |
| total: | 533ms |
| 0 / 0 |
