vb.net - net - webbrowser events

Busque en la web desde la barra de direcciones

Question

en mi WebBrowser tengo una barra de direcciones, por supuesto, pero solo puedo buscar URL en la barra de direcciones, como "facebook.com" y algo así. Quiero que mi campo de dirección pueda funcionar como un motor de búsqueda, así que cuando escribo como www.facebook.com voy a facebook.com y cuando busco como Facebook, sin www o .com o algo así, quiero mi barra de direcciones para redirigirme a https://www.google.se/?gws_rd=ssl#q=facebook si sabes a qué me refiero. ¡Gracias!

Answer 1

Puedes intentar usar esta función ::

Private Function CheckURL(ByVal UrlText As String)
Dim URL As New Uri(UrlText)
Dim Req As System.Net.WebRequest
Req = System.Net.WebRequest.Create(URL)
Dim Resp As System.Net.WebResponse
Try
Resp = Req.GetResponse()
Resp.Close()
Req = Nothing
Return True
Catch ex As Exception
Req = Nothing
Return False
End Try
End Function

Answer 2

Tal vez esta no sea la mejor manera, pero funciona.

Lo único que debe hacer es agregar más elementos a las matrices para hacerlo más perfecto. "Porque hay más posibles finales e inicios de url en la web"
Dim CheckArrStart ()
Dim CheckArrEnd ()

Haría una función para verificar para verificar la URL ingresada en la barra de direcciones.
Función privada CheckWebPageLink (ByVal Link As String) As Boolean

En esta función usaría 2 para cada bucle para verificar el inicio al final de la url.
Si encuentro un comienzo, le doy +1 a mi ok, "Dim Ok como Integer = 0" y lo elimino de la cadena.
Luego vaya al siguiente para cada ciclo para encontrar un final de url.
Entonces, si a encuentra un final + 1 a mi ok dim y también quito el final de la cadena. Lo hago porque quiero verificar cuánto tiempo está la cuerda al final, porque debe haber algo entre www. y .com

Luego, al final de mi función, compruebo si mi valor de atenuación tiene un valor de 2 y el tiempo que dura el enlace sin el inicio y el final.
Si es verdadero, devuelvo un booleano verdadero y si es falso, devuelvo un booleano falso.

Luego, en mi botón de navegación hago una declaración final if si el booblean de mi función es verdadero o falso. "Si CheckWebPageLink (ToolStripTextBox1.Text.ToLower) = True Then"
Si es verdadero solo navegue a la url y si es falso:
WebBrowser1.Navigate (" https://www.google.com/?gws_rd=ssl#q= " y ToolStripTextBox1.Text)

Como ya dije las matrices que aún necesita corregir, acabo de agregar algunas para probar.

Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
If CheckWebPageLink(ToolStripTextBox1.Text.ToLower) = True Then
WebBrowser1.Navigate(ToolStripTextBox1.Text)
Else
WebBrowser1.Navigate("https://www.google.com/?gws_rd=ssl#q=" & ToolStripTextBox1.Text)
End If
End Sub
Private Function CheckWebPageLink(ByVal Link As String) As Boolean
Dim CheckArrStart() As String = ({"http://www.", "https://www.", "www."})
Dim CheckArrEnd() As String = ({".se", ".nl", ".com", ".cu", ".tk"})
Dim Ok As Integer = 0
For Each LinkStart As String In CheckArrStart
If Link.Contains(LinkStart) Then
Link = Replace(Link, LinkStart, "")
Ok = Ok + 1
For Each LinkEnd As String In CheckArrEnd
If Link.Contains(LinkEnd) Then
Link = Replace(Link, LinkEnd, "")
Ok = Ok + 1
Exit For
End If
Next
Exit For
End If
Next
If Ok = 2 And Link.Count > 2 Then
Return True
Else
Return False
End If
End Function