Поиск слов в 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д