bajar la mira en counter strike... anti recoil API de Windows

[ledesma90]

buenas tardes a todos, estoy de vuelta... , mi pregunta es la siguiente, quiero configurar mi boton espacio, para que cuando lo apreté siga un patron (mientras se mantenga presionado el boton espacio quiero se accione el espacio en lapsos de tiempos), con que lenguaje es se puede hacer eso?
muchas gracias por leer esto, que tengas un lindo dia

[Alex Rodríguez]

No entiendo del todo que quieres hacer, si por ejemplo es que cada diez segundos se muestre un mensaje que diga "Está manteniendo pulsada la tecla de espacio" si quieres hacerlo dentro de un programa lo puedes hacer con diferentes lenguajes como Visual Basic, Java, etc.

[ledesma90]

hola Alex  ,  ejemplo: (Counter strike1.6), se salta con el botón espacio y quiero poder mantenerlo apretado y que se accione en lapsos de tiempos(10 segundo).
pregunto esto porque la otra vez descargue un programita que cuando apretaba el click derecho de mi mouse se bajaba la mira.
pregunto esto solo para aprender me parece muy interesante que con un programa en el fondo tenga variaciones en otro programa.
gracias Alex por responder...

[ledesma90]

por ejemplo el .exe que tengo del programa mencionado anteriormente lo tengo en este link:
https://mega.co.nz/#!9tJWHD6D!UePUOjaGDHC3234nA3JndSn1Fm4s864XvVuD_Ch8UW4

quisiera saber con que lenguaje puedo hacer un programa como este



este programa lo que hace es que cuando aprietas "F6" al momento de apretar el click del mouse el cursor del mouse se baja

[Alex Rodríguez]

El antivirus me bloquea la descarga de ese fichero. Si lo que quieres es hacer un juego donde manteniendo apretado el botón espacio cada 10 segundos se produzca un disparo, un salto o similar, puedes hacerlo en java, pero hacer un juego es complejo y requiere bastantes conocimientos y tiempo.

[ledesma90]

creo no quedo bien mi idea  , me gustaría probar un ultima vez alex, gracias por tu infinita paciencia, y responder siempre
http://www.youtube.com/watch?v=eh2mcnJGZXc&feature=youtu.be

Dejo un vídeo que subí a youtube, con intención de poder explicar mejor lo que quisiera hacer, yo no quiero hacer un juego, me basta con saber como hacer un programa muy parecido al que esta en el vídeo

[Alex Rodríguez]

Eso de bajar la mira en counter strike... anti recoil. He estado viendo algo y hay varias maneras de hacerlo. Aquí por ejemplo presentan un código en Visual Basic: http://www.rohitab.com/discuss/topic/16390-new-cs-anti-recoil/

Pero realmente lo que están haciendo es interaccionar con el API de Windows, es decir, interaccionar con el sistema operativo. Para ello se pueden usar diferentes lenguajes además de Visual Basic, por ejemplo C++. Aquí también comentan algo: http://www.mpcforum.com/showthread.php?17374-Building-anti-recoil-discussion-and-source-code

Código: [Seleccionar]

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Const VK_LBUTTON = &H1
Private Const VK_PGDN = &H22
Private Const VK_PGUP = &H21
Private Const VK_END = &H23
Private Const VK_HOME = &H24
Private Const VK_PLUS = &HBB
Private Const VK_MINUS = &HBD
 
Private Type POINTAPI
X As Long
Y As Long
End Type
Dim Coil As POINTAPI
Dim EX As Long
Dim WHY As Long
Dim Pixel As String

Sub CoilMinus()
Dim Speed
Speed = Timer1.Interval
Speed = Speed - 1
If Speed = 0 Then
Speed = 1
End If
Timer1.Interval = Speed
Label1.Caption = " Recoil Speed:" & Speed
End Sub

Sub CoilPlus()
Dim Speed
Speed = Timer1.Interval
Speed = Speed + 1
If Speed = 101 Then
Speed = 100
End If
Timer1.Interval = Speed
Label1.Caption = " Recoil Speed:" & Speed
End Sub

Sub PixelPlus()
Pixel = Pixel + 1
If Pixel = 101 Then
Pixel = 100
End If
Label2.Caption = " Pixels:" & Pixel
End Sub

Sub PixelMinus()
Pixel = Pixel - 1
If Pixel = 0 Then
Pixel = 1
End If
Label2.Caption = " Pixels:" & Pixel
End Sub

Private Sub Mouse()
AntiRecoil = GetCursorPos(Coil)
EX = Coil.X
WHY = Coil.Y
Call SetCursorPos(EX, WHY + Pixel)
End Sub

Private Sub Command1_Click()
Pixel = 1
Timer1.Enabled = True
Label1.Caption = " Recoil Speed:" & Timer1.Interval
Label2.Caption = " Pixels:" & Pixel
End Sub

Private Sub Form_Load()
Label1.Caption = " Recoil Speed:0"
Label2.Caption = " Pixels:" & 0
End Sub

Private Sub Timer1_Timer()
If GetAsyncKeyState(VK_HOME) = -32767 Then
Pixel = 1
Timer1.Enabled = True
Label1.Caption = " Recoil Speed:" & Timer1.Interval
Label2.Caption = " Pixels:" & Pixel
End If
If GetAsyncKeyState(VK_END) = -32767 Then
Pixel = 0
Timer1.Enabled = False
Label1.Caption = " Recoil Speed:" & "0"
Label2.Caption = " Pixels:" & "0"
End If
If GetAsyncKeyState(VK_LBUTTON) < 0 Then
Mouse
End If
If GetAsyncKeyState(VK_PLUS) = -32767 Then
PixelPlus
End If
If GetAsyncKeyState(VK_MINUS) = -32767 Then
PixelMinus
End If
If GetAsyncKeyState(VK_PGDN) = -32767 Then
CoilMinus
End If
If GetAsyncKeyState(VK_PGUP) = -32767 Then
CoilPlus
End If
End Sub

[ledesma90]

muchas gracias alex , espero ser un día tan pro como vos