Attribute VB_Name = "Module5"
'Modulo per far muovere il cursore del mouse nel form frmPartScreen
'Dichiarazione costanti per la pressione dei tasti del mouse
Public Const MOUSEEVENTF_LEFTDOWN = &H2
Public Const MOUSEEVENTF_LEFTUP = &H4
Public Const MOUSEEVENTF_RIGHTDOWN = &H8
Public Const MOUSEEVENTF_RIGHTUP = &H10
'Dichiarazione Sub per attivare le costanti sovrascritte
Public 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)
'Dichiarazione di una funzione per rilevare i tasti premuti
Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
'Dichiarazione di una funzione per spostare il cursore
Public Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
'Dichiarazione di un tipo necessario per individuare il mouse e muoverlo
Public Type POINTAPI
X As Long
Y As Long
End Type
'Funzione booleana che permette di capire se la freccia direzionale superiore è premuto o meno
Public Function UpPrem() As Boolean
UpPrem = CBool(GetAsyncKeyState(vbKeyUp))
End Function
'Funzione booleana che permette di capire se la freccia direzionale inferiore è premuto o meno
Public Function DownPrem() As Boolean
DownPrem = CBool(GetAsyncKeyState(vbKeyDown))
End Function
'Funzione booleana che permette di capire se la freccia direzionale sinistra è premuto o meno
Public Function LeftPrem() As Boolean
LeftPrem = CBool(GetAsyncKeyState(vbKeyLeft))
End Function
'Funzione booleana che permette di capire se la freccia direzionale destra è premuto o meno
Public Function RightPrem() As Boolean
RightPrem = CBool(GetAsyncKeyState(vbKeyRight))
End Function