How to make A Simple Auto-Writer
Posted: Wed Dec 08, 2010 7:39 am
Hello Guys
In this tutorial in going to show you how to make a simple auto-writer
start vb > Create new project
Components :
2 Buttons
1 Textbox
1 Checkbox
1 Timer
1 NumericUpDown
Change Button1 Text to Start
Change Button2 Text to Stop
Change Checkbox1 Text to Send Enter
Button1 - it will start the timer ( THE AUTO-WRITER WILL START )

In this tutorial in going to show you how to make a simple auto-writer
start vb > Create new project
Components :
2 Buttons
1 Textbox
1 Checkbox
1 Timer
1 NumericUpDown
Change Button1 Text to Start
Change Button2 Text to Stop
Change Checkbox1 Text to Send Enter
Button1 - it will start the timer ( THE AUTO-WRITER WILL START )
Code: Select all
Button2 - it will stop the timer
Timer1.start
Code: Select all
Timer1 Code : Timer1.stop
Code: Select all
The Whole Codes ( DELETE ALL THE CODES AND PASTE THIS )
Timer1.Interval = NumericUpDown1.Value & "000" ' Interval = Speed , every 1000 = sec so it will put after the value "000"
If CheckBox1.CheckState = CheckState.Checked Then
On Error Resume Next
SendKeys.Send(TextBox1.Text)
SendKeys.Send("{Enter}")
Else
On Error Resume Next
SendKeys.Send(TextBox1.Text)
End If
Code: Select all
Thanks Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.start()
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 Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Timer1.Interval = NumericUpDown1.Value & "000"
If CheckBox1.CheckState = CheckState.Checked Then
On Error Resume Next
SendKeys.Send(TextBox1.Text)
SendKeys.Send("{Enter}")
Else
On Error Resume Next
SendKeys.Send(TextBox1.Text)
End If
End Sub
End Class
