[VB.NET] Pagina di errore se indirizzo WebBrowser non è corretto

[StuxNet]

Salve a tutti !
Ho un problema con VB.NET: in pratica ho creato un piccolo browser; c'è una textBox, un bottone e il WebBrowser.
Nel button c'è un comando che dice al WebBrowser di andare nel percorso inserito nel TextBox ( WebBrowser1.Navigate(TextBox1.Text) ).

Ora però vorrei fare in modo che, se il percorso scritto nel TextBox è errato, mi fa visualizzare: http://127.0.0.1/error.html


Penso che ci vuole il comando If, ma come devo fare ?

Scusatemi ma sono praticamente nuovo in VB.NET

[dragon88]

Si, potresti controllare se esiste l'indirizzo desiderato tramite l'esecuzione del ping, e vedere se riceve risposta in questo modo:

IF My.Computer.Network.Ping(indirizzo) Then
   ' Codice da eseguire nel caso l'indirizzo risponde alla richiesta fatta.
Else
   ' Codice da eseguire nel caso l'indirizzo non risponde alla richiesta fatta.
End

P.S.: Ovviamente con questo condizione la pagina di errore si visualizzerà anche quando il sito, per altri motivi, non risponde o non è raggiungibile.

[StuxNet]

Quindi sarebbe:

If My.Computer.Network.Ping(TextBox1.Text) Then
    WebBrowser1.Navigate(TextBox1.Text)
Else
    WebBrowser1.Navigate("http://127.0.0.1/error.htm")
End If

Grazie adesso lo provo

[StuxNet]

Guarda io ho provato ma quando clicco sul bottone per andare all' indirizzo mi evidenzia il codice

My.Computer.Network.Ping(TextBox1.Text)

è mi da l' errore "PingException non è stata gestita | Eccezione durante una richiesta Ping"

Come mai ?

[dragon88]

A si, hai ragione, scusa, ti si verifica l'errore quando l'url immesso non esiste?

Infatti mi sono confuso scusa, non devi usare la condizione if, ma il blocco try e catch in questo modo:

Try
  My.Computer.Network.Ping(indirizzo)
  WebBrowser.Navigate(indirizzo)
Catch
  MsgBox("L'indirizzo non risponde");
End try

Questo funziona, anche perché lo utilizzo in quasi tutte le mie applicazione, ansi, scusa se prima mi sono confuso con il codice.

Ovviamente questo codice esegue il blocco try, se si genera un'eccezione nel ping ( prima riga del blocco try ) blocca l'esecuzione del blocco, eseguendo il contenuto del blocco catch.

[StuxNet]

Grazie ma adesso il problema è un'altro.
In qualsiasi sito vada mi da sempre la pagina di errore.
Ho provato ad andare su www.google.it,forum.html.it ed altri ma mi da sempre la pagina di errore, eppure questi siti sono visibili


ecco il codice

Try
     My.Computer.Network.Ping(TextBox1.Text)
     WebBrowser1.Navigate(TextBox1.Text)
Catch
      WebBrowser1.Navigate("http://127.0.0.1/error.htm")

Stò praticamente uscendo pazzo

[dragon88]

Non saprei che dirti, a me, come già detto lo stesso codice funziona, ho anche verificato un'altra volta e funziona tutto bene, hai provato a verificare che eccezione di viene stampata, in questo modo:

Try
   ...
Catch ex As Exception 
   MsgBox(ex.Message());
End Try

[ShaleN]

Guarda che credo che nella TextBox devi scrivere

http://www.miosito.com/

e non

www.miosito.com

[dragon88]

Potresti provare il consiglio suggerito qui sopra, ma a me sembra strano, anche perché a me quel codice funziona anche se scrivo l'url senza il protocollo ( http: )

[StuxNet]

Guardate io ho provato con è senza protocollo http:, ma l' errore è lo stesso.
Il fatto è che non da errori, semplicemente scrivendo il sito mi manda sempre alla pagina di errore http://127.0.0.1/error.htm , anche se il sito funziona ed è perfettamente visibile da altri browser