Поиск слов в WebBrowser - VB

Узнай цену своей работы

Формулировка задачи:

Пишу одну прогу,чтото вроде бота для браузерной игры.Нажатия клавиш мышы я эмулировал с помощью
теперь нужно выполнить поиск текста на веб странице(поиск цыфр в значении от 1000 к 1500)и если значение найдено,тогда нажатие в этом месте,если нет - обновить. Итак вопрос - как выполнить поиск символов,и в этом же месте и сделать клик?

Решение задачи: «Поиск слов в WebBrowser»

textual
Листинг программы
Option Compare Text
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
 
Private Sub F_Load()
Dim s, ss$, s1$, i&
s1 = Environ("temp") & "\11.txt"
URLDownloadToFile 0, "http://gnevbogov.ru/arena/solo", s1, 0, 0
ss="span class="hp"""
Open s1 For Input As #1
 While Not EOF(1)
 Line Input #1, s
If s Like ss Then
Debug.Print s
 ' Здесь функцией  Split    выделяете число
  End If  
 Wend
Close #1
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

7   голосов , оценка 4 из 5