|
Теперь потребуется массив, в который будем считывать адреса сайтов он-лайн сервисов из файла web.txt
Dim e() - объявим массив e() для чтения списка адресов сайтов, на которых будет генерироваться страница с данными о нашем сайте (например, http://coffe.vov.ru/)
Напишем VB код для чтения файла web.txt
Private Sub Form_Load() 'Читаем файл при загрузке формы
ReDim e(0)
Open "web.txt" For Input As #1 'Открыть файл для чтения
Do Until EOF(1) 'Читать файл до конца
Line Input #1, e(UBound(e)) 'Считать строку файла
ReDim Preserve e(UBound(e) + 1) 'ReDim Preserve увеличивает размер массива, сохраняя при этом его содержимое
Loop 'Повторить
Close 'Закрыть файл
ReDim Preserve e(UBound(e) - 1) 'Переопределить размер массива
End Sub
Каждый элемент массива e() содержит адрес одного он-лайн сервиса
Теперь можно добавить на форму таймер Timer1
Зададим параметры работы таймера
Timer1.enable = falce - при загрузке программы таймер запрещен
Timer1.Interval = 4000 - выставим интервал для работы с каждым он-лайн сервисом. Потом этот интервал увеличим.
По таймеру будет выполняться следующий код
Private Sub Timer1_Timer()
On Error GoTo NH 'По ошибке перейти к метке
PageCreate 'Сформировать строку для загрузки в веб броузер
WebBrowser1.Navigate site2 'Загрузить сайт, указанный в site2, в броузер
NH:
Text1.Text = site2 'Написать название загружаемого сайта
site1 = "" 'Очистить переменную для следующего адреса
site2 = "" 'Очистить переменную для следующего адреса
End Sub
Скачать бесплатно
Разместим на форме кнопку Command1 по нажатию которой будем разрешать таймер
Private Sub Command1_Click()
site3 = Text1.Text 'Запомнить адрес сайта для добавления
Timer1.Enabled = True 'Разрешить таймер
End Sub
Теперь напишем, как будет формироваться адресная строка для он-лайн сервиса. Для этого к адресу он-лайн сервиса добавляется в качестве параметра адрес вашего сайта. Например, http://www.cys.ru/forward.html?url= и coffe.vov.ru
Причем, адрес вашего сайта указывается без http://
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
Использование программы
Запустите программу
В строке укажите адрес вашего сайта без http://. Например, coffe.vov.ru
Запустите программу, нажав кнопку |Load|
|
|
