Red de conocimiento informático - Problemas con los teléfonos móviles - Ejemplo sencillo de botón de simulación VB

Ejemplo sencillo de botón de simulación VB

'Agregue los controles timer1, command1 y command2 al formulario, luego copie el código siguiente, ejecútelo y presione la tecla de inicio cuando se le solicite

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