Ошибка при попытке пинга

@bd_13 · Регистрация: 05.11.2015

Author24 — интернет-сервис помощи студентам

Ошибка при пинге. помогите исправить! Вот код:

VB.NET

  If My.Computer.Network.Ping(TextBox2.Text) Then
            MsgBox("Пинг есть" & TextBox2.Text)
        Else
            MsgBox("Пинга нет" & TextBox2.Text)
        End If

в TextBox2.Text вводиться имя пинигующегося компьютера. Если пинг есть, то все работает, никаких ошибок не выдает, а если пинга нет, то вываливается на эту ошибку(см.скрин) в этой строчке:

VB.NET

1	If My.Computer.Network.Ping(TextBox2.Text) Then

в чем может быть проблема? заранее спасибо за помощь.

SergProgrammer · 10.01.2017, 15:34

bd_13, что в текстбоксе?

Добавлено через 1 минуту
Надо либо http://что-то, либо https:// или другой протокол либо IP-адрес

@bd_13 · 10.01.2017, 15:38 **[ТС]**

SergProgrammer,

Сообщение от SergProgrammer

что в текстбоксе?

Сообщение от bd_13

в TextBox2.Text вводиться имя пинигующегося компьютера

@Orlangur · 10.01.2017, 15:47

ну так обработай ошибку через try / catch

@bd_13 · 10.01.2017, 15:55 **[ТС]**

Orlangur1991,
как то так?

VB.NET

 Try
            If My.Computer.Network.Ping(TextBox2.Text) Then
                MsgBox("Пинг есть" & TextBox2.Text)
            Else
                MsgBox("Пинга нет" & TextBox2.Text)
            End If
 
        Catch ex As Exception
            MsgBox("error")
        End Try

или так:

VB.NET

        Try
            If My.Computer.Network.Ping(TextBox2.Text) Then
                MsgBox("Пинг есть" & TextBox2.Text)
            Else
            End If
        Catch ex As Exception
            MsgBox("нет пинга" & TextBox2.Text)
        End Try
 
    End Sub

@Orlangur · 10.01.2017, 16:09

bd_13,

VB.NET

 Try
            If My.Computer.Network.Ping(TextBox1.Text) Then
                MsgBox("Пинг есть " & TextBox1.Text)
            Else
                MsgBox("Пинга нет " & TextBox1.Text)
            End If
        Catch ex As Exception
            MsgBox("Пинга нет " & TextBox1.Text)
        End Try

@XIST · 10.01.2017, 19:58

bd_13, да Вам правильно подсказали, но ошибки не должно быть, должен быть ответ пинг есть\пинг нет, значит в текстбокс вводиться не правильный параметр для пинга я думаю.
А что бы улучшить этот момент, я так понимаю в сети все это дело? Если да, то просто делайте уточнение IP по имени ПК

VB.NET

1 2	Dim myIP As String = System.Net.Dns.GetHostByName(TextBox1.Text).AddressList(0).ToString() MessageBox.Show(myIP)

@Orlangur · 10.01.2017, 22:12

XIST, ошибку бьет если пинговать не существующее в сети сетевое имя

@XIST · 10.01.2017, 23:08

Сообщение от Orlangur1991

ошибку бьет если пинговать не существующее в сети сетевое имя

ну да, просто параметр для сокккета пустой, простая проверочка

VB.NET

1	If myIP IsNot Nothing Then

@Orlangur · 11.01.2017, 01:24

XIST, да не, я про My.Computer.Network.Ping, он ошибку бьет если пинговать не существующее сетевое имя. Если не существующий ip, то все норм, а если имя, то вот такая лабуда)

@XIST · 11.01.2017, 01:29

Orlangur1991, да, т.к. DNS передает NULL, а nulle параметр не может быть параметром соккета в пинге

@l34ddx · 12.01.2017, 02:39

Совершенно верно ... если в сети есть трансляция NetBIOS имен , то можно обратится к хосту по имени , а если нет такой возможности , то обращение идет по IP хоста

SergProgrammer 39 / 38 / 6 Регистрация: 17.07.2015 Сообщений: 380 Записей в блоге: 1
	10.01.2017, 15:34	2
	bd_13, что в текстбоксе? Добавлено через 1 минуту Надо либо http://что-то, либо https:// или другой протокол либо IP-адрес 0

@bd_13 221 / 174 / 73 Регистрация: 05.11.2015 Сообщений: 529
	10.01.2017, 15:38 [ТС]	3
	SergProgrammer, Сообщение от SergProgrammer что в текстбоксе? Сообщение от bd_13 в TextBox2.Text вводиться имя пинигующегося компьютера 0

@Orlangur Лень — мое второе и 3206 / 2397 / 684 Регистрация: 28.11.2014 Сообщений: 3,587 Записей в блоге: 3
	10.01.2017, 15:47	4
	ну так обработай ошибку через try / catch 0

@Orlangur Лень — мое второе и 3206 / 2397 / 684 Регистрация: 28.11.2014 Сообщений: 3,587 Записей в блоге: 3
	10.01.2017, 22:12	8
	XIST, ошибку бьет если пинговать не существующее в сети сетевое имя 1

@Orlangur Лень — мое второе и 3206 / 2397 / 684 Регистрация: 28.11.2014 Сообщений: 3,587 Записей в блоге: 3
	11.01.2017, 01:24	10
	XIST, да не, я про My.Computer.Network.Ping, он ошибку бьет если пинговать не существующее сетевое имя. Если не существующий ip, то все норм, а если имя, то вот такая лабуда) 0

@XIST 1496 / 1044 / 146 Регистрация: 01.10.2009 Сообщений: 3,510 Записей в блоге: 1
	11.01.2017, 01:29	11
	Orlangur1991, да, т.к. DNS передает NULL, а nulle параметр не может быть параметром соккета в пинге 0

@l34ddx 66 / 63 / 23 Регистрация: 23.07.2014 Сообщений: 121
	12.01.2017, 02:39	12
	Совершенно верно ... если в сети есть трансляция NetBIOS имен , то можно обратится к хосту по имени , а если нет такой возможности , то обращение идет по IP хоста 0