Тебе под какую ОС, если под 9х - из реестра, если для 2000/ХР/2003 - АПИ есть спецовая, RasGetConnectionStatistics.

Если хочешь можешь посмотреть мою программку, что будет надо, дам (кусочик исходника)

http://hw.t-k.ru/hwstatist324.zip

Ответить

Программу посмотрел ...

да, в принципе мне нужно практически такое же,

если можешь что-то показать, пришли на smc@land.ru

спасибо

Ответить

И мне тоже, пожалуйста, а то неохота в исследования пускаться muslon@yandex.ru

Ответить

Не, ну люди, она во-первых платная, а во вторых готовая, я не могу ее полностью дать... Вы мне скажите в чем проблема, а я ее постараюсь с вами же разрешить, т.е. что именно надо, то дам, а все целиком - это жирновато ))

Я целых полтора годя с ней маюсь

Ответить

Ну т.е. погу заслать модуль статистики, или модуль тарификации, во!

Ответить

Статистику, пожалуйста. (Знаешь, я сколько из своего RegSetup'а уже здесь запостил? :D)

Ответить

Option Explicit

Private Declare Function RasGetConnectionStatistics Lib "rasapi32.dll" (ByVal hRasConn As Long, lpStatistics As RASSTATS2000) As Long

Private Declare Function RegOpenKeyEx Lib "advapi32" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal dwReserved As Long, ByVal samDesired As Long, phkResult As Long) As Long

Private Declare Function RegCloseKey Lib "advapi32" (ByVal hKey As Long) As Long

Private Declare Function RegQueryValueEx Lib "advapi32" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long

Public Type RASSTATS2000

dwSize As Long

dwBytesXmited As Long 'The number of bytes transmitted through this connection or link.

dwBytesRcved As Long 'The number of bytes received through this connection or link.

dwFramesXmited As Long 'The number frames transmitted through this connection or link.

dwFramesRcved As Long 'The number of frames received through this connection or link.

dwCrcErr As Long 'The number of cyclic redundancy check (CRC) errors on this connection or link.

dwTimeoutErr As Long 'The number of timeout errors on this connection or link.

dwAlignmentErr As Long 'The number of alignment errors on this connection or link.

dwHardwareOverrunErr As Long 'The number of hardware overrun errors on this connection or link.

dwFramingErr As Long 'The number of framing errors on this connection or link.

dwBufferOverrunErr As Long 'The number of buffer overrun errors on this connection or link.

dwCompressionRatioIn As Long 'The compression ratio for the data being received on this connection or link.

dwCompressionRatioOut As Long 'The compression ratio for the data being transmitted on this connection or link.

dwBps As Long 'The speed of the connection or link, in bits per second.

dwConnectDuration As Long 'The amount of time, in milliseconds, that the connection or link has been connected.

End Type

Public Type VBRasStats95

BytesXmited As Long 'The number of bytes transmitted through this connection or link.

BytesRcved As Long 'The number of bytes received through this connection or link.

FramesXmited As Long 'The number frames transmitted through this connection or link.

FramesRcved As Long 'The number of frames received through this connection or link.

CrcErr As Long 'The number of cyclic redundancy check (CRC) errors on this connection or link.

TimeoutErr As Long 'The number of timeout errors on this connection or link.

AlignmentErr As Long 'The number of alignment errors on this connection or link.

HardwareOverrunErr As Long 'The number of hardware overrun errors on this connection or link.

FramingErr As Long 'The number of framing errors on this connection or link.

BufferOverrunErr As Long 'The number of buffer overrun errors on this connection or link.

Runts As Long

TotalBytesXmited As Long

TotalBytesRcved As Long

ConnectSpeed As Long 'The amount of time, in milliseconds, that the connection or link has been connected.

End Type

Private Const HKEY_DYN_DATA As Long = &H80000006

Public Function VBRasGetStat2000(hRasConn As Long, myStats As RASSTATS2000) As Long

myStats.dwSize = Len(myStats)

VBRasGetStat2000 = RasGetConnectionStatistics(hRasConn, myStats)

End Function

Public Function VBRasGetStat9x(clsVBRasStats As VBRasStats95) As Long

Dim hKey As Long, rtn As Long, lngLen As Long, lResult As Long

On Error GoTo er

lResult = RegOpenKeyEx(HKEY_DYN_DATA, "PerfStats\StatData", 0&, &H7, hKey)

With clsVBRasStats

lngLen = 4

rtn = RegQueryValueEx(hKey, "Dial-Up Adapter\Buffer", 0&, ByVal 0&, .BufferOverrunErr, lngLen)

lResult = lResult Or rtn: lngLen = 4

rtn = RegQueryValueEx(hKey, "Dial-Up Adapter\BytesRecvd", 0&, ByVal 0&, .BytesRcved, lngLen)

lResult = lResult Or rtn: lngLen = 4

rtn = RegQueryValueEx(hKey, "Dial-Up Adapter\BytesXmit", 0&, ByVal 0&, .BytesXmited, lngLen)

lResult = lResult Or rtn: lngLen = 4

rtn = RegQueryValueEx(hKey, "Dial-Up Adapter\ConnectSpeed", 0&, ByVal 0&, .ConnectSpeed, lngLen)

lResult = lResult Or rtn: lngLen = 4

rtn = RegQueryValueEx(hKey, "Dial-Up Adapter\CRC", 0&, ByVal 0&, .CrcErr, lngLen)

lResult = lResult Or rtn: lngLen = 4

rtn = RegQueryValueEx(hKey, "Dial-Up Adapter\Alignment", 0&, ByVal 0&, .AlignmentErr, lngLen)

lResult = lResult Or rtn: lngLen = 4

rtn = RegQueryValueEx(hKey, "Dial-Up Adapter\FramesRecvd", 0&, ByVal 0&, .FramesRcved, lngLen)

lResult = lResult Or rtn: lngLen = 4

rtn = RegQueryValueEx(hKey, "Dial-Up Adapter\FramesXmit", 0&, ByVal 0&, .FramesXmited, lngLen)

lResult = lResult Or rtn: lngLen = 4

rtn = RegQueryValueEx(hKey, "Dial-Up Adapter\Framing", 0&, ByVal 0&, .FramingErr, lngLen)

lResult = lResult Or rtn: lngLen = 4

rtn = RegQueryValueEx(hKey, "Dial-Up Adapter\Overrun", 0&, ByVal 0&, .HardwareOverrunErr, lngLen)

lResult = lResult Or rtn: lngLen = 4

rtn = RegQueryValueEx(hKey, "Dial-Up Adapter\Runts", 0&, ByVal 0&, .Runts, lngLen)

lResult = lResult Or rtn: lngLen = 4

rtn = RegQueryValueEx(hKey, "Dial-Up Adapter\Timeout", 0&, ByVal 0&, .TimeoutErr, lngLen)

lResult = lResult Or rtn: lngLen = 4

rtn = RegQueryValueEx(hKey, "Dial-Up Adapter\TotalBytesRecvd", 0&, ByVal 0&, .TotalBytesRcved, lngLen)

lResult = lResult Or rtn: lngLen = 4

rtn = RegQueryValueEx(hKey, "Dial-Up Adapter\TotalBytesXmit", 0&, ByVal 0&, .TotalBytesXmited, lngLen)

lResult = lResult Or rtn

End With

Exit Function

er:

Call RegCloseKey(hKey)

End Function

Ответить

Да, и там можно lResult исключить и за место lngLen bcgjkmpjdfnm rjycnfyne - 4

Ответить

Спасибо, работает, только показывает цифры немного больше, чем свойства соединения (на 3-4 КБ). Чем это может быть вызвано?

Ответить

А какая винда ??? Если 2k/NT/2003/XP - то все должно быть ок, а в 9х - тоже все вроде рулит...

Может ты делишь на 1000 а не на 1024 (&H400)

Ответить

Винда 98.

Не делю, отображаю как есть, в байтах. Стабильно больше показывает но на чуть-чуть и это чуть-чуть немного колеблется.

Ответить

Ладно, над этим вопросом надо подумать... Я себе может сегодня Ме поставлю, обязательно посмотрю, потом сюды отпишу, ок ?

Ответить

Ждем-с

Ответить

У меня возник "небольшой" вопрос: а что же надо писать, вызывая функцию VBRasGetStat2000, вместо hRasConn? А то у меня не работает, везде пишет ноль (стоит XP и выделенка)...

VBRasGetStat2000(hRasConn As Long, myStats As RASSTATS2000) As Long

Ответить