Navegador especial III

¿Recordáis que queríamos hacer un nuevo navegador? Sí, lo íbamos a hacer en Visual Basic.

La primera mejora fue un visor de código HTML.

Ahora vamos hacerlo algo diferente a los navegadores actuales. Para afrontar un retohacking como los que plantean en elladodelmal.blogspot.com todo empieza por un análisis de frames HTML si los hubiera.

Además, de estar forma vamos a aprender a buscar texto dentro de un control de texto enriquecido (RichTextBox) en .NET.

Después de escribir el código HTML llamamos a la siguiente función:
pintar("FRAME", RichTextBox1.Text.ToString.Length)

El procedimiento "PINTAR" pintará de rojo las palabras "FRAME" que encuentre:

Private Sub pintar(ByVal palabra, ByVal longitud)
Dim i As Integer
Dim posicionAnterior As Integer
posicionAnterior = -1
RichTextBox1.SelectionStart = 0
RichTextBox1.SelectionLength = 0
For i = 0 To longitud - 1
If i = 0 Then
RichTextBox1.Find(palabra, 0, RichTextBoxFinds.WholeWord)
Else
RichTextBox1.Find(palabra, RichTextBox1.SelectionStart + 1, RichTextBoxFinds.WholeWord)
End If
If posicionAnterior = RichTextBox1.SelectionStart Then
Exit For
End If
RichTextBox1.SelectionFont = New Font("Courier New", 9, FontStyle.Regular)
RichTextBox1.SelectionColor = Color.Red
posicionAnterior = RichTextBox1.SelectionStart
Next
End Sub

Aquí el mismo código con identación:



El resultado si vamos al primer retohacking es el siguiente:


Saludos.