Mensajes

@Elemental Code

Tu proyecto funciona a la perfección, el problema es que en el juego apenas la Retícula torna a rojo, en vez de hacer el Click, se desvia totalmente la mira, sabes a qué se debera?

Muchas gracias

Saludos cordiales,

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

'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

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

Saludos cordiales,

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

'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

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