Курсовая работа - программа. Скачать курсовикна Visual Basic. Бесплатная курсовая работа

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

    Курсовая


    Программа для продвижения сайтов - создание большого количества back линков
    (c) by Valery V Shmeleff Moscow/Russia www.oflameron.ru and www.oflameron.com
  

Shmeleff

    
    
Курсовая работа - разработка программы для автоматизации продвижения сайтов в Интернете. Разработанная программа создает для заданного веб сайта большое количество веб страниц с контентом и back линки.
    Курсовая работа использует стандартный набор функций Visual Basic и рассчитана на программистов начального уровня.
    

    Разработанная программа использует он-лайн сервисы анализа веб сайтов для создания информационных веб страниц и обратных ссылок на ваш сайт.
    Веб страницы и back линки создаются в автоматическом режиме. Список веб сайтов для он-лайн анализа - просто текстовый файл, который вы можете пополнять сами.
    Программа имеет коммерческие перспективы. В курсовом проекте разработана вполне работоспособная программа, создающая несолько десятков обратных ссылок на заданный сайт.
    

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

      В курсовой работе использовано всего несколько процедур: чтение файла с сылками на он-лайн сервисы, формирование адреса для загрузки в встроенный броузер, процедура для работы таймера.
    Запустим Visual Basic и создадим проект Standard EXE


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

    Добавим в панель компонентов веб броузер Webbrowser1
    
    Курсовая работа
    
    Курсовая работа
    
    На форме Form1 разместим: веб броузер webbrowser1, текстбокс Text1 для ввода адреса сайта и кнопку Command1 для запуска программы
    
    Курсовая работа
    
    Объявим массив e() для чтения списка адресов сайтов, на которых будет генерироваться страница с данными о нашем сайте (например,
http://coffe.vov.ru/)
    
    Dim e()
    
    Напишем процедуру чтения тестового файла в массив e() и будем выполнять ее по загрузке формы Form1
    
    Private Sub Form_Load()
    ReDim e(0)
    Open "web.txt" For Input As #1
    Do Until EOF(1)
    Line Input #1, e(UBound(e)) 'Определить размер массива UBound(a)
    ReDim Preserve e(UBound(e) + 1) 'ReDim Preserve увеличивает размер массива, сохраняя при этом его содержимое
    Loop
    Close
    ReDim Preserve e(UBound(e) - 1)
    End Sub
    


    Элементы массива e() будут содержать строки файла web.txt с адресами сайтов
    
    Добавим на форму Form1 таймер Timer1
    
    Курсовая работа
    
    Выставим параметры работы таймера – запретим таймер при старте программы и установим интервал
    
    Курсовая работа
    
    Процедура для таймера Timer1
    
    Private Sub Timer1_Timer()
    On Error GoTo NH
    PageCreate 'Сформировать строку для загрузки в веб броузер
    WebBrowser1.Navigate site2 'Загрузить сайт в броузер
    NH:
    Text1.Text = site2 'Написать название загружаемого сайта
    site1 = "" 'Очистить переменную для следующего адреса
    site2 = "" 'Очистить переменную для следующего адреса
    End Sub
    
    Разрешать работу таймера будем по нажатию кнопки Command1
    
    Private Sub Command1_Click()
    site3 = Text1.Text 'Запомнить адрес сайта для добавления
    Timer1.Enabled = True 'Разрешить таймер
    End Sub
    
    Процедура составления адреса для загрузки в Webbrowser1
    
    Private Sub PageCreate() 'Сформировать строку для загрузки в веб броузер
    site1 = e(i) 'Выбрать адрес из массива e()
    site2 = site1 + site3 'Сформировать адрес для загрузки из адреса он-лайн сервиса и адреса вашего сайта
    i = i + 1 'Указатель на следующий адрес в массиве e()
    If i > UBound(e) Then
    i = 0
    Timer1.Enabled = False 'Запретить таймер
    End If
    End Sub
    
    Принцип работы программы следующий: из файла web.txt выбирается адрес он-лайн сервиса, к которому прибавляется адрес вашего сайта, заданный в Text1 (но без http://). Например
    
    Адрес он-лайн сервиса http://www.reddit.com/domain/ а адрес вашего сайта
http://coffe.vov.ru/ (задавать надо без http://)
    
    Тогда сформированный адрес для загрузки в Webbrowser1 будет:
    
    http://www.reddit.com/domain/coffe.vov.ru/
    
    Запуск программы
    
    Запустите программу. В текстовое поле Text1 введите адрес сайта, который вы хотите раскручивать в Интернете (без http://) и нажмите кнопку Load
    
    Курсовая работа
    
    Готовый VB проект
    
    Полный VB проект, разработанный в курсовой работе и файлы с имиджами в формате JPG - в файле
Web_Ping_Mgr.zip. Модернизированный вариант программы - в файле Web_Ping_Mgr2.zip
    
    Откомпилированный вариант программы -
webping.zip - исполняемый EXE файл.
    
    Описание метода продвижения веб сайта, использованного в курсовой работе
    
    В Интернете достаточно много он-лайн сервисов, выполняющих оценку заданных сайтов: оценка мета тэгов, контента, кодировки, ключевых слов, копирайта, качества HTML кода, входящих и исходящий ссылок, количества упоминаний в статьях, блогах и каталогах, качества индексации поисковыми системами и т.д.
    Многие из сервисов создают при этом отдельную веб страницу, которая может быть проиндексирована поисковыми системами (Яндекс, Гугл). Созданная программа автоматически обращается к он-лайн сервисам и в качестве адреса сайта для оценки отдает адрес введенного вами сайта.
    Существует несколько тысяч он-лайн сервисов, часть из которых перечислена в файле web.txt Время от времени строка запросов для отсылки вашей информации в сервис может меняться, тогда ваш сайт не будет добавлен и веб страница не будет сформирована. В таком случае соответствующий сервис можно исключить из списка обрабатываемых программой или откорректировать строку в любом текстовом редакторе.
    После обработки всего списка адресов программа загрузит в Webbrowser ваш сайт и остановится.
    
    Timer1.Enabled = False 'Запретить таймер
    
    Если нажать кнопку Load процесс добавления запустится снова. Перед этим следует указать адрес следующего сайта для продвижения.
    
    

Курсовая работа - программа. Скачать курсовикна Visual Basic. Бесплатная курсовая работа