Zakázané stránky
Tvoříte-li uživatelský prohlížeč, můžete přidat podporu zakázaných stránek. Díky události BeforeNavigate2 můžete prověřit adresu, zda je přístupná či zakázaná. Seznam zakázaných adres si jistě dokážete vytvořit sami.
Zde je ukázka kódu, který nepovolí uživateli navštívit stránky playboy.com:
Private Sub
WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, _
URL As Variant, Flags As Variant, TargetFrameName As Variant, _
PostData As Variant, Headers As Variant, Cancel As Boolean)
If InStr(1, URL, "playboy.com") Then
Cancel = True
MsgBox "Tyto stránky jsou
zakázány!"
End If
End Sub
Kód pracuje na základě testování zaslané URL. Pokud adresa obsahuje řetězec 'playboy.com', pak je akce přerušena a je zobrazena hláška. Pokud je ale vše v pořádku, je akce povolena.
Události BeforeNavigate a BeforeNavigate2 pracují téměř shodně, ale uživatelé Visual Basicu 6 mají k dispozici pouze událost BeforeNavigate2, zatímco uživatelé Visual Basicu 5 mohou použít obě. Pro více informací se podívejte do helpu.