Buen día mis amigos expertos, gusto en saludarlos.
Hace cierto tiempo conseguí automatizar ciertos procesos, gracias a un código que me encontré internet y adapté al mío.
Ahora necesito usar el mismo código en otra pc que es de 64 bits y no tengo idea como actualizar la declaración de Appi (no sé si llamarlo así es correcto).
Les dejo el código:
Agradezco la ayuda, de antemano.
Hace cierto tiempo conseguí automatizar ciertos procesos, gracias a un código que me encontré internet y adapté al mío.
Ahora necesito usar el mismo código en otra pc que es de 64 bits y no tengo idea como actualizar la declaración de Appi (no sé si llamarlo así es correcto).
Les dejo el código:
Código:
Private Declare Sub enviaTecla Lib "user32" Alias "keybd_event" ( _
ByVal tecla As Byte, ByVal monitor As Byte, _
ByVal estado As Long, ByVal extra As Long)
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'For 32 Bit Systems
Public Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Public 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)
Public Const MOUSEEVENTF_LEFTDOWN = &H2
Public Const MOUSEEVENTF_LEFTUP = &H4
Public Const MOUSEEVENTF_RIGHTDOWN As Long = &H8
Public Const MOUSEEVENTF_RIGHTUP As Long = &H10
Agradezco la ayuda, de antemano.