Програма для обліку інтернет трафіку

2. Формулювання задачі

Розробити програмний продукт, а саме ”               Програма для обліку інтернет трафіку ”, яка повинна володіти наступною функціональністю:

- повинна відображати список підключень;

- відображати інформацію про вибране підключеня;

- підраховувати вхідний і вихідний інтернет трафік;

- встановлювати ліміт на вхідний або вихідних трафік;

- виводити повідомлення про перевищення ліміту;

- закривати з’єднання якщо того хоче користувач;

3. Алгоритм розв’язання задачі

В програмі використано 3 функції:

1.      Головна для створення діалогового вікна і ініціалізації всіх дочірніх вікон.

2.      Функція для сканування усіх доступних підключень в якій по черзі записуються в ComBox.

3.      Функція для вибраного підлючення яка виводить інформацію про нього і перевіряє вихід за рамки встановленого ліміту.

4. Програмні реалізації алгоритму

Загальна характеристика програми:

Назва програми - Програма для обліку інтернет трафіку.

Написана мовою Асемблер.

Призначення програми:

Проводити облік інтернет трафіку, встановлювати ліміт на вхідні або вихідні данні.

Вхідними даними є трафік який використовується під час інтернет зєднання, інформація про вибраний інтерфейс.

Результуючою інформацією є повідомлення про перевищення ліміту.

Програмні засоби.

Дана програма запускається у вікні Windows під керуванням операційної системи Windows Vista, Windows 7 .

Технічні засоби.

Для повноцінного функціонування програми необхідні такі технічні засоби:

1.      Комп’ютер класу Pentium II і вище

2.      Монітор

3.      Клавіатура

4.      Windows Vista або Windows 7 (нормальне функціювання на нищих версіяв Windows не гарантується)

5. Інструкція користувачеві програми

              Перед початком роботи з програмою рекомендується скопіювати її в системний каталог операційної системи і створити ярлик на робочому столі.

1.       Після запуску              перш за все треба встановити галочки навпроти підходящих для вас конфігурацій.

2.       Після цього повзунком встановити ліміт на вхідні або вихідні данні і натиснути для підтвердження конпку “SET”

3.       Потім у вкладці “Selected Interface” вибрати потрібне підключення.

4.       У разі перебільшення ліміту на дисплеї з’явиться вікно для закриття програми а якщо це вибрано в налаштуваннях то і закриття з’єднання або для продовження роботи.

6. Контрольні приклади та аналіз результатів їх реалізації

(Мал.1)

Так виглядає программа при запуску.

(Мал.2)

Встановлення початкових конфігурацій.

(Мал.3)

Вибір з’єднання яке хочемо використовувати.

(Мал.4)

Відображення інформації про підключення.

(Мал.5)

Повідомлення про перебільшення ліміту.

Висновоки

1.                  Під час виконання роботи я написав програмний продукт “ Програму для обліку інтернет трафіку ”, використовуючи програмне середовище RadASM.

2.                  Розроблена програма, протестована на операційних системах Windows Vista і Windows 7.

Список використаної літератури

1.      Румянцев П.В. Азбука программирования в Win32 API. – 3-е издание., дополн. – М.: Горячая линия–Телеком, 2001. – 312 с.: ил.

2.      MASM32 Library Reference

3.      www.wasm.ru Уроки Iczelion’а по Win32 API в переводе Aquila

4.      http://msdn.microsoft.com

Додаток 1

Лістинг Inc файлу

include windows.inc

              include wininet.inc

              include kernel32.inc

              include user32.inc

              include Comctl32.inc

              include gdi32.inc

              include iphlpapi.inc

              include shell32.inc

              include oleaut32.inc

              includelib oleaut32.lib

              includelib wininet.lib

              includelib kernel32.lib

              includelib user32.lib

              includelib Comctl32.lib

              includelib shell32.lib

              includelib gdi32.lib

              includelib iphlpapi.lib

              DlgProcAbout                             proto :HWND, :UINT, :WPARAM, :LPARAM

              DlgProc                                           proto :HWND,:UINT,:WPARAM,:LPARAM

              CountInterfaces               proto hWnd:HWND

              SelectedInterface               proto :HWND

              OnCreate                                          proto :HWND             

.const

              IDD_DIALOG1                                          equ 101

              TB_THUMBPOSITION              equ 04h

              TB_THUMBTRACK                            equ 05h

                 WM_SHELLNOTIFY                             equ WM_USER+5

                 IDI_TRAY                                           equ 0

                 IDM_RESTORE                             equ 1000

              IDM_EXIT                                           equ 1010

note NOTIFYICONDATA <>

MIB_IFROW STRUCT

  wszName            db    512 dup (?)

  dwIndex            dd        ?

  dwType             dd        ?

  dwMtu              dd        ?

  dwSpeed            dd        ?

  dwPhysAddrLen      dd        ?

  bPhysAddr1         dd        ?

  bPhysAddr2         dd        ?

  dwAdminStatus      dd        ?

  dwOperStatus       dd        ?

  dwLastChange       dd        ?

  dwInOctets         dd        ?

  dwInUcastPkts      dd        ?

  dwInNUCastPkts     dd        ?

  dwInDiscards       dd        ?

  dwInErrors         dd        ? 

  dwInUnknownProtos  dd        ?

  dwOutOctets        dd        ? 

  dwOutUCastPkts     dd        ?

  dwOutNUCastPkts    dd        ?

  dwOutDiscards      dd        ?

  dwOutErrors        dd        ?

  dwOutQLen          dd        ? 

  dwDescrLen         dd        ?

  bDescr             db    256 dup (?)

MIB_IFROW ENDS

LimitName                                           db "LIMIT EXCEEDED",0

LimitString                             db "OK - TO CLOSE PROGRAM",13,10,\

                                                                         "CANCEL - TO CONTINUE",0

HelpStr                                                        db "Ця програма призначена для обліку інтернет трафіку",13,10,\

                                                                         "Слідкуйте за інтернет трафіком і економте!)",13,10,\

                                                                         "http://vkontakte.ru/dkisselev",0

HelpTit                                                        db "Help TraficInspector",0

LimitSet                                           db "YOU LIMIT ",0

formInOctets                            db 'SENT KB         : %d',0

formOutOctets                            db 'RECEIVED KB : %d',0

formSpeed                                          db 'INTERFACE INDEX: %d,',0

numdiv                                                        dd 1024

TimerID                                           dd 0

ClassName                                            db "TrayIconWinClass",0

AppName                                              db "TrayIcon Demo",0

RestoreString                             db "&Restore",0

ExitString                               db "E&xit Program",0             

szDisplayName db "TraficInspector",0

AboutMsg      db "TraficInspector Copyright © 2011",13,10,\

                                              "- Кисель Дмитро (vkontakte.ru/dkisselev) -",0

file                                          db 'help.txt',0

.data?

              divRes                                                        dd ?

              divResIn                                          dd ?

              divResOut                                          dd ?

              reqsize                                                        dd ?

              hInet                                                        dd ?

              mInet                          dd ?   

    TypeCount                                           dd ?

              traff                                                        dd ?

              hInstance                                          dd ?

              hFile                                                        dd ?

              hComBox                                           dd ?

              hMem                                                        dd ?

              hmenu                                                        dd ?

              h                                                                       dd ?

              buf                                                         db 255 dup (?),0

              buf1                                                         db 255 dup (?),0

              buf2                                                         db 255 dup (?),0

              buf3                                                         db 255 dup (?),0

              hBitmap                            HBITMAP ?

              hdcMem                            HDC ?

.data

i                                          dd 0

ln                                          dd 0

cOut                            dd 0

closeCon              dd 0

hedit                            dd 0

hPopupMenu              dd 0

hbox1                            dd 0

buffer                            db 256 dup(0),0

br                                db 256 dup (0),0

he                                           dd 0

format                            db              ' %ld',0

edit                              dd 0

limit1                            dd 500

Додаток 2

Лістинг Asm файлу

.386

              .model flat,STDCALL

              option casemap :none

              include kyrs6.inc

.code

Start:

              invoke GetModuleHandle,NULL

              mov hInstance,eax

    invoke InitCommonControls

              invoke DialogBoxParam,hInstance,IDD_DIALOG1,NULL,addr DlgProc,NULL

              invoke ExitProcess,0

DlgProc proc hWnd:HWND,uMsg:UINT,wParam:WPARAM,lParam:LPARAM

              mov eax,uMsg

.if eax==WM_INITDIALOG

                            invoke LoadMenu,hInstance,10000

                            mov hmenu,eax

                            invoke SetMenu,hWnd,hmenu

                            invoke CreatePopupMenu

        mov hPopupMenu,eax

                            invoke GetDlgItem,hWnd,1011

                                          mov hbox1,eax

                            invoke GetDlgItem,hWnd,1005

                                          mov hedit,eax

                            invoke GetDlgItem,hWnd,1002

                                          mov he,eax

                            invoke GetDlgItem,hWnd,1010

                                          mov edit,eax

                            invoke GetDlgItem,hWnd,1001

                            mov hComBox,eax

                            mov h,0             

                            invoke SendMessage,he,TBM_SETRANGEMAX,0,500000

                            invoke CountInterfaces,hComBox

                            invoke SetTimer,hWnd,0,1200,0

.elseif eax==WM_COMMAND

                            mov                            eax,wParam

                            mov                            edx,eax

                            shr                            edx,16

                            and                            eax,0FFFFh

                            .if edx == BN_CLICKED ; if key pres

                                          .if eax == 1009

                                                        invoke SendMessage,hedit,WM_GETTEXT,256,addr buffer

                                                        invoke SendMessage,he,TBM_GETPOS,0,0

                                                        mov limit1,eax