You are viewing our Forum Archives. To view or take place in current topics click here.
CLOSE PLEASE, Thanks !
Posted:

CLOSE PLEASE, Thanks !Posted:

Skid
  • TTG Senior
Status: Offline
Joined: Jan 22, 201014Year Member
Posts: 1,948
Reputation Power: 111
Status: Offline
Joined: Jan 22, 201014Year Member
Posts: 1,948
Reputation Power: 111
Public Class Form1

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





    End Sub

    Private Sub Wait_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Wait.Tick
        Type.Enabled = True
        Type.Interval = NumericUpDown1.Value
        Wait.Enabled = False

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Type.Enabled = False
    End Sub

    Private Sub Type_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Type.Tick
        SendKeys.Send(TextBox1.Text)
        SendKeys.Send("{enter}")
    End Sub
End Class



When i type into it, it types like 20 million letters. Which is not what i want


Last edited by Skid ; edited 1 time in total
#2. Posted:
RDCA
  • TTG Contender
Status: Offline
Joined: Jul 12, 201014Year Member
Posts: 3,612
Reputation Power: 173
Status: Offline
Joined: Jul 12, 201014Year Member
Posts: 3,612
Reputation Power: 173
Here is the revised code.



Public Class Form1

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

    End Sub

    Private Sub Wait_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Wait.Tick
      Sendkeys.send(textbox1.text)
      SendKeys.send("{ENTER}")

    End Sub

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

wait.Interval = NumericUpDown1.Value
wait.enabled = true
end sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        wait.enabled = false
   
   
    End Sub

 
End Class
Jump to:
You are viewing our Forum Archives. To view or take place in current topics click here.