Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPublic
Declare
FunctionGetCursorPos Lib <var>"User32"</var> (lpPoint As POINTAPI) As Long
Private
Declare
FunctionGetAsyncKeyState Lib <var>"User32"</var> (ByVal uAction As Long) As Long
Public
TypePOINTAPI
End
Type</li><li>
PublicRet As Long
PublicPos As POINTAPI
Functionmouse_x()
CStr(Pos.x)
End
Function</li><li></li><li>
Functionmouse_y()
CStr(Pos.y)
End
Function</li><li></li><li>
FunctionLeftButton() As Boolean
End
Function</li><li></li><li>
FunctionRightButton() As Boolean
End
Function