Получение интернет статистики

[MEMBER]

Треба получить sent\recieved и продолжительность соединения.
Работать должно в 98\ME\2000\XP
Спасибо.

[alibek]

Если для Dial-Up'а, то копать в реестре. А для LAN фиг его знает, как на VB можно все сокеты слушать.
А нельзя для статистики просто взять какую-нибудь машину, поставить на нее прокси и собирать статистику так? Будет и проще и правильнее.

[MEMBER]

Для Dial-Up, верно. А в реестре копать для всех ОС?
---
Ой, а что это мне за статус прилепили, ась? Какой-такой Гугль?

[gaidar]

Ой, а что это мне за статус прилепили, ась? Какой-такой Гугль?

Это все к Рыжему, он тут всех званиями награждает

[Aleksej]

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

Private Const MIB_TCP_RTO_OTHER    As Long = 1
Private Const MIB_TCP_RTO_CONSTANT As Long = 2
Private Const MIB_TCP_RTO_RSRE     As Long = 3
Private Const MIB_TCP_RTO_VANJ     As Long = 4

Private Type MIB_TCPSTATS
   dwRtoAlgorithm   As Long
   dwRtoMin         As Long
   dwRtoMax         As Long
   dwMaxConn        As Long
   dwActiveOpens    As Long
   dwPassiveOpens   As Long
   dwAttemptFails   As Long
   dwEstabResets    As Long
   dwCurrEstab      As Long
   dwInSegs         As Long
   dwOutSegs        As Long
   dwRetransSegs    As Long
   dwInErrs         As Long
   dwOutRsts        As Long
   dwNumConns       As Long
End Type

Private Declare Function GetTcpStatistics Lib "iphlpapi.dll" (ByRef pTcpStats As MIB_TCPSTATS) As Long

Public Function GetLocalIPStats() As Long
Dim TcpStat As MIB_TCPSTATS
Dim tmp As String

    If GetTcpStatistics(TcpStat) <> NO_ERROR Then
        GetLocalIPStats = -1
        Exit Function
    End If
    Select Case TcpStat.dwRtoAlgorithm
            Case MIB_TCP_RTO_CONSTANT: tmp = "Constant Time-out"
            Case MIB_TCP_RTO_RSRE:     tmp = "MIL-STD-1778 Appendix B"
            Case MIB_TCP_RTO_VANJ:     tmp = "Van Jacobson's Algorithm"
            Case MIB_TCP_RTO_OTHER:    tmp = "Other"
         End Select
End Function


[MEMBER]

2 Aleksej
Спасибо.
Только этот метод описан на vbip.com и я его знаю. Проблема в том, что не возвращается аптайм соединения и переданные\полученные данные измеряются некими "segments". Как перевести segments в байты я не знаю и в интернете не нашёл. Если у вас есть информация по этому поводу и вы мне её сообщите - буду премного благодарен.

2 alibek
Это не для статистики, для статистики у меня TMeter есть. Это для программы.

2 all
Что там о получении информации о соединении из реестра слышно? Насколько я могу судить, это где-то в DYN лежит?

[Sebas]

если для НТ, можно счётчики покрутить или WMI
А вообще, то что ты задумал, называется файрволл и соответственно надо перехватывать обращения к winsUck...

[MEMBER]

2 Sebas
ОК. С NT поковыряюсь. Но мне надо для всех перечисленных ОС.
А насчёт того, что я задумал...
Чтобы не было гадания на кофейной гуще и абсолютно неверных предположений, скажу, что это программа удалённого разрыва соединения. А статистика - довесок, приятный довесок.

[alibek]

Посмотри тут или тут

[MEMBER]

Спасибо.
---
Мысли вслух.
Какая ж... для 98 одно, для NT - другое.
А тут сиди и мучайся.

[GSerg]

Начиная с 2000 рекомендуется http://msdn.microsoft.com/library/default.asp?url=/library/en-us/rras/rras/rasgetlinkstatistics.asp...

[MacX]

Дайте кто-нибудь рабочий пример...