[VB.Net] Eigene Fehler Seite im Browser

04/22/2012 09:57 Jay Niize#1
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 :


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.ObjectByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgsHandles 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
04/22/2012 11:51 P00w#2
Ich brauch es selber zwar nicht
aber echt nice!