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