EXISTE ALGUM GEITO DE REMOVER ADS(ANUNCIOS)
ola galera existe algum geito de remover anuncios do Web Browser(Visual Basic) , é que estou fazendo um programa de TV Streaming online dai fica aparecendo aquelas propagandas chatas e com Virus
Teoricamente existe varias formas, mas para resolver e via Javascript, nao via vb.
Voce pode usar css e fazer com que o estilo do ADS seja setado para hidden a partir do momento que a pagina esta carregada.
Voce pode usar css e fazer com que o estilo do ADS seja setado para hidden a partir do momento que a pagina esta carregada.
Uso aqui dois métodos para cortar parte do problema
1- WebBrowser1.Silent = True [ô]desabilita avisos de javascript
2-
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(URL, [Ô]http://www.SiteBloqueado.com[Ô]) > 0 Then
Cancel = True [ô] bloqueia sites de anuncios
End If
End Sub
Pode colocar um domÃnio único e cancelar o resto
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(URL, [Ô]http://www.SiteLiberado.com[Ô]) = 0 Then
Cancel = True [ô] bloqueia outros sites
End If
End Sub
1- WebBrowser1.Silent = True [ô]desabilita avisos de javascript
2-
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(URL, [Ô]http://www.SiteBloqueado.com[Ô]) > 0 Then
Cancel = True [ô] bloqueia sites de anuncios
End If
End Sub
Pode colocar um domÃnio único e cancelar o resto
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(URL, [Ô]http://www.SiteLiberado.com[Ô]) = 0 Then
Cancel = True [ô] bloqueia outros sites
End If
End Sub
Faça seu login para responder