Autoshot en VB 6.0

[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

[Xuxero xD .]

Entiendo Lo que Tratas de hacer xD ! .. " Gunz Online "

Aqui Te Dejo El Source Del AutoShot : http://www.megaupload.com/?d=R5HLBQJP


Si Te Puedo Ayudar EN Algo Mi Msn Es : Xuxero@live.com