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

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

Пишу одну прогу,чтото вроде бота для браузерной игры.Нажатия клавиш мышы я эмулировал с помощью

                    Листинг программы
                
 
                        
                          
                    
Dim z As POINTAPI
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Const MOUSEEVENTF_ABSOLUTE = &H8000
Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4
Const MOUSEEVENTF_MIDDLEDOWN = &H20
Const MOUSEEVENTF_MIDDLEUP = &H40
Const MOUSEEVENTF_MOVE = &H1
Const MOUSEEVENTF_RIGHTDOWN = &H8
Const MOUSEEVENTF_RIGHTUP = &H10
 
Private Sub Command1_Click()
GetCursorPos z 'получить текущее значение местоположения курсора
zx = (390) ' координаты курсора
zy = (110)
mouse_event MOUSEEVENTF_MOVE, zx, zy, 0&, 0& 'перемещение курсора
mouse_event MOUSEEVENTF_LEFTDOWN, 0&, 0&, 0&, 0& 'нажатие на левую клавишу мыши
mouse_event MOUSEEVENTF_LEFTUP, 0&, 0&, 0&, 0& 'отпускание левой клавиши мыши
End Sub

теперь нужно выполнить поиск текста на веб странице(поиск цыфр в значении от 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