SENDKEYS

FISH40 18/11/2009 15:15:46
#328084
Eaw pessoal,Bom tenho uma duvida:

como eu poderia fazer para que a função [Ô]sendkeys[Ô] digite letra por letra?
eu só consigo fazer com que ele digite tudo de uma vez,o projeto tem:

1 TextBox = Text1
2 CommandButton = CommandButto1 e CommandButto2
1 Timer = Timer1

Codigo:

[ô]Commandos dos Botões!
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub

[ô]Função da SendKeys
Private Sub Timer1_Timer()
SendKeys (Text1.Text)
End Sub


Intervalo do Timer1 = 50

vlw..
FISH40 18/11/2009 17:55:18
#328099
Agradeço desde já xd
EPISCOPAL 18/11/2009 19:48:39
#328109
eu sei
TECLA 18/11/2009 20:09:34
#328112
Simples! Tente assim...

1. Inicie um novo projeto, e adicione os controles abaixo:
  • Timer (Interval = 100 ou outro valor diferente de
    • [Ô]0[Ô])
  • Label (AutoSize = True)

    2. Copie o código abaixo, e cole no FORM

    Option Explicit
    Const MSG =
    • [Ô]VBMania - Referência nacional em Visual Basic[Ô]
    Dim i As Integer

    Private Sub Form_Load()
    i = 1
    End Sub


    Private Sub Timer1_Timer()
    Label1 = Left(MSG, i)
    i = i + 1
    If i > Len(MSG) Then i = 1
    End Sub
    FISH40 18/11/2009 22:05:08
    #328117
    Entãoo TECLA Isso Ai eu Sei,Mais Tipo,como eu faço para que o aplicativo digite letra por letra em lugares como bloco de nota ou qual quer outra lugar que digite algo,como um spammer de chat entende?
    FISH40 18/11/2009 22:22:41
    #328119
    Tipo aqueles de msn sabe!
    MARCELO.TREZE 18/11/2009 23:04:31
    #328123
    colega bsata vc zipar o arquivo e anexar por aqui mesmo
    FISH40 29/11/2009 00:56:26
    #328771
    ta aqui o exemplo de projeto que quero que digite letra por letra!
    Tópico encerrado , respostas não são mais permitidas
    Voltar