Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
 Аватар для Yorksik
31 / 50 / 2
Регистрация: 10.12.2011
Сообщений: 383

Можно ли написать ограничитель Интернет-трафика

24.08.2012, 17:21. Показов 1361. Ответов 7
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Дорогие форумчане возможно ли средствами VB 6.0 Написать программу которая бы считала Исходящий + входящий трафик активного интернет соединения. И при сумме равной задаваемому числу n(в килобайтах) выводило msgbox, а при сумме равной задаваемлму числу k рвало это иртернет соединение.
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
24.08.2012, 17:21
Ответы с готовыми решениями:

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

Интернет сервер, автоматическое распределение интернет трафика в сети
Здравствуйте, помогите пожалуйста, может кто-то поднимал такие "интернет сервера". На чём (какой ОС, программе) и как лучше...

Программа для подсчета интернет трафика в интернет клубе
помогите в создании программы для подсчета трафика с взаимодействием с БД. С вазможностью распечатки информации за какой-то период(день,...

7
 Аватар для Pro_grammer
6807 / 2839 / 527
Регистрация: 24.04.2011
Сообщений: 5,308
Записей в блоге: 10
24.08.2012, 17:45
Цитата Сообщение от Yorksik Посмотреть сообщение
возможно ли средствами VB 6.0 Написать программу которая бы считала Исходящий + входящий трафик активного интернет соединения.
Конечно возможно.
0
 Аватар для Yorksik
31 / 50 / 2
Регистрация: 10.12.2011
Сообщений: 383
24.08.2012, 19:17  [ТС]
Хотелось бы увидеть реализацию поставленной задачи. Осмелюсь предположить что она не из сложных. Но так как это API(предположительно) какие либо свои наработки предоставить не могу, с ним не знаком вообще (только первый курс). Вот прошу форумчан о помощи.
0
 Аватар для Pro_grammer
6807 / 2839 / 527
Регистрация: 24.04.2011
Сообщений: 5,308
Записей в блоге: 10
24.08.2012, 21:14
Лучший ответ Сообщение было отмечено как решение

Решение

Цитата Сообщение от Yorksik Посмотреть сообщение
Хотелось бы увидеть реализацию поставленной задачи.
На форму кинуть Label1, List1, Timer1 (intr=1000)
Тут только статистика - суммировать трафик и принимать по ним решение - это уж сам.
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
Option Explicit
Private Const MAX_INTERFACE_NAME_LEN  As Long = 256
Private Const ERROR_SUCCESS   As Long = 0
Private Const MAXLEN_IFDESCR    As Long = 256
Private Const MAXLEN_PHYSADDR   As Long = 8
 
Private Type MIB_IFROW
   wszName(0 To (MAX_INTERFACE_NAME_LEN - 1) * 2) As Byte
   dwIndex              As Long
   dwType               As Long
   dwMtu                As Long
   dwSpeed              As Long
   dwPhysAddrLen        As Long
   bPhysAddr(0 To MAXLEN_PHYSADDR - 1) As Byte
   dwAdminStatus        As Long
   dwOperStatus         As Long
   dwLastChange         As Long
   dwInOctets           As Long
   dwInUcastPkts        As Long
   dwInNUcastPkts       As Long
   dwInDiscards         As Long
   dwInErrors           As Long
   dwInUnknownProtos    As Long
   dwOutOctets          As Long
   dwOutUcastPkts       As Long
   dwOutNUcastPkts      As Long
   dwOutDiscards        As Long
   dwOutErrors          As Long
   dwOutQLen            As Long
   dwDescrLen           As Long
   bDescr(0 To MAXLEN_IFDESCR - 1) As Byte
 
End Type
   
Private Declare Function GetIfTable Lib "iphlpapi.dll" (ByRef pIfTable As Any, ByRef pdwSize As Long, ByVal bOrder As Long) As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long)
Private Declare Function inet_ntoa Lib "wsock32" (ByVal addr As Long) As Long
Private Declare Function lstrcpyA Lib "kernel32" (ByVal RetVal As String, ByVal Ptr As Long) As Long
Private Declare Function lstrlenA Lib "kernel32" (ByVal Ptr As Any) As Long
Private Declare Function GetFriendlyIfIndex Lib "iphlpapi" (ByVal IfIndex As Long) As Long
 
Dim first As Boolean
Dim cnt As Long
 
 
Private Sub Get_traf()
   Dim IPInterfaceRow As MIB_IFROW
   Dim buff() As Byte
   Dim cbRequired As Long
   Dim nStructSize As Long
   Dim nRows As Long
   Dim n As Long
   Dim tmp As String
   
   Call GetIfTable(ByVal 0&, cbRequired, 1)
   If cbRequired > 0 Then
      ReDim buff(0 To cbRequired - 1) As Byte
      If GetIfTable(buff(0), cbRequired, 1) = ERROR_SUCCESS Then
         nStructSize = LenB(IPInterfaceRow)
         CopyMemory nRows, buff(0), 4
     
           If first Then
             List1.Clear
             For cnt = 1 To nRows
              CopyMemory IPInterfaceRow, buff(4 + (cnt - 1) * nStructSize), nStructSize
              List1.AddItem TrimNull(StrConv(IPInterfaceRow.bDescr, vbUnicode))
             Next cnt
             first = False
             cnt = 3
           End If
 
               CopyMemory IPInterfaceRow, buff(4 + (cnt - 1) * nStructSize), nStructSize
               Label1.Caption = "In: " & FormatNumber(IPInterfaceRow.dwInOctets, 0) & " Out: " & FormatNumber(IPInterfaceRow.dwOutOctets, 0)
                     
      End If
   End If
 
End Sub
 
Private Function TrimNull(item As String)
   Dim pos As Integer
   pos = InStr(item, Chr$(0))
    If pos Then
       TrimNull = Left$(item, pos - 1)
    Else
       TrimNull = item
    End If
End Function
 
Private Sub Form_Load()
first = True
End Sub
 
Private Sub List1_Click()
cnt = List1.ListIndex + 1
End Sub
 
Private Sub Timer1_Timer()
Call Get_traf
End Sub
Или готовая прога тут
3
 Аватар для Yorksik
31 / 50 / 2
Регистрация: 10.12.2011
Сообщений: 383
24.08.2012, 23:24  [ТС]
Немного разобравшись смог посчитать сумму и расставить условия. В теории все было идеально, а на практике не так :@
0
 Аватар для Yorksik
31 / 50 / 2
Регистрация: 10.12.2011
Сообщений: 383
25.08.2012, 21:39  [ТС]
Посмотрите плз TrafMeter.7z. Все что смог интуитивно сделать сделал. Каким образом можно реализовать поставленную задачу
0
25.08.2012, 22:48

Не по теме:

Цитата Z_of_X: 'Special thanks to http://msdn.microsoft.com ;)
'Некоторые куски я где-то взял, но точно не помню где, так что спасибо авторам этих кусков. =)
Жесть :D

0
 Аватар для Pro_grammer
6807 / 2839 / 527
Регистрация: 24.04.2011
Сообщений: 5,308
Записей в блоге: 10
25.08.2012, 22:50
Цитата Сообщение от Yorksik Посмотреть сообщение
Все что смог интуитивно сделать сделал
Изменений в "эталонном" коде как то не заметил.
А что конкретно не получается?
Потраченный трафик есть, предельный есть - сравнить два числа, предварительно переведя их в одну систему измерения ( к примеру мегабайты) и разорвать подключение если превышен лимит.
Я не могу ни чего пока сказать каким способом разорвать - не знаю как подключено. Но в любом случае поиск подскажет способ. Обычно это делается остановкой устройства, к примеру сетевой карты.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
25.08.2012, 22:50
Помогаю со студенческими работами здесь

Плата за Интернет "Тариф Т за 1 Мбайт трафика (это объем передаваемой или принято информации в сети Интернет) определяет
Плата за Интернет "Тариф Т за 1 Мбайт трафика (это объем передаваемой или принято информации в сети Интернет) определяет провайдер. Пусть Т...

Счетчик интернет трафика
сабж. С чего стоит начать?

Обвиняют в воровстве интернет трафика!
Здравствуйте. Я в отчаянии...Ситуация следующая...У нас на работе у каждого сотрудника есть определенное ограниченное количество интернет...

Интернет жрет много трафика
Интернет жрет много трафика, что то обновляется но найти не могу, комп несколько раз переписал, нодом и касперским проверял, вируса нет но...

Разделение трафика на сеть/интернет
Здравствуйте. Есть компьютер, подключенный к локальной сети и к интернету. Необходимо заставить одну программу работать только через...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Новые блоги и статьи
Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT
bedvit 28.01.2026
Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .
Киев стоит - украинская песня
zorxor 28.01.2026
wfWdiRqdTxc О Господи, Вечный, Ты . . . Я помоги, Бесконечный. . . Я прошу Ты. . . Я погибаю, спаси. . . Я прошу Тебя Вечный. . .
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 28.01.2026
Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image
8Observer8 27.01.2026
Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .
влияние грибов на сукцессию
anaschu 26.01.2026
Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android
8Observer8 26.01.2026
Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .
Установка Android SDK, NDK, JDK, CMake и т.д.
8Observer8 25.01.2026
Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf
8Observer8 25.01.2026
Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru