Tate
Admin
Posts: 207
Reputation: 17
Join date: 2009-09-19
Age: 13
 |  Subject: Simple Spammer with savable messages. Sun Nov 22, 2009 7:32 am | |
| Your form should look like this:  Your code should be this: | Code: | Imports System.IO
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim FileWriter As StreamWriter
Dim results As DialogResult
results = SaveFileDialog1.ShowDialog
If results = DialogResult.OK Then
FileWriter = New StreamWriter(SaveFileDialog1.FileName, False)
FileWriter.Write(RichTextBox1.Text)
FileWriter.Close()
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim FileReader As StreamReader
Dim results As DialogResult
results = OpenFileDialog1.ShowDialog
If results = DialogResult.OK Then
FileReader = New StreamReader(OpenFileDialog1.FileName)
RichTextBox1.Text = FileReader.ReadToEnd()
FileReader.Close()
End If
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Timer1.Start()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
SendKeys.Send(RichTextBox1.Text)
SendKeys.Send("{ENTER}")
End Sub
End Class |
_________________ "Never pick a fight with an idiot. They'll simply bring you down to their level, then win by experience."___________________________________ |
|
