Я имею ввиду не отдельной программы, а трафик всего интернет соединения

Ответить

А по форуму поискать лени !?

Понимаю, сам почти такой, но ПОЧТИ
http://vbnet.ru/forum/show.asp?id=19693

Там не красиво, не отформатирован текст, так что вот еще разок...

' Для 9х я думаю, по необходимости, сам создаш пользовательскую переменную
 
Private Declare Function RasGetConnectionStatistics Lib "rasapi32.dll" (ByVal hRasConn As Long, lpStatistics As RASSTATS2000) As Long
 
Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long
 
Private Type RASSTATS2000
    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 Type VBRasStats95
    BytesXmited             As Long
    BytesRcved              As Long
    ConnectSpeed            As Long
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
   Const dUp As String = "Dial-Up Adapter\"
 
   Call RegOpenKeyEx(HKEY_DYN_DATA, "PerfStats\StatData", 0&, &H7, hKey)
   With clsVBRasStats
      'Call RegQueryValueEx(hKey, dUp & "Buffer", 0&, ByVal 0&, .BufferOverrunErr, &H4)
      Call RegQueryValueEx(hKey, dUp & "BytesRecvd", 0&, ByVal 0&, .BytesRcved, &H4)
      Call RegQueryValueEx(hKey, dUp & "BytesXmit", 0&, ByVal 0&, .BytesXmited, &H4)
      Call RegQueryValueEx(hKey, dUp & "ConnectSpeed", 0&, ByVal 0&, .ConnectSpeed, &H4)
'      Call RegQueryValueEx(hKey, dUp & "CRC", 0&, ByVal 0&, .CrcErr, &H4)
'      Call RegQueryValueEx(hKey, dUp & "Alignment", 0&, ByVal 0&, .AlignmentErr, &H4)
'      Call RegQueryValueEx(hKey, dUp & "FramesRecvd", 0&, ByVal 0&, .FramesRcved, &H4)
'      Call RegQueryValueEx(hKey, dUp & "FramesXmit", 0&, ByVal 0&, .FramesXmited, &H4)
'      Call RegQueryValueEx(hKey, dUp & "Framing", 0&, ByVal 0&, .FramingErr, &H4)
'      Call RegQueryValueEx(hKey, dUp & "Overrun", 0&, ByVal 0&, .HardwareOverrunErr, &H4)
'      Call RegQueryValueEx(hKey, dUp & "Runts", 0&, ByVal 0&, .Runts, &H4)
'      Call RegQueryValueEx(hKey, dUp & "Timeout", 0&, ByVal 0&, .TimeoutErr, &H4)
'      Call RegQueryValueEx(hKey, dUp & "TotalBytesRecvd", 0&, ByVal 0&, .TotalBytesRcved, &H4)
'      Call RegQueryValueEx(hKey, dUp & "TotalBytesXmit", 0&, ByVal 0&, .TotalBytesXmited, &H4)
   End With
    Call RegCloseKey(hKey)
End Function

Ответить

хм, помню какое то время этот код здорово зажимали, тихо говоря, что за него можно содрать денег, что прошли те времена?

Ответить

Не знаю... А кто зажимал? Может у него и спросить... Тем более что без определенных навыков и вложенного труда, на этом коде - не заработать

Ответить

а... как етим пользоватся?

Text1 = VBRasGetStat2000 (... а тут что?

Ответить

Private Type RASSTATS2000 и Private Type VBRasStats95 заменить на Public, объявить таковые переменные и их в качестве параметров... все!

Ответить

шо то слабо доганяю, писал то это не я, какие переменные и что значит в качестве параметров?

Просто совет:

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

Ответить

Боюсь что мне попросту это лень, тут же и так все ясно... Можно интуитивно понять что каждый эллемент структыры означает, а если не понять, то сравнить с тем что высвечивается в "свойствах соединения"... Для того чтобы работать, необходимо даже на готовом приложить некоторые усилия, дабы хоть понять как оно работает...

Ответить