[TeraByTe]

AutoTyper Tutorial

Ok today guys im gonna show you how to create a simple autotyper. Its one of the easiest projects you will make but you need to remember all the little things that make little projects professional.

---

Step1
You need to create a form.
Heres a list of what you need;

• 6x TextBoxes (1 Multi-line)
  
• 5x CheckBoxes (No Labels)
  
• 2x Buttons (Named Start and Stop)
  
• 1x Label (Named Interval)
  
• 1x Timer
  

---

Step2
Double click your start button and add this code;

Code:

Timer1.interval = TextBox7.Text Timer1.Start() Button2.Enabled = True Button1.Enabled = False

This code starts the timer which in time will send the messages set-up.

---

Step3
Double click you stop button and add this code;

Code:

Timer1.Stop() Button2.Enabled = False Button1.Enabled = True

This code then stops the process by stopping the timer.

---

Step4
In the properties panel of your stop button, set enabled to false. This will stop us from clicking stop when there is nothing to stop.

---

Step5
Double click on Timer1 and add this code;

Code:

If CheckBox1.Checked = True Then On Error Resume Next SendKeys.Send(TextBox1.Text) On Error Resume Next SendKeys.Send("{Enter}") End If If CheckBox2.Checked = True Then On Error Resume Next SendKeys.Send(TextBox2.Text) On Error Resume Next SendKeys.Send("{Enter}") End If If CheckBox3.Checked = True Then On Error Resume Next SendKeys.Send(TextBox3.Text) On Error Resume Next SendKeys.Send("{Enter}") End If If CheckBox4.Checked = True Then On Error Resume Next SendKeys.Send(TextBox4.Text) On Error Resume Next SendKeys.Send("{Enter}") End If If CheckBox5.Checked = True Then On Error Resume Next SendKeys.Send(TextBox5.Text) On Error Resume Next SendKeys.Send("{Enter}") End If

This code sends the messages in each of the text boxes dependant if the checkboxes next to them are checked or not.

(Note: You may need to change the name of the textbox codes depending on how you have laid out your form. Just make sure that checkbox1 and textbox1 are together, checkbox2 and textbox2 are together etc. This will stop confusion later.)

---

Step6
Test your program with Visual Studios inbuilt Debugging feature.

---

Step7
If it works, build the appplication then test it outside of Visual Studio

---

Step8
If it didnt work, then check your code against my full source code below.

---

Full Source Code

Code:

Public Class Form1 Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Timer1.interval = TextBox7.Text Timer1.Start() Button2.Enabled = True Button1.Enabled = False End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Timer1.Stop() Button2.Enabled = False Button1.Enabled = True End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick If CheckBox1.Checked = True Then On Error Resume Next SendKeys.Send(TextBox1.Text) On Error Resume Next SendKeys.Send("{Enter}") End If If CheckBox2.Checked = True Then On Error Resume Next SendKeys.Send(TextBox2.Text) On Error Resume Next SendKeys.Send("{Enter}") End If If CheckBox3.Checked = True Then On Error Resume Next SendKeys.Send(TextBox3.Text) On Error Resume Next SendKeys.Send("{Enter}") End If If CheckBox4.Checked = True Then On Error Resume Next SendKeys.Send(TextBox4.Text) On Error Resume Next SendKeys.Send("{Enter}") End If If CheckBox5.Checked = True Then On Error Resume Next SendKeys.Send(TextBox5.Text) On Error Resume Next SendKeys.Send("{Enter}") End If End Sub End Class

---

Thats it. Hope that was easy enough for you. Let me know if your struggling

[nickjonnes]

ncie work this is a really good introduction into the send key functions which for some reason so many noobs have issues with.
thansk again

[WoosTy]

nice work man, thanks...