comp hacer una busqueda en el webbrowser

[asassa]

hola a todos, otra duda, como puedo hacer una busqueda en el webbrowser , digamos que quiero buscar mi nombre "roberto", y digamos que como en ie es Ctrl + f (buscar) ¿como puedo buscar y hacer una comentario de que si se encontro esta la palabra dentro del navegador?

[cborrero]

Como saber si una palabra existe en una web page:
Private Sub Command1_Click()
Dim strfindword As String
strfindword = InputBox("Que Usted esta buscando?", "Buscar", "")
If WebPageContains(strfindword) = True Then
MsgBox "La Pagina contiene el texto buscado"
Else
MsgBox "La Pagina no contiene el texto buscado"
End If
End Sub
Private Function WebPageContains(ByVal s As String) As Boolean
Dim i As Long, EHTML
For i = 1 To WebBrowser1.Document.All.length
Set EHTML = _
WebBrowser1.Document.All.Item(i)


If Not (EHTML Is Nothing) Then
If InStr(1, EHTML.innerHTML, _
s, vbTextCompare) > 0 Then
WebPageContains = True
Exit Function
End If
End If
Next i
End Function
Private Sub Form_Load()
WebBrowser1.Navigate2 "aqui po la web que desea buscar"
End Sub

[asassa]

muchisimas gracias... te lo agradesco muucho,
Con respecto a esto ¿como le podria poner un contador y que el mensaje de salida me diga se encontraron 2 o mas palabras iguales...?

Gracias , nuevamente

[asassa]

este script me lo pasaron en una pregunta anterior , pero me topo con problemas el momento de implementarlo, por que solo busca texto plano o no se como explicarlo..
Yo intente hacer una busqueda dentro de mi cuenta de hotmail pero no la hace la busqueda o simplemente nolo encuantra....por ejemplo dentro de mi hotmail hay un mensaje que dice ...... ¡Hola, roberto!, pero si le doy click al boton para que lo busque no lo encuentra. ¿como se puede resolver este problema?

el codigo acontinuacion funciona muy bien para html basico ...no se si me entienda....gracias

Código PHP:

   
Private Sub Command1_Click() 
Dim strfindword As String 
strfindword = InputBox("Que Usted esta buscando?", "Buscar", "")  
If WebPageContains(strfindword) = True Then  
MsgBox "La Pagina contiene el texto buscado"  
Else 
MsgBox "La Pagina no contiene el texto buscado" 
End If 
End Sub 
Private Function WebPageContains(ByVal s As String) As Boolean 
Dim i As Long, EHTML 
For i = 1 To WebBrowser1.Document.All.length 
Set EHTML = _ 
WebBrowser1.Document.All.Item(i) 
 
 
If Not (EHTML Is Nothing) Then 
If InStr(1, EHTML.innerHTML, _ 
s, vbTextCompare) > 0 Then 
WebPageContains = True 
Exit Function 
End If 
End If 
Next i 
End Function 
Private Sub Form_Load() 
WebBrowser1.Navigate2 "aqui po la web que desea buscar" 
End Sub  
   

[David]

Temas combinados.

Por favor, no abra más de un tema sobre el mismo asunto.