Mensajes

Nonono, eso no te va a servir. Ese codigo lo que hace es elegir frases aleatorias y si se presiona la tecla enter la envia con sendkeys.
Algo adaptado a lo que necesitas seria:

Código [Seleccionar] Expandir


Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Const VK_SHIFT = &H10

Private Sub Form_Load()
Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
If GetAsyncKeyStat(VK_SHIFT) < 0 Then 'Si se aprieta la tecla Shift
       Realizamos la accion deseada...
End If
End Sub


La constante VK_SHIFT seria la tecla SHIFT. Podes encontrar las constantes de las demas teclas en el API Viewer.

Saludos.-

Muchas gracias, la verdad que era eso lo q estaba buscando. EDIT: Ya solucione el problema que tenia

Desde ya, gracias nuevamente.

Saludos,
Gastón.-

Por favor, si alguien es capaz de sacarme esta duda se los agradeceria mucho.

Saludos,
Gastón.-

Bueno, me idea es la de crear un programa que al presionar X tecla de escriba o realice alguna accion deseada.
El problema es q no recuerdo como se hacia esto. Ya se q es una boludes, pero si alguien me podria ayudar se los agradeceria mucho =)

estuve leyendo este thread pero mucho q digamos no entendi.
http://foro.elhacker.net/index.php/topic,118926.0.html

Saludos,
Gastón.-