|
|
Элементы массива 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://www.shmeleff.com/ (задавать надо без http://)
Тогда сформированный адрес для загрузки в Webbrowser1 будет:
http://www.reddit.com/domain/shmeleff.com/
Запуск программы
Запустите программу. В текстовое поле 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 процесс добавления запустится снова. Перед этим следует указать адрес следующего сайта для продвижения.
Freeware - free download software. Next Freeware
|
|
|
