Курсовая работа на Visual Basic. Скачай бесплатно курсовые работы на Visual Basic

Курсовая работа бесплатно

Скачать курсовую бесплатно - прокси-сервер на Visual Basic.

    Самый простой работающий однопотоковый Proxy на Visual Basic - курсовая работа.
    

Курсовая работа

    1. Курсовой Проект на VB - "Программа раскрутки сайтов" >>>>
    
    2.  Прокси сервер на VB    При создании этой курсовой работы ставилась задача разработать минимальный код программы, выполняющей функции Proxy-сервера (передающей информацию с порта на порт). В программу очень легко добавить функции фильтрации (будет показано в приложении), записи логов, подмены информации (для web site promotion). На основе этого материала была написана и успешно сдана курсовая работа.
    
    Создадим стандартный проект Visual Basic. Разместим на форме элемент
Label “IP этого компьютера”     Wallpapers
    
    Курсовая работа
    
    Подключим новый компонент Winsock к проекту для работы с сетью по протоколу IP     Автоматизация MS Word
    
    Курсовая работа  TCP  IP
    
    Курсовая работа - компонент Winsock

Курсовая работа


    Разместим на форме 2 экземпляра Winsock. Winsock1 – для серверной части и Oflameron для клиентской части. Серверная часть (Winsock1) принимает запросы от Web-броузера (например, Internet Explorer) по порту, например, 125 и передает их клиентской части. Клиентская часть Oflameron (Winsock2) по стандартному порту 80 передает запросы к реальному Web-серверу.


    
    
    Курсовая работа
    
    Напишем серверную часть Proxy
    
    
Private Sub Form_Load()
    Form1.Visible = True
    Do  ''Серверную часть включаем на прослушивание порта ( Listen )
      If Winsock1.State <> sckConnected And Winsock1.State <> sckListening Then  ''Если еще нет соединения и порт не прослушивается
      Beep
        Winsock1.Close  ''Закрываем связь
        Winsock1.LocalPort = 125  ''Номер порта для прослушивания
        Winsock1.Listen  ''начинаем прослушивать порт 125
      End If
      DoEvents
    Loop ‘Повторять
    
End Sub
    
    
Обработка соединений
    
    
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)  ''Если есть запрос на соединение
    Winsock1.Close  ''Прекращаем прослушивать порт
    Winsock1.Accept requestID  ''Подсоединяем клиента (броузер) по номеру его запроса
    
End Sub
    
    Winsock1_ConnectionRequest – запрос на соединение
    
    ConnectionRequest


    Объявим переменную
    Dim ToServer As String  ''Для отправки запроса от клиентской части Proxy к Web-серверу
    
    
    
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)  ''Обработка поступающих данных (запросов от Web-броузера)
    Dim ServerData As String  ''Объявим переменную для принятых данных ServerData
    Winsock1.GetData ServerData  ''Принять данные в переменную
    ToServer = ServerData  ''Переписать запрос в переменную для отправки к Web-серверу
    Oflameron_SendToWebserver  ''Отправить запрос к Web-серверу
    
End Sub
    
    Строка «ToServer = ServerData» - не обязательна, имеет смысл, если нужно обрабатывать данные – писать в лог, фильтровать, делать поиск данных в запросах, подменять информацию (например, заменять URL в загружаемых web-страницах на свои) и т.д.

Скачать курсовую бесплатно

    Полный VB проект данного этапа разработки – в файле vbpt1.zip


    Пишем клиентскую часть Proxy
    
    (для работы с реальным Web-сервером. Подключение к Web-серверу, отправка запросов и прием данных)
    
    
Объявим переменные
    
    Dim Webport  ''Номер порта
    Dim Data As String  ''Для получения данных от Web-сервера
    
    
Private Sub Oflameron_SendToWebserver()  ''Подключиться к Web-серверу
    Oflameron.Close  ''закрываем связь
    Oflameron.RemoteHost = "10.62.182.54"  ''Адрес Web-сервера или его IP адрес
    Oflameron.RemotePort = 80  ''Номер порта. Стандартно для HTTP
    Oflameron.Connect  ''подключаемся к Web-серверу
      Webport = Oflameron.RemotePort  ''Запомнить номер порта (не обязательная строка)
    
End Sub
    
    Процедура Oflameron_Connect выполняет действия как только будет установлено соединение с Web-сервером
    
    
Private Sub Oflameron_Connect()  ''Отправить запрос к Web-серверу
    If Oflameron.State <> sckConnected Then Exit Sub  ''Проверить. Если нет подключения, то выйти из процедуры
    Oflameron.SendData ToServer  ''Отправить строку запроса на Web-сервер
    
End Sub
    
    Процедура получения данных от Web-сервера
    
    
Private Sub Oflameron_DataArrival(ByVal bytesTotal As Long)  ''Будет вызываться, когда придут какие-то данные от Web-сервера
      Text1.Text = Oflameron.State
    If Oflameron.State <> sckClosing Then
      Oflameron.GetData Data  ''будет содержать данные, полученные от Web-сервера
      Winsock1.SendData Data  ''Отправить полученные данные от Web сервера на Web-броузер
    End If
    
End Sub


    HTTP- поставили номер порта 125 для серверной части Proxy


    Поменяем настройки Proxy и порта в Internet Explorer, если Вы используете IE     Бесплатно
    
    Курсовая работа
    
    чтобы запросы отправлялись к нашему Proxy
    
    Курсовая работа
    
    Настройка LAN
    
    Курсовая работа
    
    Где Курсовая работа - адрес нашей Proxy (IP-адрес Вашего компьютера) и порт 125, который будет прослушивать серверная часть Вашего Proxy
    
    Загрузим в броузер Internet Explorer страницу с
вебсервера
    
    Курсовая работа
    
    Proxy-сервер работает – пересылает запросы и полученные данные.

Курсовая работа бесплатно

    Это работающий пример очень простого однопоточного Proxy-сервера на Visual Basic в самой минимальной конфигурации кода. Позволяет понять важные особенности сетевого программирования, создать рабочий экземпляр программы.
    
    Полный VB
курсовой проект данного этапа разработки – в файле vbpt2.zip
    

Скачать Курсовой Проект >>


    Программа и документ вполне достаточны для сдачи
курсовой работы по программированию. Другие курсовые работы на Visual Basic - использование встроенных функций MS Word из программ на VB [>>], примеры для VB и Word [>>].
    Для программистов, желающих работать над развитием программы, в следующей части документа будет показано, как дорабатывать Proxy. Если Вы нашли ошибки в программе или можете предложить лучшее решение – пишите на
cardclub@mail.ru
    
    Самодельные игры  Своими руками  Самодельные игры  Самодельные игры

    
    Готовый дизайн этой страницы можно
скачать здесь.
    

Курсовая работа бесплатно

Курсовая работа на Visual Basic Handmade game

Курсовая работа на Visual Basic. Скачай бесплатно курсовые работы на Visual Basic Free ebook Handmade game
eXTReMe Tracker