| Вопрос: входящий трафик | Добавлено: 10.08.06 07:29 |
Автор вопроса:  mr_Frank | Web-сайт: subaru.nv-avto.ru | ICQ: 316417 |
|
Здраствуйте люди добрые(надеюсь) 8)
Итак моя проблема в следующем: нужно создать программу которая будет считать весь входящий трафик с инета в мегабайтах, после чего программа должна сосчитать скока я за этот трафк заплатил. Вот такая проблема, если у кого есть что по трафику поделитесь пожалуйста. |
| Ответы | Всего ответов: 9 |
|
Номер ответа: 1 Автор ответа: [root] Вопросов: 45 Ответов: 1212 |
Web-сайт: Профиль | | #1 | Добавлено: 10.08.06 07:44 |
|
был где то на сайте пример от sne, ищи...
|
||
|
Номер ответа: 2 Автор ответа:  mr_Frank ICQ: 316417 Вопросов: 36 Ответов: 94 |
Web-сайт: Профиль | | #2 | Добавлено: 10.08.06 07:54 |
| TrafficCounter v1.33 ? | ||
|
Номер ответа: 3 Автор ответа: mr_FrankICQ: 316417 Вопросов: 36 Ответов: 94 |
Web-сайт: Профиль | | #3 | Добавлено: 10.08.06 07:55 |
| Если да то уже нашол, посмарю дома на рабочем компе нет VB =( также как и на домашнем нет инета | ||
|
Номер ответа: 4 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #4 | Добавлено: 10.08.06 18:45 |
| Написать свою принцип или создание велосипеда? | ||
|
Номер ответа: 5 Автор ответа: СерёгаICQ: 262809473 Вопросов: 17 Ответов: 561 |
Web-сайт: Профиль | | #5 | Добавлено: 10.08.06 20:28 |
|
Public IsConnected As Boolean
Public BeginOfConnection As Date Public Type MyData TimeOfBegining As Date HowlongWasIt As Long InTrafic As Long OutTrafic As Long End Type Private Declare Function RasEnumConnections Lib "rasapi32" Alias "RasEnumConnectionsA" (ByVal lpRasConn As Long, ByVal lpcb As Long, ByVal lpcConnections As Long) As Long Public Declare Function RasGetConnectionStatistics Lib "rasapi32" (ByVal hRasConn As Long, ByVal lpStatistics As Long) As Long Public 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 Public 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 Public Function InetInfo() As MyData 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 InetInfo.InTrafic = CStr(stat.dwBytesRcved) InetInfo.OutTrafic = CStr(stat.dwBytesXmited) InetInfo.HowlongWasIt = CStr(Int(stat.dwConnectDuration / 1000)) 'InetInfo.TimeOfBegining = Now IsConnected = True Else InetInfo.HowlongWasIt = 0 InetInfo.InTrafic = 0 InetInfo.OutTrafic = 0 'InetInfo.TimeOfBegining = Now IsConnected = False End If End If End Function |
||
|
Номер ответа: 6 Автор ответа: СерёгаICQ: 262809473 Вопросов: 17 Ответов: 561 |
Web-сайт: Профиль | | #6 | Добавлено: 10.08.06 20:56 |
Пардон  ))
Я отправил не тот код, который хотел. А вот тот самый: 'Example created by Tolis Bekiaris (tolisss@hotmail.com)
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 |
||
|
Номер ответа: 7 Автор ответа: mr_FrankICQ: 316417 Вопросов: 36 Ответов: 94 |
Web-сайт: Профиль | | #7 | Добавлено: 11.08.06 12:09 |
| у меня такая прпоблема что инет идет как по локалке, т.е. через шлюз. и эти модули не пашут | ||
|
Номер ответа: 8 Автор ответа: СерёгаICQ: 262809473 Вопросов: 17 Ответов: 561 |
Web-сайт: Профиль | | #8 | Добавлено: 11.08.06 12:26 |
|
и эти модули не пашут
Тогда больше ничем помочь не смогу. |
||
|
Номер ответа: 9 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #9 | Добавлено: 11.08.06 15:14 |
| Почитай перехват API... | ||
Страница: 1 |