Tuş Yönetimi - SendKeys Fonksiyonu
Kaynak Kodu :
// VB.Net Programlama Dili
// zafercavdar
Public Class Form
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
SendKeys.Send("{F2}")
SendKeys.Send("1")
SendKeys.Send("2")
SendKeys.Send("3")
SendKeys.Send("4")
SendKeys.Send("5")
SendKeys.Send("6")
SendKeys.Send("7")
SendKeys.Send("8")
SendKeys.Send("9")
SendKeys.Send("0")
If CheckBox20.Checked Then
buff1.Interval = TextBox1.Text * 1000
buff1.Enabled = True
End If
If CheckBox19.Checked Then
buff2.Interval = TextBox2.Text * 1000
buff2.Enabled = True
End If
If CheckBox18.Checked Then
buff3.Interval = TextBox3.Text * 1000
buff3.Enabled = True
End If
If CheckBox17.Checked Then
buff4.Interval = TextBox4.Text * 1000
buff4.Enabled = True
End If
If CheckBox16.Checked Then
buff5.Interval = TextBox5.Text * 1000
buff5.Enabled = True
End If
If CheckBox15.Checked Then
buff6.Interval = TextBox6.Text * 1000
buff6.Enabled = True
End If
If CheckBox14.Checked Then
buff7.Interval = TextBox7.Text * 1000
buff7.Enabled = True
End If
If CheckBox13.Checked Then
buff8.Interval = TextBox8.Text * 1000
buff8.Enabled = True
End If
If CheckBox12.Checked Then
buff9.Interval = TextBox9.Text * 1000
buff9.Enabled = True
End If
If CheckBox11.Checked Then
buff0.Interval = TextBox0.Text * 1000
buff0.Enabled = True
End If
SendKeys.Send("{F1}")
attack.Enabled = True
End Sub
Private Sub attack_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles attack.Tick
SendKeys.Send("{F1}")
If CheckBox1.Checked Then
SendKeys.Send("1")
End If
If CheckBox2.Checked Then
SendKeys.Send("2")
End If
If CheckBox3.Checked Then
SendKeys.Send("3")
End If
If CheckBox4.Checked Then
SendKeys.Send("4")
End If
If CheckBox5.Checked Then
SendKeys.Send("5")
End If
If CheckBox6.Checked Then
SendKeys.Send("6")
End If
If CheckBox7.Checked Then
SendKeys.Send("7")
End If
If CheckBox8.Checked Then
SendKeys.Send("8")
End If
If CheckBox9.Checked Then
SendKeys.Send("9")
End If
If CheckBox10.Checked Then
SendKeys.Send("0")
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
attack.Enabled = False
buff0.Enabled = False
buff1.Enabled = False
buff2.Enabled = False
buff3.Enabled = False
buff4.Enabled = False
buff5.Enabled = False
buff6.Enabled = False
buff7.Enabled = False
buff8.Enabled = False
buff9.Enabled = False
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub buff1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buff1.Tick
SendKeys.Send("{F2}")
If CheckBox20.Checked Then
SendKeys.Send("1")
End If
End Sub
Private Sub buff2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buff2.Tick
SendKeys.Send("{F2}")
If CheckBox19.Checked Then
SendKeys.Send("2")
End If
End Sub
Private Sub buff3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buff3.Tick
SendKeys.Send("{F2}")
If CheckBox18.Checked Then
SendKeys.Send("3")
End If
End Sub
Private Sub buff4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buff4.Tick
SendKeys.Send("{F2}")
If CheckBox17.Checked Then
SendKeys.Send("4")
End If
End Sub
Private Sub buff5_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buff5.Tick
SendKeys.Send("{F2}")
If CheckBox16.Checked Then
SendKeys.Send("5")
End If
End Sub
Private Sub buff6_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buff6.Tick
SendKeys.Send("{F2}")
If CheckBox15.Checked Then
SendKeys.Send("6")
End If
End Sub
Private Sub buff7_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buff7.Tick
SendKeys.Send("{F2}")
If CheckBox14.Checked Then
SendKeys.Send("7")
End If
End Sub
Private Sub buff8_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buff8.Tick
SendKeys.Send("{F2}")
If CheckBox13.Checked Then
SendKeys.Send("8")
End If
End Sub
Private Sub buff9_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buff9.Tick
SendKeys.Send("{F2}")
If CheckBox12.Checked Then
SendKeys.Send("9")
End If
End Sub
Private Sub buff0_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buff0.Tick
SendKeys.Send("{F2}")
If CheckBox11.Checked Then
SendKeys.Send("0")
End If
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
spammer.Interval = TextBox10.Text
spammer.Enabled = True
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
spammer.Enabled = False
End Sub
Private Sub spammer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles spammer.Tick
SendKeys.Send("{ENTER}")
SendKeys.Send(RichTextBox1.Text)
End Sub
Private Sub CheckBox20_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox20.CheckedChanged
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
buff1.Interval = TextBox1.Text * 1000
End Sub
Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
buff2.Interval = TextBox2.Text * 1000
End Sub
Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged
buff3.Interval = TextBox3.Text * 1000
End Sub
Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged
buff4.Interval = TextBox4.Text * 1000
End Sub
Private Sub TextBox5_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox5.TextChanged
buff5.Interval = TextBox5.Text * 1000
End Sub
Private Sub TextBox6_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox6.TextChanged
buff6.Interval = TextBox6.Text * 1000
End Sub
Private Sub TextBox7_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox7.TextChanged
buff7.Interval = TextBox7.Text * 1000
End Sub
Private Sub TextBox8_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox8.TextChanged
buff8.Interval = TextBox8.Text * 1000
End Sub
Private Sub TextBox9_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox9.TextChanged
buff9.Interval = TextBox9.Text * 1000
End Sub
Private Sub TextBox0_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox0.TextChanged
buff0.Interval = TextBox0.Text * 1000
End Sub
End Class
// zafercavdar
Public Class Form
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
SendKeys.Send("{F2}")
SendKeys.Send("1")
SendKeys.Send("2")
SendKeys.Send("3")
SendKeys.Send("4")
SendKeys.Send("5")
SendKeys.Send("6")
SendKeys.Send("7")
SendKeys.Send("8")
SendKeys.Send("9")
SendKeys.Send("0")
If CheckBox20.Checked Then
buff1.Interval = TextBox1.Text * 1000
buff1.Enabled = True
End If
If CheckBox19.Checked Then
buff2.Interval = TextBox2.Text * 1000
buff2.Enabled = True
End If
If CheckBox18.Checked Then
buff3.Interval = TextBox3.Text * 1000
buff3.Enabled = True
End If
If CheckBox17.Checked Then
buff4.Interval = TextBox4.Text * 1000
buff4.Enabled = True
End If
If CheckBox16.Checked Then
buff5.Interval = TextBox5.Text * 1000
buff5.Enabled = True
End If
If CheckBox15.Checked Then
buff6.Interval = TextBox6.Text * 1000
buff6.Enabled = True
End If
If CheckBox14.Checked Then
buff7.Interval = TextBox7.Text * 1000
buff7.Enabled = True
End If
If CheckBox13.Checked Then
buff8.Interval = TextBox8.Text * 1000
buff8.Enabled = True
End If
If CheckBox12.Checked Then
buff9.Interval = TextBox9.Text * 1000
buff9.Enabled = True
End If
If CheckBox11.Checked Then
buff0.Interval = TextBox0.Text * 1000
buff0.Enabled = True
End If
SendKeys.Send("{F1}")
attack.Enabled = True
End Sub
Private Sub attack_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles attack.Tick
SendKeys.Send("{F1}")
If CheckBox1.Checked Then
SendKeys.Send("1")
End If
If CheckBox2.Checked Then
SendKeys.Send("2")
End If
If CheckBox3.Checked Then
SendKeys.Send("3")
End If
If CheckBox4.Checked Then
SendKeys.Send("4")
End If
If CheckBox5.Checked Then
SendKeys.Send("5")
End If
If CheckBox6.Checked Then
SendKeys.Send("6")
End If
If CheckBox7.Checked Then
SendKeys.Send("7")
End If
If CheckBox8.Checked Then
SendKeys.Send("8")
End If
If CheckBox9.Checked Then
SendKeys.Send("9")
End If
If CheckBox10.Checked Then
SendKeys.Send("0")
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
attack.Enabled = False
buff0.Enabled = False
buff1.Enabled = False
buff2.Enabled = False
buff3.Enabled = False
buff4.Enabled = False
buff5.Enabled = False
buff6.Enabled = False
buff7.Enabled = False
buff8.Enabled = False
buff9.Enabled = False
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub buff1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buff1.Tick
SendKeys.Send("{F2}")
If CheckBox20.Checked Then
SendKeys.Send("1")
End If
End Sub
Private Sub buff2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buff2.Tick
SendKeys.Send("{F2}")
If CheckBox19.Checked Then
SendKeys.Send("2")
End If
End Sub
Private Sub buff3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buff3.Tick
SendKeys.Send("{F2}")
If CheckBox18.Checked Then
SendKeys.Send("3")
End If
End Sub
Private Sub buff4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buff4.Tick
SendKeys.Send("{F2}")
If CheckBox17.Checked Then
SendKeys.Send("4")
End If
End Sub
Private Sub buff5_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buff5.Tick
SendKeys.Send("{F2}")
If CheckBox16.Checked Then
SendKeys.Send("5")
End If
End Sub
Private Sub buff6_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buff6.Tick
SendKeys.Send("{F2}")
If CheckBox15.Checked Then
SendKeys.Send("6")
End If
End Sub
Private Sub buff7_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buff7.Tick
SendKeys.Send("{F2}")
If CheckBox14.Checked Then
SendKeys.Send("7")
End If
End Sub
Private Sub buff8_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buff8.Tick
SendKeys.Send("{F2}")
If CheckBox13.Checked Then
SendKeys.Send("8")
End If
End Sub
Private Sub buff9_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buff9.Tick
SendKeys.Send("{F2}")
If CheckBox12.Checked Then
SendKeys.Send("9")
End If
End Sub
Private Sub buff0_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buff0.Tick
SendKeys.Send("{F2}")
If CheckBox11.Checked Then
SendKeys.Send("0")
End If
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
spammer.Interval = TextBox10.Text
spammer.Enabled = True
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
spammer.Enabled = False
End Sub
Private Sub spammer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles spammer.Tick
SendKeys.Send("{ENTER}")
SendKeys.Send(RichTextBox1.Text)
End Sub
Private Sub CheckBox20_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox20.CheckedChanged
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
buff1.Interval = TextBox1.Text * 1000
End Sub
Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
buff2.Interval = TextBox2.Text * 1000
End Sub
Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged
buff3.Interval = TextBox3.Text * 1000
End Sub
Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged
buff4.Interval = TextBox4.Text * 1000
End Sub
Private Sub TextBox5_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox5.TextChanged
buff5.Interval = TextBox5.Text * 1000
End Sub
Private Sub TextBox6_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox6.TextChanged
buff6.Interval = TextBox6.Text * 1000
End Sub
Private Sub TextBox7_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox7.TextChanged
buff7.Interval = TextBox7.Text * 1000
End Sub
Private Sub TextBox8_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox8.TextChanged
buff8.Interval = TextBox8.Text * 1000
End Sub
Private Sub TextBox9_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox9.TextChanged
buff9.Interval = TextBox9.Text * 1000
End Sub
Private Sub TextBox0_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox0.TextChanged
buff0.Interval = TextBox0.Text * 1000
End Sub
End Class