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.