3 Практическое решение и обоснование программы

Работа начиналась с простых заданий, а после, переходилась к более сложным, чтобы понять, как выполнять поставленные задачи. Коды по созданию новых листов, построению различных диаграмм и переносу некоторых данных в Microsoft Word из Exсel можно было узнать из семинаров. Поставленная задача была решена следующим образом: на VBA написан скрипт, который создает новые листы и помещает на них данные, строит соответствующие диаграммы и гистограммы.

Для выполнения первой задачи в программе создается цикл, который пробегает по всем ячейкам «A» и определяет одно из четырех возможных вариантов: ячейка - пуста, содержит дату, присутствует надпись Source,либо имеется некие IP адреса, которые нам необходимы. После того как IP найдены начинается их разбивка на 3 группы по конечным значениям данных IP адресов. А после этого на новом листе выстраивается круговая диаграмма в процентном соотношении (Рисунок 2).

Рисунок 2 – Диаграмма распределения суммы внутреннего трафика по группам

Для выполнения второй программы, которая связана с нахождением исходящего трафика и распределением его по часам был создан цикл проверяющий ячейки «А». Если в ней находился некий адрес, то скрипт переходил на новый цикл и находил IP который нам необходим. Для распределения полученных адресов по времени, была создана дополнительная переменная, которая обнулялась по завершении часа. Далее создается новый лист и рисуется гистограмма (Рисунок 3).

Рисунок 3 – Гистограмма распределения исходящего трафика по часам

Для удобства отладки код программы был разбит на несколько макросов: макрос поиска, макрос подсчета трафика, макрос построения диаграмм и др. Программа искала в первых двух столбцах соответствующий IP-адрес и брала значение объёма переданных байт из 4 столбца.

Таблица 1 – Начальные строки исходного файла

21.02.2008	0:14	----------------------------
Source	Destination	Packets	Bytes
192.168.0.100	192.168.0.255	2	458
213.215.116.226	202.202.205.25	5	688

Для выполнения программы по подсчету входящего трафика необходимо было дать разрешение на работу скрипта с Wordом. Для этого в меню Tools среди архива References следует отметить галочкой Microsoft Word.

Рисунок 4 – Работа с Microsoft Visual Basic

Далее заводится переменная wdApp благодаря которой будет осуществлен перенос данных в Word. После этого осуществляем проверку ячеек «А» и «В» на дату, пустоту или слово «Source». Переменные i и l служат для записи IP и байтов соответственно. С помощью них задаются 2 цикла - по подсчету IP и по подсчету байтов. Далее создается новый лист, а данные записанные в ячейках переносятся в Word в виде таблицы. К сожалению, при работе макроса данные из одинаковых ячеек стираются, чтобы цикл не считал повторяющиеся IP дважды. Данные по подсчету входящего трафика для каждого внутреннего компьютера были экспортированы в Microsoft WORD (таблица 2).

Таблица 2 – Данные, экспортированные в Microsoft WORD

IP Байт

202.202.205.25	82652891
202.202.205.255	769200
202.202.205.154	1330311
202.202.205.253	6853608
202.202.205.200	7,42E+08
202.202.205.9	1354022
202.202.205.14	6018517
202.202.205.22	21314944
202.202.205.18	26840929
202.202.205.240	18939453
202.202.205.239	807047
202.202.205.238	19748721
202.202.205.250	3,64E+08
202.202.205.232	10296915
202.202.205.237	121425
202.202.205.230	3611139
202.202.205.251	209233
202.202.205.235	4,54E+08
202.202.205.231	11949

В последнем задании необходимо было создать программу по запросу у пользователя внутреннего IP адреса и после того, как он его введет, вывести весь входящий трафик для этого компьютера. Для того, чтобы программа выводила текстовое сообщение существует код InputBox. Данному коду можно присваивать некоторые значения, например значение IP адреса, что мы и делаем. Далее создается цикл по просмотру совпадений между введенным адресом и адресами, записанными в ячейках «В». Все что совпадает – складывается и выдается на новом листе в виде некоторой таблицы 3.

Таблица 3 – Начальные строки вывода входящего трафика для введенного IP

Трафик для компьютера:
202.202.205.200
IP	Объём, байт
194.67.45.65	1941
194.67.23.203	3654
194.186.55.126	1087713
213.8.137.51	3128