Autor
Hago este post para pedirles ayuda a programar un autoshot, consiste en que cuando el Crosshair (Retícula) se coloque rojo, se realize un disparo automáticamente. Tómando en cuenta que el Crosshair siempre se mantiene en el centro.
Este es un source que estuve haciendo yo mismo
Citar
'Declaración del Api keybd_event
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, _
ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
'Constantes
Const MOUSELEFTDOWN = &H2
Const MOUSELEFTUP = &H4
Private Sub Command1_Click()
Call keybd_event(MOUSELEFTDOWN, 0, 0, 0)
Call keybd_event(77, 0, 0, 0)
Call keybd_event(MOUSELEFTUP, 0, 0, 0)
End Sub
Private Sub Form_Load()
Command1.Caption = "Activar Autoshot"
End Sub
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, _
ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
'Constantes
Const MOUSELEFTDOWN = &H2
Const MOUSELEFTUP = &H4
Private Sub Command1_Click()
Call keybd_event(MOUSELEFTDOWN, 0, 0, 0)
Call keybd_event(77, 0, 0, 0)
Call keybd_event(MOUSELEFTUP, 0, 0, 0)
End Sub
Private Sub Form_Load()
Command1.Caption = "Activar Autoshot"
End Sub
Me falta agregar la función If, indicar el color (No sé si es en RGB, Hex o cualquiera de éstos), y agregar los Desktop (Width/Height).
Si me pudieran ayudar, se los agradeceria mucho.
Att.- Emax14
En línea
