Hola, queria empezar diciendo que soy nuevo y toy empezando asi qe no esperen mucho de mi
Ak posteo un macro que manda una letra cada un intervalo medido en segundos.
1) ak viene el problema, en los textbox, MSN, bloc de notas, Funciona bien... pero en la aplicacion del juego para el cual hice el macro (ArgentumOnline(Mas precisamente Imperium(cuantos parentesis
))) es como si el programa no enviara las teclas. quizas convenga usar otro comando, nose..
2) como podria hacer para asignar al macro Control o Alt y configurarlo para que cuando apretemos Ctrl en el TextBox txtLetra se asigne? esto seria menos importante, pero si tienen la respuesta, mejor
Edit: Seguramente me van a decir que ya esta posteado, pero todos los posts que leo de esto es para decir que ya esta posteado
si por lo menos me pasan el link, o el numero de pag en la q buscar, mejor. Suerte y gracias
Edit2: Estuve averiguando un poco mas, y me entere que "No puede utilizar SendKeys para enviar pulsaciones de teclas a aplicaciones que no estén diseñadas para funcionar con Microsoft Windows.". Asi que, venga esa respuesta con el comando que tengo que usar
el Code:
Option Explicit
Dim Letra As String
Dim Interval As Long
Private Sub cmdActivar_Click()
If Timer1.Enabled = False Then 'Si no esta activado...
If Len(txtLetra.Text) = 0 Then
MsgBox ("Debe introducir una letra.")
Exit Sub
End If
If Len(txtInterval.Text) = 0 Then
MsgBox ("Debe introducir un intervalo.")
Exit Sub
End If
Timer1.Interval = Interval
Timer1.Enabled = True
cmdActivar.Caption = "Desactivar"
Else 'Si está activado...
Timer1.Enabled = False
cmdActivar.Caption = "Activar"
End If
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
End Sub
Private Sub mnuSalir_Click()
End
End Sub
Private Sub txtInterval_Change()
'El error Resume Next porque si no encuentra el intervalo da un error y no podriamos cambiarlo
On Error Resume Next
Interval = txtInterval.Text * 1000 '* 1000 asi queda en segs.
Err = 0
End Sub
Private Sub txtLetra_Change()
txtLetra.Text = UCase(txtLetra.Text)
If Len(txtLetra.Text) > 1 Then 'Si ya hay una letra escrita, la cambiamos
Letra = Right$(txtLetra.Text, 1)
txtLetra.Text = Letra
End If
Letra = txtLetra.Text
End Sub
Private Sub Timer1_Timer()
SendKeys (Letra) 'Ak la duda
End Sub
Autor