Счетчик трафика

[inf]

Доброго всем времени суток.
Вот как-то насидел я в инете больше чем надо, аж на 1.5 гига. Сразу возникло много вопросов: Как за неделю стока трафы можно слить? Когда? Почему? За што????!!!
Искал в инете счетчики трафиков ничего путного не нашел. Самое мне подходящее это Traffic Counter (отечественного производителя(это радует)). Но мне надо еще проще.
У меня есть определенное колличество Мб в месяц, лучше этот лимит не превышать. А в Traffic Counter нельзя поставить ограничение на колличество трафика и нельзя убрать колонку сумма, которая мне совсем не нужна.
Так вот решил я написать программку для учета трафика. Но незнаю с чего начать . Слышал што колличество исходящего\входящего трафика в реестре хранится. А где вот незнаю . Подскажите хоть как нибудь. Но лучше исходником, я не собираюсь распространять программу. Она нужна мне чисто для личного пользования(простая и не ресурсоёмкая). Доработаю сам. Нужно самое главное только узнать кол-во трафика и все(в байтах).
По форуму искал ничего стоящего не нашел.
Заранее спасибо!

[inf]

ЛЮДИ, люди, человеки.....!!! Неужели никто не знает
Поискам по форуму я понял што я такой не один и проблема очень актуальная... Пожалуйста не оставляйте эту тему без внимания

[Setr]

Посмотри примеры здесь, может поможет
http://bbs.vbstreets.ru/viewtopic.php?t=26569

[-=TsA=-]

Сразу предупреждаю, это не мое

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

Option Explicit

Public Enum OperationalStates
    MIB_IF_OPER_STATUS_NON_OPERATIONAL = 0
    MIB_IF_OPER_STATUS_UNREACHABLE = 1
    MIB_IF_OPER_STATUS_DISCONNECTED = 2
    MIB_IF_OPER_STATUS_CONNECTING = 3
    MIB_IF_OPER_STATUS_CONNECTED = 4
    MIB_IF_OPER_STATUS_OPERATIONAL = 5
End Enum

Public Enum InterfaceTypes
    MIB_IF_TYPE_OTHER = 1
    MIB_IF_TYPE_ETHERNET = 6
    MIB_IF_TYPE_TOKENRING = 9
    MIB_IF_TYPE_FDDI = 15
    MIB_IF_TYPE_PPP = 23
    MIB_IF_TYPE_LOOPBACK = 24
    MIB_IF_TYPE_SLIP = 28
End Enum

Public Enum AdminStatuses
    MIB_IF_ADMIN_STATUS_UP = 1
    MIB_IF_ADMIN_STATUS_DOWN = 2
    MIB_IF_ADMIN_STATUS_TESTING = 3
End Enum

Private Const MAXLEN_IFDESCR = 256
Private Const MAXLEN_PHYSADDR = 8
Private Const MAX_INTERFACE_NAME_LEN = 256

Private Const ERROR_NOT_SUPPORTED = 50&
Private Const ERROR_SUCCESS = 0&


Private Type MIB_IFROW
    wszName(0 To 511) As Byte
    dwIndex As Long             '// Индекс интерфейса
    dwType As Long              '// Тип интерфейса
    dwMtu As Long               '// max transmission unit
    dwSpeed As Long             '// speed of the interface
    dwPhysAddrLen As Long       '// length of physical address
    bPhysAddr(0 To 7) As Byte   '// physical address of adapter
    dwAdminStatus As Long       '// administrative status
    dwOperStatus As Long        '// operational status
    dwLastChange As Long        '// last time operational status changed
    dwInOctets As Long          '// octets received
    dwInUcastPkts As Long       '// unicast packets received
    dwInNUcastPkts As Long      '// non-unicast packets received
    dwInDiscards As Long        '// received packets discarded
    dwInErrors As Long          '// erroneous packets received
    dwInUnknownProtos As Long   '// unknown protocol packets received
    dwOutOctets As Long         '// octets sent
    dwOutUcastPkts As Long      '// unicast packets sent
    dwOutNUcastPkts As Long     '// non-unicast packets sent
    dwOutDiscards As Long       '// outgoing packets discarded
    dwOutErrors As Long         '// erroneous packets sent
    dwOutQLen As Long           '// output queue length
    dwDescrLen As Long          '// length of bDescr member
    bDescr(0 To 255) As Byte    '// interface description
End Type

Private Declare Function GetIfTable Lib "iphlpapi" (ByRef pIfRowTable As Any, ByRef pdwSize As Long, ByVal border As Long) As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByRef pDest As Any, ByRef pSource As Any, ByVal Length As Long)


Private m_lngBytesReceived  As Long
Private m_lngBytesSent      As Long
Private m_OldBytesReceived  As Long
Private m_OldBytesSent      As Long

Public Property Get BytesReceived() As Long
    If m_OldBytesReceived > 0 Then
        BytesReceived = m_lngBytesReceived - m_OldBytesReceived
    End If
    m_OldBytesReceived = m_lngBytesReceived
End Property

Public Property Get BytesSent() As Long
    If m_OldBytesSent > 0 Then
        BytesSent = m_lngBytesSent - m_OldBytesSent
    End If
    m_OldBytesSent = m_lngBytesSent
End Property

Public Function GetIPStats() As Boolean
    '
    Dim arrBuffer()     As Byte
    Dim lngSize         As Long
    Dim lngRetVal       As Long
    Dim lngRows         As Long
    Dim I               As Integer
    Dim J               As Integer
    Dim IfRowTable      As MIB_IFROW
    '
    lngSize = 0
    '
    'Reset the BytesReceived and BytesSent properties
    '
    m_lngBytesReceived = 0
    m_lngBytesSent = 0
    '
    'Call the GetIfTable just to get the buffer size into the lngSize variable
    lngRetVal = GetIfTable(ByVal 0&, lngSize, 0)
    '
    If lngRetVal = ERROR_NOT_SUPPORTED Then
        '
        'This API works only on Win 98/2000 and NT4 with SP4
        MsgBox "IP Helper is not supported by this system."
        Exit Function
        '
    End If
    '
    'Prepare the buffer
    ReDim arrBuffer(0 To lngSize - 1) As Byte
    '
    'And call the function one more time
    lngRetVal = GetIfTable(arrBuffer(0), lngSize, 0)
    '
    If lngRetVal = ERROR_SUCCESS Then
        '
        'The first 4 bytes (the Long value) contain the quantity of the table rows
        'Get that value into the lngRows variable
        CopyMemory lngRows, arrBuffer(0), 4
        '
        For I = 1 To lngRows
            '
            'Copy the table row data to the IfRowTable structure
            CopyMemory IfRowTable, arrBuffer(4 + (I - 1) * Len(IfRowTable)), Len(IfRowTable)
            '
            With IfRowTable
                '
                'Собор движение инфо для всех интерфейсов
                ' .dwType
                m_lngBytesReceived = m_lngBytesReceived + .dwInOctets
                m_lngBytesSent = m_lngBytesSent + .dwOutOctets
                '
            End With
        Next I
        '
    End If
    '
End Function


[inf]

Setr это я уже видел. Кстати там одна ссылка указывает на несуществующий топик.

-=TsA=- Пробывал? У меня вот чет не хочет воркать =( постоянно по нулям. Я в трафике, как я уже сказал, не очень шарю она должна сама считать трафик или откуда-то брать? Смотрел, смотрел так и не понял

[Matew]

inf, ИМХО на ВБ полный и правильный трафик не посчитаешь. Все, известные мне, счетчики юзают ядро(или еще че-то) на языках низкого уровня, типо асемблера.

[alibek]

inf, используй TMeter или BWMeter.

[inf]

alibek юзаю Trafic Counter. Мне просто нужно штобы оповещал о заканчивании трафика месячного и убрать колонку цена.

[Antonariy]

inf
Таки используй Tmeter, подключи его к какой-нибудь базе данных, он туда будет сливать объем трафика, и напиши простую проверялку этой базы.

[inf]

Antonariy
Это лишние ресурсы машины отбераца будут (ничтожно мало, но всетаки). Мне нужна предельно простая прога.

[Antonariy]

Это и есть предельно простая. Но, если для тебя геморой таки важнее результата, флаг в руки...

[inf]

Понятно. =) Бум думать =)

[AntonGV]

Программа не моя и я обещал автору не распространять её, так что тсс...

[-=TsA=-]

-=TsA=- Пробывал? У меня вот чет не хочет воркать =( постоянно по нулям. Я в трафике, как я уже сказал, не очень шарю она должна сама считать трафик или откуда-то брать? Смотрел, смотрел так и не понял

Пробовал

[inf]

-=TsA=-
Спс буду искать ошибки. Щас времени нету совсем, даже штоб просто просмотреть пишу в торопях.
AntonGV
Ок. =) Ты ж знаешь я - могила =)