Подсчёт траффика

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Allex
Начинающий
Начинающий
 
Сообщения: 4
Зарегистрирован: 10.12.2003 (Ср) 18:51

Подсчёт траффика

Сообщение Allex » 10.12.2003 (Ср) 19:09

Доброго времени суток.
Вот задумал сделать программку для учёта интернет-трафика. Существующие либо слишком "тяжелые", либо не нравится интерфеейс, да и интересно самому-то :)
Насколько я понял вся статистика хранится в реестре в ветке HKEY_DYN_DATA, но не в явном виде :( Не подскажите как её оттуда вытащить? Или ссылочку по теме. Возможно есть специальные API или контроллы?
Заранее спасибо.

hCORe
VB - Экстремал
VB - Экстремал
Аватара пользователя
 
Сообщения: 2332
Зарегистрирован: 22.02.2003 (Сб) 15:21
Откуда: parent directory

HKEY_DYN_DATA

Сообщение hCORe » 12.12.2003 (Пт) 12:31

Если хочешь получить доступ к HKEY_DYN_DATA, то пользуйся этими объявлениями:

Код: Выделить всё
Const HKEY_DYN_DATA = &H80000006 'для hKEY

Private Declare Function RegCloseKey Lib "advapi32.dll" ( _
    ByVal hKey As Long) 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


Однако я не уверен, что статистика по трафику хранится там. У меня на XP например этот ключ вообще отсутствует :cry:. Да и назначение его другое - насколько я помню, он предназначен для хранения временной информации, обнуляющейся при перезагрузке/выключении компьютера :wink:.

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

ЗЫ. В VB есть хороший пример работы с реестром, посмотри Project>Add Form>About Box. Там получение путя к msinfo (при нажатии на кнопку "System Info") идет через реестр, как раз очень удобно придумано. Я сам во многих программах эти функции использую.
Моду создают модоки, а распространяют модозвоны.

gaidar
System Debugger
System Debugger
 
Сообщения: 3152
Зарегистрирован: 23.12.2001 (Вс) 13:22

Сообщение gaidar » 12.12.2003 (Пт) 13:32

Вот неслабый пример:
Вложения
RegEdit.zip
RegEdit
(58.33 Кб) Скачиваний: 50
The difficult I’ll do right now. The impossible will take a little while. (c) US engineers in WWII
I don't always know what I'm talking about, but I know I'm right. (c) Muhammad Ali

Allex
Начинающий
Начинающий
 
Сообщения: 4
Зарегистрирован: 10.12.2003 (Ср) 18:51

Сообщение Allex » 15.12.2003 (Пн) 17:05

2 hCORe Спасибо. В 98-й статистика именно там - "болванка" уже работает.
2 gaidar Что-то после двоеточия ничего нет :(
PS Странно, вместе с моим последним постом появился и Ваш пример. Мистика...


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 5

    TopList