empecher clic droit sur webrowser

Question

Bonjour,
Est il possible d'empecher le clic droit sur un webrowser, le but étant d'empecher la récup du code source?
Merci de vos réponses

lediablo · Answer

bonjour
oui c'est possible

1- dans une classe nommé "clsDoc" dans cet exemple tu copie ce code
Option Explicit
 
Public WithEvents hDoc As MSHTML.HTMLDocument
 
Private Function hDoc_oncontextmenu() As Boolean
    '"disable" the context menu
    hDoc_oncontextmenu = False
End Function

2- dans ta form ou il y a un webbrowser nommé webbrowser1 dans cet exemple:
Option Explicit
 
Dim colDocs As Collection
 
Private Sub Form_Load()
    Set colDocs = New Collection
    'browse to you favorite web site
    WebBrowser1.Navigate ("http://www.vbfrance.com/forum/sujet-EMPECHER-CLIC-DROIT-SUR-WEBROWSER_1493085.aspx";) 
End Sub
 
 
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)
     
    Dim cDoc As clsDoc
     
    'clean the collection, then re-instanciate
    Set colDocs = Nothing
    Set colDocs = New Collection
     
    'new instance of our document class referencing the current document
    Set cDoc = New clsDoc
    Set cDoc.hDoc = pDisp.Document
     
    'add it to the collection
    colDocs.Add cDoc
End Sub
 
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
     
    Dim cDoc As clsDoc
     
    'new instance of our document class referencing the new document
    Set cDoc = New clsDoc
    Set cDoc.hDoc = pDisp.Document
     
    'add it to the collection
    colDocs.Add cDoc
End Sub

Quand on pose une question on est con 5 minutes,Quand on ne la pose pas on le reste toute sa vie  (mon site)

cracos30 · Answer

Merci pour la réponse, mais j'ai oublié de préciser que je suis en vb6.

Molenn · Answer

C'est possible, mais ça n'a aucun intérêt à part embêter ton utilisateur. Il faut bien voir qu'un site web est forcément ouvert et qu'il est impossible de cacher son code source.

Ton utilisateur, il ouvre l'URL dans un autre navigateur et il le voit ton code source. Et même si ton URL n'est pas visible dans ton appli, il n'est pas bien difficile de la retrouver en sortie de l'appli.

http://www.alsacreations.com/astuce/lire/67-comment-empcher-la-copie-de-mes-images-ou-de-mon-code.html

Mon conseil : gagne du temps et épargne-toi ça si le seul but est d'empêcher la récupération du code source.

Molenn

lediablo · Answer

salut, tu as déjà précisé dans la catégorie que c'est du vb6
c'est un code vb6 que je vous ai donné 


Quand on pose une question on est con 5 minutes,Quand on ne la pose pas on le reste toute sa vie  (mon site)

cracos30 · Answer

Merci lediablo
Il n'y à qu'un peu plus de 15j que je me suis mis au vb6 et vbnet. Sur WithEvents hDoc As MSHTML.HTMLDocument, j'ai l'erreur "type defini par l'utilisateur non defini."

lediablo · Answer

salut
dans ton projet va dans "Projet" puis "références" puis coche "microsoft html objet library" puis valide


Quand on pose une question on est con 5 minutes,Quand on ne la pose pas on le reste toute sa vie  (mon site)

cracos30 · Answer

Super, CA MARCHE!

Heu..., sauf que le clic droit fonctionne toujours

lediablo · Answer

crée un nouveau projet, ajoute la référence émicrosoft html objet library" et le composant webbrowser (webbrowser1)
et met le code que je t'ai donnée (la classe doit être nommé "clsDoc"), le webbrowser doit être nommé "webbrowser1" 


Quand on pose une question on est con 5 minutes,Quand on ne la pose pas on le reste toute sa vie  (mon site)

cracos30 · Answer

Oui c'est bien ce que j'ai fait. Le clic droit fonctionne toujours

lediablo · Answer

un exemple ici 


Quand on pose une question on est con 5 minutes,Quand on ne la pose pas on le reste toute sa vie  (mon site)

Empecher clic droit sur webrowser

10 réponses

Votre réponse

Discussions similaires