PROBLEMA COM KEYSTATE

Citação:

:
A propriedade Interval do Timer é selecionado em milisegundos (ms). Cada segundo tem 1000 milisegundos (ms).

Se tu colocar [Ô]1[Ô] como valor da propriedade, o teu timer será executado a cada milisegundo.

Ocorre que o pressionar de uma tecla por uma pessoa dura entre 300ms e 1 segundo. O próprio teclado fisicamente não consegue trabalhar mais rápido, já que a tecla precisa ser pressionada, registrada e solta.

Por isso que o texto está sendo repetido.

Se tu quer resolver teu problema, aumente o valor da propriedade Interval para 300~1000 ou crie alguma maneira (variável) de saber se a tecla já foi pressionada nos últimos X milisegundos.

Citação:

e outra já falei porque o erro acontece... ele fica detectando que a tecla ainda está pressionada e fica digitando infinitamente... Esse é apenas um projeto teste ... Só tem praticamente esses códigos ai...

Citação:

Você falou que quer saber o porque ele acontece na obs já coloquei como faz para você ver ele acontecendo..
Citação:
:
OBS: Escreva um texto tipo este [Ô]Oi como vai voce[Ô] Logo em seguida abra um bloco de notas e aperte F4 ... vai começar escrever sem parar ...
para parar isso aperte ctrl +alt +delete caso não consiga fechar a aplicação


Mas como ta insistindo segue ele....

FORM 1

Citação:

:
Cara, você acha mesmo que alguém num fórum de programação vai executar um arquivo executável?
é ter muita boa fé... Manda o projeto oras... Até porque, pedir pra alguém criar um projeto só pra testar isso é tenso...

Abraços!

Citação:

:
JoaoMeira...

Desculpe mas me sinto na obrigação de defencer o colega ASHKATCHUP que dedicou tempo dele para te ajudar. Sem muitas delongas, farei apenas duas citações de seus comentários...

e outra já falei porque o erro acontece... ele fica detectando que a tecla ainda está pressionada e fica digitando infinitamente... Esse é apenas um projeto teste ... Só tem praticamente esses códigos ai...

Se tu já sabe porque o erro acontece, então não precisa de ajuda, visto já conhecer o motivo. A menos que o que tu quis dizer seja que sabe qual o erro (mas não o porque) e neste caso te expressasse mal.

Se foi foi expressãpo mal feita, precisas de ajuda em teu código mesmo, então quando o colega ASHKATCHUP pediu para postar os códigos, ele apenas pediu para que tu fornecesse as condições para tu mesmo ser ajudado. Não diga que ele está insistindo, afinal o interesse é teu e ele apenas quer te ajudar, igual tantos outros.

Você falou que quer saber o porque ele acontece na obs já coloquei como faz para você ver ele acontecendo..
Citação:
:
OBS: Escreva um texto tipo este [Ô]Oi como vai voce[Ô] Logo em seguida abra um bloco de notas e aperte F4 ... vai começar escrever sem parar ...
para parar isso aperte ctrl +alt +delete caso não consiga fechar a aplicação


Mas como ta insistindo segue ele....

FORM 1

Com relação a executar teu .exe em nossas máquinas, sem chance. Ajudamos no código, não em ver o erro repetindo. Temos alguns anos de programação nas costas e entendemos bem língua portuguesa, pode ter certeza que entendemos tua dificuldade sem executar um .exe que não sabemos se foi infectado por algum vírus em teu computador (mesmo sendo sem seu conhecimento da infecção).

Tudo de bom.

Citação:

[Ô]NÃO VOU EXECUTAR SEU EXECUTÁVEL PODE TER VÍRUS OU VOCÊ COLOCOU[Ô] , Pra que eu pediria ajuda e colocaria um vírus no executável?

Citação:

pode ter certeza que entendemos tua dificuldade sem executar um .exe que não sabemos se foi infectado por algum vírus em teu computador (mesmo sendo sem seu conhecimento da infecção).

Citação:

VOCÊ SABE PORQUE O ERRO ACONTECE, ENTÃO NÃO PRECISA DE AJUDA....

Citação:

Se tu já sabe porque o erro acontece, então não precisa de ajuda, visto já conhecer o motivo. A menos que o que tu quis dizer seja que sabe qual o erro (mas não o porque) e neste caso te expressasse mal.

Citação:

:
JoaoMeira...

Você diz que eu falei:

[Ô]NÃO VOU EXECUTAR SEU EXECUTÁVEL PODE TER VÍRUS OU VOCÊ COLOCOU[Ô] , Pra que eu pediria ajuda e colocaria um vírus no executável?

Mas eu falei, na verdade foi outra coisa. Você pede para ler seus tópicos, mas leia você isto:

pode ter certeza que entendemos tua dificuldade sem executar um .exe que não sabemos se foi infectado por algum vírus em teu computador (mesmo sendo sem seu conhecimento da infecção).

Outro exemplo. Você diz que eu falei:

VOCÊ SABE PORQUE O ERRO ACONTECE, ENTÃO NÃO PRECISA DE AJUDA....

Mas eu falei:

Se tu já sabe porque o erro acontece, então não precisa de ajuda, visto já conhecer o motivo. A menos que o que tu quis dizer seja que sabe qual o erro (mas não o porque) e neste caso te expressasse mal.

Nunca foi dito que você intencionalmente pode ter infectado um .exe! Mas que .exe não se executa!

Além de apontar coisas que não foram ditas, você cita como se tivesse sido usado letras maiúsculas, em forma de grito por teclado. JoaoMeira, você foi o único que fez isto!

Você também colocou falas suas, junto com as minhas, em uma única citação, e quem ler apenas o último tópico vai pensar que eu disse uma coisa que foi você que falou! Foi má intenção? Ou apenas desatenção, que você diz que o colega ASHKATCHUP é que que tem?

Eu lamento, mas você quer mais briga e exigências do que ajuda.


Não há como te ajudar, porque não é isto exatamente o que você quer. Ou se quer, não sabe como conseguir, indo pelas vias incorretas.

De minha parte vai ficar o assunto por aqui.

Vamos para outros tópicos.

Tudo de bom.

 [.b]   EXEMPLO  [./b] 

Citação:

:
O ZEUZEBIO3 está certo quanto à postagem de executáveis: por causa de virus, preferimos que se poste o código fonte.

De qualquer forma, eu baixei o teu exe, executei como administrador e esse comportamento que tu descreve não aconteceu.

Quando eu aperto F4, o programa escreve a frase umas 2~3 vezes no notepad. Ele não fica repetindo infinitamente.

Ou seja, o problema não é o código nem a API. Deve ser algo no teu PC.

 Dim tescrita As String = 0  

If hotkey2 = True Then
                If tescrita = 0 Then
                    SendKeys.Send(Form2.TextBox1.Text)
                    tescrita = 100
                End If
            End If

  If ComboBox1.Visible = False And ComboBox2.Visible = False Then 

  If tescrita > 0 Then
            tescrita = tescrita - 1
        End If 

  Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
        Dim hotkey2 As Boolean
        If tescrita > 0 Then
            tescrita = tescrita - 1
        End If

        If ComboBox1.Visible = False And ComboBox2.Visible = False Then

            If ComboBox2.Text = [Ô]F4[Ô] Then
                hotkey2 = GetAsyncKeyState(Keys.F4)
            ElseIf ComboBox2.Text = [Ô]F5[Ô] Then
                hotkey2 = GetAsyncKeyState(Keys.F5)
            End If

            If hotkey2 = True Then
                If tescrita = 0 Then
                    SendKeys.Send(Form2.TextBox1.Text)
                    tescrita = 100
                End If
            End If

        End If
    End Sub 

hotkey2 = (GetAsyncKeyState(Keys.F4) < 0)