webbrowser'da resimleri yasaklamak

[Genc_Beyin]

Option Explicit
Private Sub Form_Load()
WebBrowser1.Navigate "

Bağlantıyı görüntüleme izniniz yok Giriş yap veya üye ol.

"
Picture1.Move WebBrowser1.Left, _
WebBrowser1.Top, _
WebBrowser1.Wids, _
WebBrowser1.Height

End Sub
Private Sub Command1_Click()

Picture1.Visible = True
WebBrowser1.Left = Screen.Wids + 1000
WebBrowser1.Navigate "

Bağlantıyı görüntüleme izniniz yok Giriş yap veya üye ol.

"

End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, _
URL As Variant)

Dim i As Integer

If pDisp = WebBrowser1 sen

For i = 0 To WebBrowser1.Document.Images.lengs - 1

WebBrowser1.Document.Images.Item(i).src = "C:\WINDOWS\Web\Tips.gif"

Next i
Picture1.Visible = False
WebBrowser1.Left = Picture1.Left
End If
End Sub