VB6, modtage mus-position og keybord-tryk når prog. er minimeret?

De 2 her kan det du vil:
http://vbhansen.dk/spm/505035/vbKeyboard.zip
http://vbhansen.dk/spm/538986/MouseHookPos.zip

hvor fedt, det virker bare ;)
takker

selv tak ;)

hmmmm ... selvom du har svaret på spørgsmålet vil jeg da lige høre, jeg fik jo lige den ide at det kunne være sjovt at tælle hvor mange gange man har trykket på musen, så kender du til noget hvor man kan se hvilke knapper der trykkes på ?

sådan..


' Left mouse button
Private Const WM_LBUTTONDBLCLK As Long = &H203
Private Const WM_LBUTTONUP    As Long = &H202
Private Const WM_LBUTTONDOWN  As Long = &H201

' Midt mouse button
Private Const WM_MBUTTONDBLCLK As Long = &H209
Private Const WM_MBUTTONDOWN  As Long = &H207
Private Const WM_MBUTTONUP    As Long = &H208

' Right mouse button
Private Const WM_RBUTTONDBLCLK As Long = &H206
Private Const WM_RBUTTONDOWN  As Long = &H204
Private Const WM_RBUTTONUP    As Long = &H205

Private Function LowLevelMouseProc(...) As Long
If nCode = HC_ACTION Then
    Select Case wParam
          Case WM_MOUSEMOVE
            Dim MHook As MSLLHOOKSTRUCT
            Call CopyMemory(MHook, ByVal lParam, Len(MHook))
            Call m_objForm.API_MouseMove(MHook.pt.X, MHook.pt.Y)
          Case WM_LBUTTONUP
            ' din kode her..
          Case WM_MBUTTONUP
            ' din kode her..
          Case WM_RBUTTONUP
            ' din kode her..
    End Select
End If
LowLevelMouseProc = CallNextHookEx(...)
End Function

ahh, endnu en gang, tusinde tak, du kan bare det  der :)

ha ha selv tak ;)