Ir para conteúdo
Fórum Script Brasil
  • 0

Ajuda - Auto Digitador


Matheus Montinnê

Pergunta

Olá pessoa eu estou tentando fazer um programa que envie mensagens definidas na textbox a cada 5 segundo. (Um auto digitador)

porém eu só consigo fazer com que ele digite a mensagem escrita na TextBox1 e não digita a mensagem da TextBox2.

Eu queria fazer com que após digitar o texto da TextBox1, ele aguardasse 5 segundo e digitasse o codigo da TextBox2.

Outra coisa também é que ele está só colando o texto, eu queria fazer com que simulasse uma digitação real.

Sou novato, passei o dia tentando e não consegui. se alguém pode me ajudar segue o codigo abaixo:

 

Public Class Form1
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If Timer2.Interval = True Then

            Timer1.Stop()
        End If
        Select Case TextBox1.Text()
            Case TextBox1.Text
                SendKeys.Send(TextBox1.Text + "{Enter}")
        End Select
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Interval = 5000 'cinco segundos de intervalo
        Timer1.Enabled = True
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Stop()
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        If Timer1.Interval = True Then

            Timer2.Stop()
        End If

    End Sub
End Class

 

Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

  • 0

Não sei se entendi muito bem o que você quer não, mas se fosse para escrever na TextBox2 o quê estiver escrito na TextBox1, parecendo que está sendo digitado, eu faria o seguinte:

TextBox2.Focus()

For Each c As Char In TextBox1.Text
    SendKeys.Send(c)
    Threading.Thread.Sleep(200)
    Application.DoEvents()
Next

Espero ter ajudado!

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...