mouseclicks and webbrowser control

[code-elf]

Hello,

I'm doing a little project in which I have to monitor behaviour of users, when they are browsing through a nuber of (offline) webpages. I thought I could use the MS webbrowser control, for its ease of use. But it seems that this control is not able to catch mouseclicks or keypresses.
Has anyone a solution on how to monitor this?

Thanks,

Leon

Use the GetAsyncKeyState API function.

Declare Function GetAsyncKeyState Lib "user32.dll" _
(ByVal vKey As Long) As Integer

Private Sub Timer1_Timer()
'Keypresses:
If GetAsyncKeyState(vbKeyA) Then Msgbox "A"
If GetAsyncKeyState(vbKeyB) Then Msgbox "B"
If GetAsyncKeyState(vbKeyC) Then Msgbox "C"
'.....
'Or catch any:
'Dim iKey As Integer
'For iKey = 3 to 255
'Print iKey
'Next iKey
'And for the mouse clicks:
If GetAsyncKeyState(vbLeftButton) Then Msgbox "Left"
If GetAsyncKeyState(vbMiddleButton) Then Msgbox "Middle"
If GetAsyncKeyState(vbRightButton) Then Msgbox "Right"
End Sub

[code-elf]

Thanks,

Altough it shall not win a price for beauty (I dislike the use of timers). But apart from that it looks easy and straightforward.

Leon