Código: Seleccionar todo
Private Sub Command2_Click()
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
SendKeys (Text1.Text)
SendKeys ("{enter}")
End Sub
Código: Seleccionar todo
Private Sub Command2_Click()
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
SendKeys (Text1.Text)
SendKeys ("{enter}")
End Sub
No te entiendo la verdad xDenigma? escribió:de 30 el de kick msn pero el flooder lo puse en 20 y funcionaba no se trababa la pc asta que no le cliqueaba en un lugar donde se puede escribir pero con el kick msn se traba aunque no le clickee en ningun lugar
Dios entonces tengo una poronga de pc impresionante, proba con un intervalo de 1 y empeza a mandar texto sin ponerlo en ninguna caja de texto.verbal escribió:un timer no bloquea una maquina ni en pedo, salvo que tenga un do..while (o simil) en el cuerpo de su evento. la razon es simple, el codigo interno del timer procesa la cola de eventos y mensajes, es decir, similar a la instrucción DoEvents().
entonces podes probar incluyendo un doevents() en el evento de tu timer. eso para el cuelgue. y para el tema de que cuando abris el administrador de tareas no para de floodear, mientras codeas siempre tenes que brindarte a vos mismo un mecanismo para controlar tu programa, si después lo sacás en la version final es cosa de cada uno, pero no podes codear algo asi sin poder controlarlo. Mi consejo es que en el evento LostFocus() del formulario desactives el timer.
igual lo que dijo sharki sobre el keypress tambien sirve, pero tenes que estar seguro que se procesan los mensajes internos con el DoEvents() en el timer. Probá y nos contas, a mi me intriga porque los timers en su evento, como ya te dije, tienen una especie de DoEvents().
A ver que sale compadre.