Серфинг сайтов в компоненте webbrowser

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
theal
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 148
Зарегистрирован: 03.05.2009 (Вс) 16:12

Серфинг сайтов в компоненте webbrowser

Сообщение theal » 13.05.2009 (Ср) 21:30

Создана Acces база .mdb в которой хранится список сайтов для серфинга.Програмка загеужает сайты в компонент webbrowser1.Запускается без проблем,но после 3-4 сайта--выскакивает run-time error то(-1)то(-2).И при просмотре последнего сайта из базы данных--тоже ошибка(типа записи кончились)...Помогите доработать програмку..Нужно чтобы при окончании записей в базе ,чтение записей начиналось с первого сайта(записи) Как избежать ошибок?

Вот код:

Код: Выделить всё
Private Sub Text1_Change()
Text3.Text = Text1.Text
End Sub
Private Sub Text2_Change()
Text4.Text = Text2.Text
End Sub
Private Sub Text3_Change()
While WebBrowser1.ReadyState <> READYSTATE_COMPLETE
            DoEvents
        Wend
WebBrowser1.Navigate Text3.Text
End If
End Sub
Private Sub Text5_Change()
On Error Resume Next
If Text5.Text = "10" Then
Data1.Recordset.MoveNext
Text5.Text = "0"
End If
End Sub
Private Sub Timer1_Timer()
Text5.Text = Text5 + 1
End Sub

DeMONiZ
Продвинутый пользователь
Продвинутый пользователь
Аватара пользователя
 
Сообщения: 162
Зарегистрирован: 03.01.2009 (Сб) 18:32

Re: Серфинг сайтов в компоненте webbrowser

Сообщение DeMONiZ » 14.05.2009 (Чт) 5:57

я тоже давным давно что то такое писал сейчас покажу код.....и покажу как делал правда он у меня кривой

DeMONiZ
Продвинутый пользователь
Продвинутый пользователь
Аватара пользователя
 
Сообщения: 162
Зарегистрирован: 03.01.2009 (Сб) 18:32

Re: Серфинг сайтов в компоненте webbrowser

Сообщение DeMONiZ » 14.05.2009 (Чт) 6:00

Доработай код он не рационален я думаю ты увидишь чем.
Я делал вот так:

Код: Выделить всё

Dim d As Integer
Private Sub Command1_Click()
10
Dim MyFile 'Объявляем переменную для свободного файла
Dim i As Integer 'Переменная для цикла
Dim tS As String 'Переменная для считывания строк
Dim S As String 'Переменная для хранения окончательных данных
Dim j As Long, cur As Long
Dim intSecond As Long
Dim intDelay As Integer

d = d + 1
MyFile = FreeFile ' Присваиваем свободный канал, для работы с файлами
Open ("baza.txt") For Input As #MyFile 'Открываем файл TEST.TXT для чтения
For i = 1 To d
Line Input #MyFile, tS 'Читаем файл TEST.TXT построчно
If i >= d Then S = tS 'Если пятая строка, то запоминаем ее в переменную S
Next i
Close #MyFile 'Закрываем файл
Label2.Caption = S

If S = "end" Then
d = 0
GoTo 10

End If




    Randomize
    WebBrowser1.Navigate S

    While WebBrowser1.ReadyState <> READYSTATE_COMPLETE
        DoEvents
    Wend
   

x = Text1.Text

   
   
intDelay = x
intSecond = Timer
Do While Timer < intSecond + intDelay
DoEvents
Text2 = Int((intSecond + intDelay) - Timer) & " сек."
Loop
j = 0
     GoTo 10
     
End Sub



Private Sub Form_Load()
WebBrowser1.Silent = True


End Sub



Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
Label1 = Text
End Sub


Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
On Error Resume Next
'Прогресс загрузки страницы
ProgressBar1.Visible = True
If ProgressMax = 0 Then ProgressMax = 100
ProgressBar1.Max = ProgressMax
If Progress < 0 Then Progress = 0
ProgressBar1.Value = Progress
End Sub


список сайтов хранился в txt файле и просто в конец этого файла я дописывал end, программа проверяла если попалась строка с end то сайты сначала

ты точно из мира серфинга.

BION
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 259
Зарегистрирован: 24.01.2005 (Пн) 21:05

Re: Серфинг сайтов в компоненте webbrowser

Сообщение BION » 14.05.2009 (Чт) 10:57

theal писал(а):.Запускается без проблем,но после 3-4 сайта--выскакивает run-time error то(-1)то(-2).


Это баг webbrowser'a, возникает при обновлении или загрузке страниц, но только в режиме debug (по крайней мере у меня), после компиляции в ехе беспокоить не должно.
Буээ!

theal
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 148
Зарегистрирован: 03.05.2009 (Вс) 16:12

Re: Серфинг сайтов в компоненте webbrowser

Сообщение theal » 14.05.2009 (Чт) 15:02

DeMONiZ писал(а):Доработай код он не рационален я думаю ты увидишь чем.
Я делал вот так:

Код: Выделить всё

Dim d As Integer
Private Sub Command1_Click()
10
Dim MyFile 'Объявляем переменную для свободного файла
Dim i As Integer 'Переменная для цикла
Dim tS As String 'Переменная для считывания строк
Dim S As String 'Переменная для хранения окончательных данных
Dim j As Long, cur As Long
Dim intSecond As Long
Dim intDelay As Integer

d = d + 1
MyFile = FreeFile ' Присваиваем свободный канал, для работы с файлами
Open ("baza.txt") For Input As #MyFile 'Открываем файл TEST.TXT для чтения
For i = 1 To d
Line Input #MyFile, tS 'Читаем файл TEST.TXT построчно
If i >= d Then S = tS 'Если пятая строка, то запоминаем ее в переменную S
Next i
Close #MyFile 'Закрываем файл
Label2.Caption = S

If S = "end" Then
d = 0
GoTo 10

End If




    Randomize
    WebBrowser1.Navigate S

    While WebBrowser1.ReadyState <> READYSTATE_COMPLETE
        DoEvents
    Wend
   

x = Text1.Text

   
   
intDelay = x
intSecond = Timer
Do While Timer < intSecond + intDelay
DoEvents
Text2 = Int((intSecond + intDelay) - Timer) & " сек."
Loop
j = 0
     GoTo 10
     
End Sub



Private Sub Form_Load()
WebBrowser1.Silent = True


End Sub



Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
Label1 = Text
End Sub


Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
On Error Resume Next
'Прогресс загрузки страницы
ProgressBar1.Visible = True
If ProgressMax = 0 Then ProgressMax = 100
ProgressBar1.Max = ProgressMax
If Progress < 0 Then Progress = 0
ProgressBar1.Value = Progress
End Sub


список сайтов хранился в txt файле и просто в конец этого файла я дописывал end, программа проверяла если попалась строка с end то сайты сначала

ты точно из мира серфинга.


Код: Выделить всё
Open ("baza.txt") For Input As #MyFile 'Îòêðûâàåì ôàéë TEST.TXT äëÿ ÷òåíèÿ

Вот эта строка выдаёт ошибку...Хотя файл baza.txt создан и лежит в одной папке с программой.
Может компонент какой подключать надо?Типа Microsoft CommonDialog

Хакер
Телепат
Телепат
Аватара пользователя
 
Сообщения: 16478
Зарегистрирован: 13.11.2005 (Вс) 2:43
Откуда: Казахстан, Петропавловск

Re: Серфинг сайтов в компоненте webbrowser

Сообщение Хакер » 14.05.2009 (Чт) 15:17

Что там делают скобки?
—We separate their smiling faces from the rest of their body, Captain.
—That's right! We decapitate them.

theal
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 148
Зарегистрирован: 03.05.2009 (Вс) 16:12

Re: Серфинг сайтов в компоненте webbrowser

Сообщение theal » 14.05.2009 (Чт) 15:25

Хакер писал(а):Что там делают скобки?

Я пробовал и без скобок результат тот-же File not found Может нужна какая то Library?

dr.MIG
Гуру
Гуру
Аватара пользователя
 
Сообщения: 1441
Зарегистрирован: 18.12.2004 (Сб) 9:53
Откуда: г.Ярославль

Re: Серфинг сайтов в компоненте webbrowser

Сообщение dr.MIG » 14.05.2009 (Чт) 15:37

Это значит, что текущая директория не та, в которой находится твой файл.
Указывай полный путь, используя App.Path. И для общего развития почитай про функцию ChDir.
Salus populi suprema lex

theal
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 148
Зарегистрирован: 03.05.2009 (Вс) 16:12

Re: Серфинг сайтов в компоненте webbrowser

Сообщение theal » 14.05.2009 (Чт) 15:57

dr.MIG писал(а):Это значит, что текущая директория не та, в которой находится твой файл.
Указывай полный путь, используя App.Path. И для общего развития почитай про функцию ChDir.


Разве в одной папке файл не должен быть?Файлы находятся в Мои Документы

dr.MIG
Гуру
Гуру
Аватара пользователя
 
Сообщения: 1441
Зарегистрирован: 18.12.2004 (Сб) 9:53
Откуда: г.Ярославль

Re: Серфинг сайтов в компоненте webbrowser

Сообщение dr.MIG » 14.05.2009 (Чт) 16:09

OMG.
Положи файл в папку с твоей программой и напиши Open App.Path & "\baza.txt" For Input As #MyFile
Salus populi suprema lex

theal
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 148
Зарегистрирован: 03.05.2009 (Вс) 16:12

Re: Серфинг сайтов в компоненте webbrowser

Сообщение theal » 14.05.2009 (Чт) 16:12

dr.MIG писал(а):OMG.
Положи файл в папку с твоей программой и напиши Open App.Path & "\baza.txt" For Input As #MyFile

только что так и делал но без изменений(всё то же)ССори...Я расширение в названии вписывал baza.txt а надо было просто baza Всё сработало--только рунтайм -1 выдаёт
Последний раз редактировалось theal 14.05.2009 (Чт) 16:16, всего редактировалось 1 раз.

DeMONiZ
Продвинутый пользователь
Продвинутый пользователь
Аватара пользователя
 
Сообщения: 162
Зарегистрирован: 03.01.2009 (Сб) 18:32

Re: Серфинг сайтов в компоненте webbrowser

Сообщение DeMONiZ » 14.05.2009 (Чт) 16:13

Тебе дело советуют смени путь! Когда компилировал я стриал его! Сделай к примеру так С:\baza.txt
Неужели и такую ерунду нужно объяснять!

theal
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 148
Зарегистрирован: 03.05.2009 (Вс) 16:12

Re: Серфинг сайтов в компоненте webbrowser

Сообщение theal » 14.05.2009 (Чт) 16:19

DeMONiZ писал(а):Тебе дело советуют смени путь! Когда компилировал я стриал его! Сделай к примеру так С:\baza.txt
Неужели и такую ерунду нужно объяснять!

Всё заработало но выдаёт ошибку automation error а скомпилированная программа выдаёт runtime error 13 Несоответствие типа

DeMONiZ
Продвинутый пользователь
Продвинутый пользователь
Аватара пользователя
 
Сообщения: 162
Зарегистрирован: 03.01.2009 (Сб) 18:32

Re: Серфинг сайтов в компоненте webbrowser

Сообщение DeMONiZ » 14.05.2009 (Чт) 16:45

Боже мой я больше не буду отвечать на твои вопросы ты не хочешь разобраться в коде сам и все понять найти и устранить код писать за тебя не будет ни кто, ты после каждой ошибки бежишь на форум ведь есть и гугл для начала а уж если не найдешь то приходи!

dr.MIG
Гуру
Гуру
Аватара пользователя
 
Сообщения: 1441
Зарегистрирован: 18.12.2004 (Сб) 9:53
Откуда: г.Ярославль

Re: Серфинг сайтов в компоненте webbrowser

Сообщение dr.MIG » 14.05.2009 (Чт) 16:47

А, так если все заработало, только сообщения выскакивают, так расставь во всех процедурах первой строчкой On Error Resume Next и не будет этих сообщений :lol: .
Salus populi suprema lex

theal
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 148
Зарегистрирован: 03.05.2009 (Вс) 16:12

Re: Серфинг сайтов в компоненте webbrowser

Сообщение theal » 14.05.2009 (Чт) 16:48

dr.MIG писал(а):А, так если все заработало, только сообщения выскакивают, так расставь во всех процедурах первой строчкой On Error Resume Next и не будет этих сообщений :lol: .


Спасибо

theal
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 148
Зарегистрирован: 03.05.2009 (Вс) 16:12

Re: Серфинг сайтов в компоненте webbrowser

Сообщение theal » 15.05.2009 (Пт) 0:23

Ещё один вопрос....текст файл базы возможно заменить страницой сайта??на сервере.Или считать с текст файла находящегося на сайте

BION
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 259
Зарегистрирован: 24.01.2005 (Пн) 21:05

Re: Серфинг сайтов в компоненте webbrowser

Сообщение BION » 15.05.2009 (Пт) 0:48

theal писал(а):Ещё один вопрос....текст файл базы возможно заменить страницой сайта??на сервере.Или считать с текст файла находящегося на сайте


Ппц, ну и вопрос... Че надо то? И вообще, ты хоть раз попробуй сам найти ответы.
Хотя трудно предсказать характер ответов, на такие то вопросы :|
Буээ!

dr.MIG
Гуру
Гуру
Аватара пользователя
 
Сообщения: 1441
Зарегистрирован: 18.12.2004 (Сб) 9:53
Откуда: г.Ярославль

Re: Серфинг сайтов в компоненте webbrowser

Сообщение dr.MIG » 15.05.2009 (Пт) 9:42

Считать с текст файла, находящегося на сайте можно (если этот текст файл доступен нам для чтения). Для этого текст файл надо скачать себе на компьютер (см. функцию URLDownloadToFile), а затем прочитать (см. код чтения файла, который у тебя уже есть).
Salus populi suprema lex

ala-x
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 143
Зарегистрирован: 16.05.2009 (Сб) 16:03

Re: Серфинг сайтов в компоненте webbrowser

Сообщение ala-x » 11.12.2009 (Пт) 20:55

Подскажите пожалуйста вот код вы дали который считывает построчно до строки end и возвращается на первую запись.
Код: Выделить всё
Dim d As Integer
Private Sub Command1_Click()
10
Dim MyFile 'Объявляем переменную для свободного файла
Dim i As Integer 'Переменная для цикла
Dim tS As String 'Переменная для считывания строк
Dim S As String 'Переменная для хранения окончательных данных
Dim j As Long, cur As Long
Dim intSecond As Long
Dim intDelay As Integer

d = d + 1
MyFile = FreeFile ' Присваиваем свободный канал, для работы с файлами
Open ("baza.txt") For Input As #MyFile 'Открываем файл TEST.TXT для чтения
For i = 1 To d
Line Input #MyFile, tS 'Читаем файл TEST.TXT построчно
If i >= d Then S = tS 'Если пятая строка, то запоминаем ее в переменную S
Next i
Close #MyFile 'Закрываем файл
Label2.Caption = S

If S = "end" Then
d = 0
GoTo 10

End If




    Randomize
    WebBrowser1.Navigate S

    While WebBrowser1.ReadyState <> READYSTATE_COMPLETE
        DoEvents
    Wend
   

x = Text1.Text

   
   
intDelay = x
intSecond = Timer
Do While Timer < intSecond + intDelay
DoEvents
Text2 = Int((intSecond + intDelay) - Timer) & " сек."
Loop
j = 0
     GoTo 10
     
End Sub

Вопрос такой.Как начать со второй строчки читать и после end возвращаться опять же на 2-ю строку.Крутил и так и сяк но чёто не получилось..Может поможете..?
Если заменит d=d+1 на d=d+2 переход после end на начало не происходит

awl100Alex
Постоялец
Постоялец
 
Сообщения: 355
Зарегистрирован: 29.01.2008 (Вт) 15:19
Откуда: Украина

Re: Серфинг сайтов в компоненте webbrowser

Сообщение awl100Alex » 12.12.2009 (Сб) 1:22

theal
Мне кажется, так... будет гораздо проще, рациональней и удобней во всех отношениях.
Вложения
surf.rar
Серфинг сайтов...
(1.49 Кб) Скачиваний: 71


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: AhrefsBot, Mail.ru [бот], Yandex-бот и гости: 20

    TopList  
cron