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

[Gigahard]

Хочу написать прогу по учету входящего/исходящего траффика. Но как подступится к получению инфы о траффике не знаю. Помогите пожалуйста. Как узнать сколько байт передано /отправлено за сеанс связи? Хочу чтоб работало как через Dial-Up, так и через LAN.

[goro]

Мне тоже очень нужно это. Помогите люди!

[Gigahard]

И чего? Никто не знает как это сделать? Ну народ не молчите пожалуйста Хоть API какие нибудь по сабжу дайте или скажите хоть в какую сторону копать...

[Gigahard]

НУ ПОМОГИТЕ ПОЖАЛУЙСТА!

[-=alp=-]

Актуальная проблема сам ей интересуюсь

[Gigahard]

Похоже что тут кулл хацкеров нету Гуру! Где же вы????

[KolAR]

Порылся у себя в исходниках однако...
UDP-флудеры, порт-сканеры, серверы...
И ничего насчет учета траффика...
Посмотрю ка я в API...
Можно попробывать DCB - правда побитно и все должно проходить через энту программулину, а инет у нас и так сверхскоростью не отличается

-=Не гарантирую успех, но сам попробую - тема действ. актуальная=-

[Gigahard]

В конце концов, вот пример, такой проги... Обычный виндовый звонильщик...



Наверное использует API функции какие то. Ну посоветуйте что нибудь.... Может у кого коды дозвонщиков есть...

[FaKk2]

Есть идея!
Открой этот дозвонщик в диссассемблере и посмотри какие API функции он использует. авось узнаешь

[alibek]

Народ, вы потратили ЧЕТЫРЕ дня, спрашивая об этом. А можно было потратить полчаса на поиск и найти.
Используются не API-функции, трафик (получено/отправлено) хранится в реестре. Где именно, точно было на http://old.vbstreets.ru/, а где на этом форуме я не знаю.
Глянь здесь.

[Gigahard]

2 alibek: А ты думаешь я только спрашивал и ничего не искал??? Я уже серваков 20 перелапатил как рускоязычных так и англоязычных... И нигде ничего даже близкого не нашел!
ЗЫ А за ссылочку спасибо! Буду разбираться!

[Gigahard]

Ссылочка полезная только если у человека стоят 9х Винды... А вот на ХР или NT, такая штука с реестром не проходит Вообще похоже что этот раздел реестра имеет непосредственное отношение к программе "Системный монитор". С одной стороны брать данные из реестра хорошо, но как я уже сказал во первых это не проходит под ХР или NT, а во вторых существует же API функция которая эту инфу откуда то берет и в реестр пишет... Может существуют еще другие пути получения информации о траффике? Или хотя бы как это осуществляется в ХР или NT? Ведь это должно еще и с выделенкой работать...

ЗЫ Люди подкинте пожалуйста инфу!

[Gigahard]

Ладно.... раз уж никто ничего не знает, то подскажите хотя бы как прогу дизассемблировать? И как там эти функции найти? И вообще есть у кого исходники звонилок на VB?

[Powersoft]

по этому вопросу по адресу support@powersoftnet.com или ICQ 207211143

[moderator]

Мда.

2 powersoft: мои мысли по поводу Ваших постингов настоятельно рекомендую почитать тут - http://bbs.vbstreets.ru/viewtopic.php?p=4850#4850

[Gigahard]

2Moderator: Да... Кроме как флудом или рекламой, посты Powersoft'а не назовешь!

[Powersoft]

в помощь тому, кто хочет послать почту из VB.

[Gigahard]

2Powersoft: И чего это такое??? Какое это имеет отношение к теме????
Уважаемый! Ознакомтесь пожалуйста с правилами форума и пишите по теме!

[v-adix]

я писал считалку трафика , но потеря данных почему-то была слишком большой ... может я что-то не так закодировал , но времени было мало и я забил на прогу... вот что я использовал (из ApiGuide):

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

Private Declare Function RasEnumConnections Lib "rasapi32" Alias "RasEnumConnectionsA" (ByVal lprasconn As Long, ByVal lpcb As Long, ByVal lpcConnections As Long) As Long
Private Declare Function RasGetConnectionStatistics Lib "rasapi32" (ByVal hRasConn As Long, ByVal lpStatistics As Long) As Long
Private Type RASCONN
    dwSize As Long
    hRasConn As Long
    szEntryName(0 To 256) As Byte
    szDeviceType(0 To 16) As Byte
    szDeviceName(0 To 128) As Byte
    pad As Byte
End Type
Private Type RAS_STATS
    dwSize As Long
    dwBytesXmited As Long
    dwBytesRcved As Long
    dwFramesXmited As Long
    dwFramesRcved As Long
    dwCrcErr As Long
    dwTimeoutErr As Long
    dwAlignmentErr As Long
    dwHardwareOverrunErr As Long
    dwFramingErr As Long
    dwBufferOverrunErr As Long
    dwCompressionRatioIn As Long
    dwCompressionRatioOut As Long
    dwBps As Long
    dwConnectDuration As Long
End Type

Private Sub Form_Load()
    Dim conn As RASCONN
    Dim stat As RAS_STATS
    Dim y As Long, z As Long
       
    conn.dwSize = Len(conn)
    y = conn.dwSize
   
   
    If RasEnumConnections(VarPtr(conn), VarPtr(y), VarPtr(z)) = 0 Then
        stat.dwSize = Len(stat)
        If RasGetConnectionStatistics(conn.hRasConn, VarPtr(stat)) = 0 Then
            Debug.Print stat.dwAlignmentErr
            Debug.Print stat.dwBps
            Debug.Print stat.dwBufferOverrunErr
            Debug.Print stat.dwBytesRcved
            Debug.Print stat.dwBytesXmited
            Debug.Print stat.dwCompressionRatioIn
            Debug.Print stat.dwCompressionRatioOut
            Debug.Print stat.dwConnectDuration
            Debug.Print stat.dwCrcErr
            Debug.Print stat.dwFramesRcved
            Debug.Print stat.dwFramesXmited
            Debug.Print stat.dwFramingErr
            Debug.Print stat.dwTimeoutErr
        End If
    End If
   
End Sub

dwBytesRcved и dwBytesXmited и есть обьем принятых/переданных данных со времени подключения. можно также контроллировать несколько подключений , можно контроллировать напр. только модемные диалап-подключения и т.д.

[uhm]

Интересно, это рекорд некрофилии?

[Gigahard]

Эх... А я все же разобрался во всем. Только вот времени написать прогу уже не было. Да и надобности тоже.
Решение кроется в вещи под названием winsock API.
Когда зелененький был, думал что это всего лишь контрол VB.
Я заблуждался.

С помощью двух библиотек ws2_32.dll и iphlpapi.dll можно сделать практически ВСЕ что нужно для работы с сетью.
Включая сбор статистики.

Очень ценный интернет ресурс: http://www.vbip.com/tools.asp

[Mizin Alex]

Gigahard:Звонилка на VB
www.vbstreets.ru->VisualBasic->Исходники-->RasDial.zip(Звонилка на RAS API c указанием параметров дозвона )

С ув. Alex

[-=TsA=-]

Сбор статистики

[FaKk2]

Интересно, это рекорд некрофилии?

Нет, рекорд поставил я

[Alexander N. Samarin]

...