[VB.Net] Eigene Fehler Seite im Browser

[Jay Niize]

Hallo Leute,

heute möchte ich euch erklären, wie ihr eure eigene Error-Seite in eurem eigenen Browser erstellen könnt. Die einen oder anderen werden es schon kennen, jedoch bezweifle ich das blutige Anfänger das auch wissen. Fangen wir nun an...!

Der Standardbrowser in eurer VB-Toolbox ist der, vom IE. Falls dort eine Domain nicht aufgelöst werden kann, wird normalerweise folgendes Bild angezeigt, nachdem auf res://ieframe.dll/navcancl verweist wurde :

 Spoiler

Nun wollen wir, dass wen die URL im Browser res://ieframe.dll/navcancl ist, dass wir eine andere Seite anzeigen. Also wenn die Fehler-URL aufgerufen wird, soll unser Browser das Arbeiten einstellen. Das regeln wir so :

PHP Code:

If e.Url.AbsoluteUri = "res://ieframe.dll/navcancl" Then //Falls URL da ist
    WebBrowser1.Stop() // soll der Vorgang abgebrochen werden
End If 


In diesem Fall ist e ein WebBrowserDocumentCompletedEventArgs

Nun brauchen wir noch eine eigene Fehlerseite. Diese soll aus HTML-Code bestehen & in einem String gespeichert werden.

PHP Code:

Dim Fehlerseite As New String //  String festlegen (mit Namen Fehlerseite)
Fehlerseite = "<center><b>Die angefordete URL konnte nicht aufgelöst werden, lol. </b></center>" // HTML-Code zuweisen 


Nun ist alles fertig, man muss es nur noch aufrufen. Dafür kann man dann folgenden Code verwenden :

PHP Code:

Webbrowser1.Navigate (Fehlerseite) 


Man könnte klar alles sauberer programmieren und in eine Funktion packen, aber dieser Code sieht für die Anfänger "leichter" aus. Hier nochmal der ganze Code in der Übersicht :

PHP Code:

Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
If e.Url.AbsoluteUri = "res://ieframe.dll/navcancl" Then //Falls URL da ist
    WebBrowser1.Stop() // soll der Vorgang abgebrochen werden
    Dim Fehlerseite As New String //  String festlegen (mit Namen Fehlerseite)
    Fehlerseite = "<center><b>Die angefordete URL konnte nicht aufgelöst             werden, lol. </b></center>" // HTML-Code zuweisen
    Webbrowser1.Navigate (Fehlerseite)
End If
End Sub 


~Greetings

[P00w]

Ich brauch es selber zwar nicht
aber echt nice!