How to create the Left/Right MouseDown And MouseUp click event of Global type(Anywhere from Windows with API)

Question

How to create the Left/Right MouseDown And MouseUp click event of Global type(Anywhere from Windows with API)

Mansour_Dalir 2,036

hi .Require mouse events via API functions

Accepted answer

0 additional answers

Your answer

Answer 1

KOZ6.0 6,735

This is a program I wrote before.

https://gist.github.com/KOZ60/c524125e4f6831a091654b7116fd1bbb

Use the component by pasting it on the form.

Mansour_Dalir 2,036

hi @KOZ6.0

From the combination of these two solutions(This And Previous Question), I want the event Keyboard (Ctrl+C) to be performed when the mouse is clicked up and the symbol is the desired symbol.

I used this code. If there is a better way. Thanks

    Public Declare Sub keybd_event Lib user32 (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

 Private Sub MouseHook_MouseUp(sender As Object, e As MouseEventArgs) Handles MouseHook.MouseUp
        Dim info As New CURSORINFO
        If GetCursorInfo(info) Then
            Me.Text = info.hCursor
            If info.hCursor = &H430B71 Then
                keybd_event(162, 0, 0, 0) 'Ctrl
                Threading.Thread.Sleep(1)
                keybd_event(67, 0, 0, 0) 'c
                Threading.Thread.Sleep(1)
                keybd_event(67, 0, 2, 0) 'c
                Threading.Thread.Sleep(1)
                keybd_event(162, 0, 2, 0) 'Ctrl
                Application.DoEvents()
           End If
        Else
            Throw New Win32Exception()
        End If
    End Sub

KOZ6.0 6,735 Reputation points

2024-05-19T06:08:50.09+00:00

If info.hCursor = &H430B71 Then

Is it a user-defined cursor? Won't it be a different value if I restart the application? I think it would be better to consider another method, such as looking at the window class of the window obtained with GetForegroundWindow.

Share via

How to create the Left/Right MouseDown And MouseUp click event of Global type(Anywhere from Windows with API)

0 additional answers

Your answer