bonjour alors voila jai fait un petit spammeur (rien de bien mechant) et lors du build jai des erreurs mais je ne sais pas les corriger...
alors voila la fenetre
et le code :
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label4.Visible = True
Label5.Visible = False
TextBox1.Enabled = False
Button3.Enabled = False
RadioButton1.Enabled = False
RadioButton2.Enabled = False
RadioButton3.Enabled = False
RadioButton4.Enabled = False
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Enabled = False
TextBox1.Enabled = True
Button3.Enabled = True
Label5.Text = ("1")
RadioButton1.Enabled = True
RadioButton1.Enabled = True
RadioButton1.Enabled = True
RadioButton1.Enabled = True
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.Close()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
TextBox1.Clear()
Label2.Text = ("0")
RadioButton2.Checked = True
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
RadioButton2.Checked = True
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If CheckBox1.Checked And Label2.Text = NumericUpDown1 Then
Label2.Text = ("0")
End If
Label2.Text = Label2.Text = Label2.Text = 1
My.Computer.Keyboard.SendKeys(TextBox1.Text)
My.Computer.Keyboard.SendKeys("{Enter}")
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
If RadioButton1.Checked Then
Timer1.Interval = 1000
End If
If RadioButton2.Checked Then
Timer1.Interval = 250
End If
If RadioButton3.Checked Then
Timer1.Interval = 70
End If
If RadioButton4.Checked Then
Timer1.Interval = 10
End If
End Sub
Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
Label5 = Label5.Text - 1
If Label5.Text = ("0") Then
Timer1.Enabled = True
Timer3.Stop()
Timer3.Enabled = False
End If
End Sub
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
If CheckBox1.Checked Then
NumericUpDown1.Visible = True
Else
NumericUpDown1.Visible = False
End If
End Sub
End Class
voila les erreurs :
si il y quel qu'un de cool qui m'aidrait... merci 