My.Computer.Network.Ping

[Константиин]

Я пробовал так:

Код: Выделить всё

If My.Computer.Network.Ping("198.01.01.01") Then
  MsgBox("Server pinged successfully.")
Else
  MsgBox("Ping request timed out.")
End If

пинги не идут, даже если пингую свой IP, а вот так,

Код: Выделить всё

If My.Computer.Network.Ping("www.cohowinery.com") Then
  MsgBox("Server pinged successfully.")
Else
  MsgBox("Ping request timed out.")
End If

всё идет нармально. Вчём тут дело???

[Ramzes]

If My.Computer.Network.Ping("198.01.01.01") Then
замени на
If My.Computer.Network.Ping("198.1.1.1") Then

и вообще, попробуй из командной строки пропинговать

[Константиин]

Пример я взял из MSDN, но подставлял свой IP.
Из командной строки всё пингуется

[Ramzes]

If My.Computer.Network.Ping("198.01.01.01") Then
замени на
If My.Computer.Network.Ping("198.1.1.1") Then

Код: Выделить всё

Module Module1

    Sub Main()
        Dim m_IpOrHost As String
        Console.WriteLine("Please enter IP or Hostname")
        m_IpOrHost = Console.ReadLine()
        If My.Computer.Network.Ping(m_IpOrHost) Then
            Console.WriteLine("Ok")
        Else
            Console.WriteLine("err")
        End If
        Console.ReadLine()
    End Sub

End Module

у меня работает ввожу 10.0.0.252 или myServer

[faraonint]

У меня маленькая проблема с этим кодом. При повторе вызова ping, размер программы в оперативной памяти увеличивается. Как после отработки очистить память?

Код: Выделить всё

Imports Microsoft.VisualBasic.Devices

Public Class Form1
    Dim TT As Network

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        zap_dann()

    End Sub

    Function zap_dann() As Boolean
        zap_dann = False

        DataGridView1.Rows.Add("name", "192.168.0.1", "")
        DataGridView1.Rows.Add("name", "192.168.0.2", "")
        DataGridView1.Rows.Add("name", "192.168.0.3", "")
        DataGridView1.Rows.Add("name", "192.168.0.4", "")
        DataGridView1.Rows.Add("name", "192.168.0.5", "")
        DataGridView1.Rows.Add("name", "192.168.0.6", "")
        DataGridView1.Rows.Add("name", "192.168.0.7", "")
        DataGridView1.Rows.Add("name", "192.168.0.8", "")
        DataGridView1.Rows.Add("name", "192.168.0.9", "")
        DataGridView1.Rows.Add("name", "192.168.0.10", "")
        DataGridView1.Rows.Add("name", "192.168.0.11", "")

    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim I As Integer = 0
        Dim Txt As String = ""

        TT = New Network

        If TT.Ping("192.168.0.100", 1000) = True Then

            For I = 0 To 10 Step 1

                DataGridView1.Rows(I).Cells(2).Value = ping_server(TT, DataGridView1.Rows(I).Cells(1).Value) = True

            Next

        End If

        TT = Nothing

    End Sub

    Function ping_server(ByVal SPing As Network, ByVal IP As String) As Boolean
        ping_server = False

        If SPing.Ping(IP, 1000) = True Then ping_server = True

    End Function

End Class


[DRU]

DataGridView1.Rows(I).Cells(2).Value = ping_server(TT, DataGridView1.Rows(I).Cells(1).Value) = True

DataGridView1.Rows.Add("name", "192.168.0.1", "")
DataGridView1.Rows.Add("name", "192.168.0.2", "")
DataGridView1.Rows.Add("name", "192.168.0.3", "")
DataGridView1.Rows.Add("name", "192.168.0.4", "")
DataGridView1.Rows.Add("name", "192.168.0.5", "")
DataGridView1.Rows.Add("name", "192.168.0.6", "")
DataGridView1.Rows.Add("name", "192.168.0.7", "")
DataGridView1.Rows.Add("name", "192.168.0.8", "")
DataGridView1.Rows.Add("name", "192.168.0.9", "")
DataGridView1.Rows.Add("name", "192.168.0.10", "")
DataGridView1.Rows.Add("name", "192.168.0.11", "")

for i=1 to 11 ...