bien cuando haces esto fisicamente es en 2 partes una sumes y la otra lo suelta este codigo lo hacia atomaticamente
Call sumirboton(17 + 49),me di cuenta que no era para tus necesidades
Y este
'sume ctrl
Call keybd_event(17, 0, 0, 0)
'sume 1
Call keybd_event(97, 0, 0, 0)
'suelta ctrl
Call keybd_event(17, 0, KEYEVENTF_KEYUP, 0)
'suelta 1
Call keybd_event(97, 0, KEYEVENTF_KEYUP, 0)
Tu codigo es correcto solo que se
ejecuta demasiado rapido otra cosa si lo usas con firefox la pantalla de firefox debe estar seleccionada ya que cuando ejecutas tu programa,el esta seleccionado lo que puedes hacer es agregarle un tiempo como el detonador de una bomba par que te de tiempo de pasarte a fire fox
__________________________________________________ _______________-
Option Explicit
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Const KEYEVENTF_KEYUP = &H2
Const KEYEVENTF_EXTENDEDKEY = &H1
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub CMB_Ejecutar_Click()
Call Sleep(2000)
'2 segundos para seleccionar firefox 'ctrl+1
Call keybd_event(17, 0, 0, 0)
'sumir
Call keybd_event(97, 0, 0, 0)
'sumir
Call keybd_event(17, 0, KEYEVENTF_KEYUP, 0)
'soltar
Call keybd_event(97, 0, KEYEVENTF_KEYUP, 0)
'soltar 'ctrl+2
Call keybd_event(17, 0, 0, 0)
Call keybd_event(98, 0, 0, 0)
Call keybd_event(17, 0, KEYEVENTF_KEYUP, 0)
Call keybd_event(98, 0, KEYEVENTF_KEYUP, 0)
'ctrl+3
Call keybd_event(17, 0, 0, 0)
Call keybd_event(99, 0, 0, 0)
Call keybd_event(17, 0, KEYEVENTF_KEYUP, 0)
Call keybd_event(99, 0, KEYEVENTF_KEYUP, 0)
'espera
Call Sleep(1000) '1 segundo
'ctrl+4
Call keybd_event(17, 0, 0, 0)
Call keybd_event(100, 0, 0, 0)
Call keybd_event(17, 0, KEYEVENTF_KEYUP, 0)
Call keybd_event(100, 0, KEYEVENTF_KEYUP, 0)
'ctrl+5
Call keybd_event(17, 0, 0, 0)
Call keybd_event(101, 0, 0, 0)
Call keybd_event(17, 0, KEYEVENTF_KEYUP, 0)
Call keybd_event(101, 0, KEYEVENTF_KEYUP, 0)
'ctrl+6
Call keybd_event(17, 0, 0, 0)
Call keybd_event(102, 0, 0, 0)
Call keybd_event(17, 0, KEYEVENTF_KEYUP, 0)
Call keybd_event(102, 0, KEYEVENTF_KEYUP, 0)
'espacio
Call keybd_event(32, 0, 0, 0)
Call keybd_event(32, 0, KEYEVENTF_KEYUP, 0)
MsgBox ("Ejecutado")
End Sub
