How to realize the mobile mouse background

The mouse background mobile what function, like the wizard button comes with the plug-in, or 361 BGKM6.dll plugin

Started by Arno at February 07, 2016 - 1:55 PM

Look, have a look which function

Posted by Kerr at February 14, 2016 - 2:22 PM

Send a message.

Posted by Oliver at February 17, 2016 - 2:25 PM

Refer to the AutoHotKey source code

Posted by Ingemar at February 19, 2016 - 2:59 PM

Using the Mouse_event, I also use this to the movement of the mouse and various single double-click event
Private Declare Sub mouse_event Lib "user32 " (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)


After you call

Posted by Antonio at March 01, 2016 - 3:33 PM

If mouse_event then the mouse is moving. So instead of the background.

Posted by Antony at March 05, 2016 - 3:48 PM

Using Mouse_event

Posted by Parker at March 12, 2016 - 3:58 PM


Posted by Theobald at March 13, 2016 - 4:46 PM

Use SetCursorPos to set the location of the mouse, mouse_event mouse event is triggered, not set the mouse position, and can't move the mouse. See:
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long

'Example Name:Move Cursor
'This project needs 2 Buttons
Private Type POINTAPI
x As Long
y As Long
End Type
Private Declare Function ClientToScreen Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long

Private Sub Form_Load()
'KPD-Team 1998

Command1.Caption = "Screen Middle"
Command2.Caption = "Form Middle"
'API uses pixels
Me.ScaleMode = vbPixels
End Sub
Private Sub Command1_Click()
'Get information about the screen's width
P.x = GetDeviceCaps(Form1.hdc, 8) / 2
'Get information about the screen's height
P.y = GetDeviceCaps(Form1.hdc, 10) / 2
'Set the mouse cursor to the middle of the screen
ret& = SetCursorPos(P.x, P.y)
End Sub
Private Sub Command2_Click()
P.x = 0
P.y = 0
'Get information about the form's left and top
ret& = ClientToScreen&(Form1.hwnd, P)
P.x = P.x + Me.ScaleWidth / 2
P.y = P.y + Me.ScaleHeight / 2
'Set the cursor to the middle of the form
ret& = SetCursorPos&(P.x, P.y)
End Sub

Posted by Kennedy at March 20, 2016 - 5:09 PM

Who helped to these constants to add some comments? And how to call? Thank you very much.

Posted by Kennedy at January 03, 2017 - 12:47 PM

The perfect solution for all mouse_event or SendMessage.

Posted by Edward at January 09, 2017 - 1:25 PM

How to realize the mobile mouse background, I could do it, need not,QQ1085992075

Posted by Nicholas at January 10, 2017 - 12:06 PM