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

[theal]

Создана 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]

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

[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 то сайты сначала

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

[BION]

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

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

[theal]

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

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


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

[Хакер]

Что там делают скобки?

[theal]

Что там делают скобки?

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

[dr.MIG]

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

[theal]

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

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

[dr.MIG]

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

[theal]

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

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

[DeMONiZ]

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

[theal]

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

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

[DeMONiZ]

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

[dr.MIG]

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

[theal]

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

Спасибо

[theal]

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

[BION]

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

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

[dr.MIG]

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

[ala-x]

Подскажите пожалуйста вот код вы дали который считывает построчно до строки 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]

theal
Мне кажется, так... будет гораздо проще, рациональней и удобней во всех отношениях.