Originariamente inviato da andrew4
non l'ho modificato, cavolo, come aveva detto chi l'ha scritto non l'aveva testato eprcio potrebbe dare problemi e li da.
Ecco il codice:
Private Sub Form_Load()
adHook1.SetSubClass WebBrowser1.hWnd
End Sub
'disattivo il subclass alla chiusura del form
Private Sub Form_Unload(Cancel As Integer)
adHook1.UnSubClass
End Sub
'routine di intercettazione messaggi
Private Sub adHook1_BeforeMessage(hWnd As Long, wMsg As ad_Hook13.EWindowMessages, wParam As Long, lParam As Long, Handled As Boolean, WindowProcResult As Long)
Select Case wMsg
Case ad_Hook13.WM_LBUTTONDOWN
'azione sull'evento mousedown
Case ad_Hook13.WM_LBUTTONUP
'azione sull'evento mouseup
End Select
End Sub
I componenti:
commandi1
webbrowser1
adhook1