Реализация пинга на VB.

[Don Leno]

Как замерить пинг программы на vb6. Вопрос чисто теоретический, но если кто может привести код будет даже лучше))

[Debugger]

Как замерить пинг программы на vb6. Вопрос чисто теоретический, но если кто может привести код будет даже лучше))

Эм, что такое "пинг программы"?
FPS можно замерить счетчиком отрисовок и таймером на форме, который будет каждую секунду выводить куда-либо значение счетчика и обнулять его.
Также, посмотри в сторону функции Timer.

[Don Leno]

Сетевой пинг программы. Работа клиента и сервера. Как замерить пинг на клиенте? Как это реализовать на ВБ?

[Debugger]

Запоминай время запроса на другую машину. Когда приходит ответ (на этот запрос - !) - вычитаешь из текущего времени время отправления запроса, делишь пополам и получаешь "лаг" - за сколько времени информация с одной машины добирается до другой. Можешь накапливать статистику и усреднять по секундам, например.
Этот "лаг" зависит от множества параметров: скорость работы машин, загруженность сети, программная архитектура сервера, и к пингу имеет косвенное отношение.

[Don Leno]

А как сам пинг замерять? Разве нельзя к примеру считать кол-во отправляемых пакетов в секунду? Вообще чему равен пинг?

[ger_kar]

Можно сделать через WMI

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

Function Ping(sIpAddr As String) As Boolean
   
    Dim oWMIService     As Object       '
    Dim colPings        As Object       '
    Dim oPing           As Object       '
    Dim sComputer       As String       '
    Dim sWQL            As String       '
       
    If Len(sIpAddr) = 0 Then Exit Function
   
    sComputer = "."
    sWQL = "SELECT Address, StatusCode FROM Win32_PingStatus WHERE Address = '" & sIpAddr & "'"
   
    Set oWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & sComputer & "\root\cimv2")
    Set colPings = oWMIService.ExecQuery(sWQL)
   
    If Err = 0 Then
        For Each oPing In colPings 
            If Err = 0 Then
                If oPing.StatusCode <> 0 Then
                    Ping = False                'Если статус <> 0 Узел недоступен
                Else
                    Ping = True                 'Если статус  = 0 Узел доступен
                End If
            End If
        Next
    End If
       
    Set oPing = Nothing: Set colPings = Nothing: Set oWMIService = Nothing

End Function

Надо поэкспериментировать, вроде в свойствах должно быть и время. Я на память уже не помню.

[Don Leno]

Спс, есть еще варианты?

[HiSER]

IcmpSendEcho

https://msdn.microsoft.com/en-us/librar ... 85%29.aspx

[Don Leno]

Спасибо за ссылку Hiser. Мне интересно также узнать как пинг замерить вручную? К примеру ФПС - это высчитывается по принципу подсчета кадров в секунду. А пинг? Показывает время отправки и получения ответа от сервера? В каких единицах измеряется пинг?

[alibek]

Пинг — это просто слово.
Что ты под ним подразумеваешь, то и измеряешь.
Если речь про icmp ping, то значение указывает на время, которое прошло между отправкой запроса и получением ответа, обычно измеряется в секундах или миллисекундах.
Если речь про сетевые игры, то это обычно время, прошедшее между отправкой UDP-пакета и получением на него ответа от сервера.
Для TCP это обычно время между отправкой SYN и получением ACK. Для HTTP это время между отправкой запроса и получением ответа от сервера.
Но в общем случае под пингом может пониматься что угодно.

[ger_kar]

Пинг — это просто слово.
Что ты под ним подразумеваешь, то и измеряешь.
Если речь про icmp ping, то значение указывает на время, которое прошло между отправкой запроса и получением ответа, обычно измеряется в секундах или миллисекундах.
Если речь про сетевые игры, то это обычно время, прошедшее между отправкой UDP-пакета и получением на него ответа от сервера.
Для TCP это обычно время между отправкой SYN и получением ACK. Для HTTP это время между отправкой запроса и получением ответа от сервера.
Но в общем случае под пингом может пониматься что угодно.

Очень интересно. А что вообще означает пинг как термин? Раньше никогда об этом и не задумывался и воспринимал это просто как команду, а оказалось, что всё не так уж и просто.

[alibek]

Первоначально словом «ping» (по созвучию) именовали направленный акустический сигнал противолодочных гидролокаторов или «асдиков» (англ. ASDIC, аббревиатура от Allied Submarine Detection Investigation Committee) времён Второй мировой войны.

[Don Leno]

Спасибо вам, за исчерпывающий ответ)))