Ejemplo sencillo de botón de simulación VB
Opción explícita
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte,
Private Declare Sub Sleep Lib " kernel32" (ByVal dwMillisegundos As Long)
Private Const KEYEVENTF_EXTENDEDKEY = amp; H1
Const privada KEYEVENTF_KEYUP = amp;H2
Dim k1
Sub SendKeyToWnd(vbkey As KeyCodeConstants)
keybd_event vbkey, 0, KEYEVENTF_EXTENDEDKEY, 0
Dormir 100
keybd_event vbkey, 0, KEYEVENTF_EXTENDEDKEY O KEYEVENTF_KEYUP, 0
Fin Sub
Subcomando privado1_Click()
k1 = Temporizador
Timer1.Enabled = True
End Sub
Sub privado Command2_Click()
Timer1.Load()
p>
Comando1.Caption = "Iniciar"
Comando2.Caption = "Detener"
Temporizador1.Interval = 200
Temporizador1.Enabled = Falso
Timer2.Enabled = False
Timer3.Enabled = FalseEnabled = False
End Sub
Sub privado p>
Private Sub Timer1_Timer()
Si Timer - k1 gt; = 2 Entonces 'Presione el número 1 en el teclado grande cada 2000 milisegundos
SendKeyToWnd vbKey1
k1 = Temporizador
Finalizar si
Finalizar sub