nintiendo1
21/11/2009, 18:47
Pues eso, estoy en Visual Basic. Estoy haciendo una especie de tecleador automatico, que al yo pulsar un boton, me escriba lo que haya puesto en un mensaje. El código que estoy usando es este:
Private Declare Function GetKeyPress Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer
Private Sub Form_Load()
Timer1.Interval = "100"
End Sub
Private Sub Timer1_Timer()
If GetKeyPress(vbKeyF1) Then
SendKeys (Text1.Text) + ("{enter}")
End If
If GetKeyPress(vbKeyF2) Then
SendKeys (Text2.Text) + ("{enter}")
End If
If GetKeyPress(vbKeyF3) Then
SendKeys (Text3.Text) + ("{enter}")
End If
If GetKeyPress(vbKeyF4) Then
SendKeys (Text4.Text) + ("{enter}")
End If
If GetKeyPress(vbKeyF5) Then
SendKeys (Text5.Text) + ("{enter}")
End If
If GetKeyPress(vbKeyF6) Then
SendKeys (Text6.Text) + ("{enter}")
End If
If GetKeyPress(vbKeyF7) Then
SendKeys (Text7.Text) + ("{enter}")
End If
If GetKeyPress(vbKeyF8) Then
SendKeys (Text8.Text) + ("{enter}")
End If
If GetKeyPress(vbKeyF9) Then
SendKeys (Text9.Text) + ("{enter}")
End If
If GetKeyPress(vbKeyF10) Then
SendKeys (Text10.Text) + ("{enter}")
End If
If GetKeyPress(vbKeyF11) Then
SendKeys (Text11.Text) + ("{enter}")
End If
If GetKeyPress(vbKeyF12) Then
SendKeys (Text12.Text) + ("{enter}")
End If
End Sub
Perio quiero que por ejemplo al pulsar F12, en vez de escribir lo que tenga en el cuadro 12 y pulse enter, lo que quiero es que escriba lo del cuadro 12 y despues a la vez pulse Shift + Enter. ¿Como lo hago?
Saludos y gracias.
Private Declare Function GetKeyPress Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer
Private Sub Form_Load()
Timer1.Interval = "100"
End Sub
Private Sub Timer1_Timer()
If GetKeyPress(vbKeyF1) Then
SendKeys (Text1.Text) + ("{enter}")
End If
If GetKeyPress(vbKeyF2) Then
SendKeys (Text2.Text) + ("{enter}")
End If
If GetKeyPress(vbKeyF3) Then
SendKeys (Text3.Text) + ("{enter}")
End If
If GetKeyPress(vbKeyF4) Then
SendKeys (Text4.Text) + ("{enter}")
End If
If GetKeyPress(vbKeyF5) Then
SendKeys (Text5.Text) + ("{enter}")
End If
If GetKeyPress(vbKeyF6) Then
SendKeys (Text6.Text) + ("{enter}")
End If
If GetKeyPress(vbKeyF7) Then
SendKeys (Text7.Text) + ("{enter}")
End If
If GetKeyPress(vbKeyF8) Then
SendKeys (Text8.Text) + ("{enter}")
End If
If GetKeyPress(vbKeyF9) Then
SendKeys (Text9.Text) + ("{enter}")
End If
If GetKeyPress(vbKeyF10) Then
SendKeys (Text10.Text) + ("{enter}")
End If
If GetKeyPress(vbKeyF11) Then
SendKeys (Text11.Text) + ("{enter}")
End If
If GetKeyPress(vbKeyF12) Then
SendKeys (Text12.Text) + ("{enter}")
End If
End Sub
Perio quiero que por ejemplo al pulsar F12, en vez de escribir lo que tenga en el cuadro 12 y pulse enter, lo que quiero es que escriba lo del cuadro 12 y despues a la vez pulse Shift + Enter. ¿Como lo hago?
Saludos y gracias.