Bonjour,

j'ai fait un petit navigateur sous visual basic express 2008, et j'ai essayé des fonction que j'ai trouvé dans des sources comme par exemple :


Private Sub WebBrowser1_NewWindow2(ByVal ppDisp As Object, ByVal Cancel As Boolean)

Cancel = True

End Sub

Mais ça ne fonctionne pas, lorsque j'essaye d'ouvrir une autre page, elle s'ouvre dans une nouvelle page internet au lieu d'être bloqué...

j'ai également essayé cela :
    Dim WithEvents maPageHtml As HtmlDocument



    Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, ByVal URL As Object)
        maPageHtml = WebBrowser1.Document
    End Sub

    Private Function maPageHtml_onclick() As Boolean
        MsgBox("test")
    End Function

    Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, _
    ByVal URL As Object, ByVal Flags As Object, ByVal TargetFrameName As Object, _
    ByVal PostData As Object, ByVal Headers As Object, ByVal Cancel As Boolean)
        maPageHtml = Nothing
    End Sub

en ajoutant bien la référence Microsoft HTML Object Library
mais j'ai beau cliqué sur la page ça ne me fait pas de textbox...

qui peux m'aider ? merci.

il te faut adapter le code, et non simplement copier coller...
y'a pas grand chose a faire, je pense, néanmoins.

Ok mais je vois pas comment adapté ?
un peu d'aide svp

ben tout simplement que tes procédures ne sont en rien rattachées aux evenement de ton controle...

VB2005=> J'ajoute un webbrowser, je double clique sur l'evenement Document Complete afin d'en générer du code, j'obtiens :

   Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted

    End Sub

là ou toi, tu as :

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, ByVal URL As Object)

End Sub

Ok, j'ai changé ça, j'ai donc mis :

Private

Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted

maPageHtml = WebBrowser1.Document

EndSub

 

Mais  il doit encore y avoir un truc qui ne va pas car ça ne fonctionne toujours pas

Voila le tout :

PublicClass Form1

PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load

Dim page AsString

page =

[ Lien ]

WebBrowser1.Navigate(page)

EndSub

DimWithEvents maPageHtml As HtmlDocument

PrivateSub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted

maPageHtml = WebBrowser1.Document

EndSub

 

PrivateFunction maPageHtml_onclick() AsBoolean

MsgBox(

"test")

EndFunction

PrivateSub WebBrowser1_BeforeNavigate2(ByVal pDisp AsObject, _

ByVal URL AsObject, ByVal Flags AsObject, ByVal TargetFrameName AsObject, _

ByVal PostData AsObject, ByVal Headers AsObject, ByVal Cancel AsBoolean)

maPageHtml =

Nothing

EndSub

PrivateSub WebBrowser1_NewWindow2(ByVal ppDisp AsObject, ByVal Cancel AsBoolean)

Cancel =

True

EndSub

End

Class

Bon, j'ai trouvé un peu, il me manque juste un petit truc.
J'ai réussi a bloquer l'ouverture de popup. Maintenant j'aimerai bloqué l'action de click dans le webbrowser.
Voila mon code, et je sais pas du tout quoi mettre dans maPageHtml_Click

Public

Class Form1

Private Sub Form1_Load( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase .Load

Dim page As String

page = "google.fr"

WebBrowser1.Navigate(page)

End Sub

 

Dim WithEvents maPageHtml As HtmlDocument

Private Sub WebBrowser1_DocumentCompleted( ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted

maPageHtml = WebBrowser1.Document

End Sub

Private Sub maPageHtml_Click( ByVal sender As Object , ByVal e As System.Windows.Forms.HtmlElementEventArgs) Handles maPageHtml.Click

End Sub

Private Sub WebBrowser1_NewWindow( ByVal sender As Object , ByVal e As System.ComponentModel.CancelEventArgs) Handles WebBrowser1.NewWindow

e.Cancel =

True

End Sub

End

Class

MessageBox.Show "Test"

Bah non ça ne bloque pas les clics....
et je ne veux pas de message qui s'affiche :)
moi je veux juste annulé les clics sur les pages internet de mon webbrowser

suffit juste de renvoyer False, en VB6

à lire la documentation MSDN:
http://msdn.microsoft.com/fr-fr/library/system.windows.forms.htmlelementeventargs_members.aspx

e.ReturnValue = False

Ok, ça fonctionne sur les pages normal mais ça ne fonctionne pas sur les videos style youtube, on peut cliqué et mettre pause ou ouvrir le menu baisser le son etc...
comment faire pour empécher cela ?
merci.