PHP Code:
Public Class Form1
Dim var_x As String = "0"
Dim var_y As String = "0"
Dim var_b As String = "0"
Dim var_z As String = "0"
Dim var_s2 As String = "0"
Dim var_s3 As String = "0"
Dim var_agr As String = "0"
Dim var_angel As String = "0"
Dim Var_pot As String = "0"
Dim var_Text As String = "0"
Dim Var_pferd As String = "0"
Dim var_kg As String = "0"
Dim var_1 As String = "0"
Dim var_2 As String = "0"
Dim var_3 As String = "0"
Dim var_4 As String = "0"
Dim var_tim As String = 0
Dim Var_potting As String = "0"
Dim var_pickup As String = "0"
Dim var_att As String = "0"
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub RectangleShape1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
var_b = ("{F3}")
End Sub
Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Label1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub TabPage1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabPage1.Click
End Sub
Private Sub TextBox1_TextChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
My.Computer.Keyboard.SendKeys("{enter}")
End Sub
Private Sub F1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles F1.Click
var_b = ("{F1}")
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
var_b = ("{F2}")
End Sub
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
var_b = ("{F4}")
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
var_b = ("{F5}")
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
var_b = ("{F6}")
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
var_b = ("{F7}")
End Sub
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
var_b = ("{F8}")
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
var_b = ("{F9}")
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
var_b = ("{F10}")
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
var_b = ("{F11}")
End Sub
Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
var_b = ("{F12}")
End Sub
Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
var_b = ("{Backspace}")
End Sub
Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
var_b = ("{umschalten}")
End Sub
Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
var_b = ("{strg}")
End Sub
Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
Timer2.Enabled = True
MessageBox.Show("der bot ist an")
End Sub
Private Sub Label1_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)
SendKeys.Send("{Enter}")
End Sub
Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
Timer4.Enabled = False
Timer5.Enabled = False
Timer6.Enabled = False
Timer7.Enabled = False
Timer8.Enabled = False
Timer9.Enabled = False
Timer10.Enabled = False
Timer11.Enabled = False
MessageBox.Show("der bot ist aus")
End Sub
Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
var_s2 = ("I")
End Sub
Private Sub Button30_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button30.Click
var_s2 = ("a")
End Sub
Private Sub Button24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button24.Click
var_s2 = ("p")
End Sub
Private Sub Button58_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Button50_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Button28_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button28.Click
var_s2 = ("4")
End Sub
Private Sub Button55_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button55.Click
var_s3 = ("{Enter}") + ("rock on") + ("{Enter}")
End Sub
Private Sub Button61_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button61.Click
MessageBox.Show("der bot ist an")
Timer1.Enabled = True
End Sub
Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As String)
My.Computer.Keyboard.SendKeys(TextBox1.Text)
End Sub
Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Button62_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Button56_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button56.Click
var_s3 = ("{Enter}") + ("robin hood") + ("{Enter}")
End Sub
Private Sub Button57_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button57.Click
var_s3 = ("{Enter}") + ("Lumberjack") + ("{Enter}")
End Sub
Private Sub Button58_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button58.Click
var_s3 = ("{Enter}") + ("aegis") + ("{Enter}")
End Sub
Private Sub Button59_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button59.Click
var_s3 = ("{Enter}") + ("to swithereens") + ("{Enter}")
End Sub
Private Sub Button63_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Button22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button22.Click
var_s2 = ("b")
End Sub
Private Sub Button21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button21.Click
var_s2 = ("c")
End Sub
Private Sub Button40_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button40.Click
var_s2 = ("d")
End Sub
Private Sub Button39_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button39.Click
var_s2 = ("e")
End Sub
Private Sub Button46_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button46.Click
var_s2 = ("f")
End Sub
Private Sub Button45_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button45.Click
var_s2 = ("g")
End Sub
Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
var_s2 = ("h")
End Sub
Private Sub Button23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button23.Click
var_s2 = ("j")
End Sub
Private Sub Button38_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button38.Click
var_s2 = ("k")
End Sub
Private Sub Button37_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button37.Click
var_s2 = ("l")
End Sub
Private Sub Button54_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button54.Click
var_s2 = ("ß")
End Sub
Private Sub Button43_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button43.Click
var_s2 = ("n")
End Sub
Private Sub Button44_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button44.Click
var_s2 = ("m")
End Sub
Private Sub Button48_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button48.Click
var_s2 = ("u")
End Sub
Private Sub Button42_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button42.Click
var_s2 = ("t")
End Sub
Private Sub Button25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button25.Click
var_s2 = ("o")
End Sub
Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click
var_s2 = ("q")
End Sub
Private Sub Button27_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button27.Click
var_s2 = ("v")
End Sub
Private Sub Button26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button26.Click
var_s2 = ("w")
End Sub
Private Sub Button29_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button29.Click
var_s2 = ("x")
End Sub
Private Sub Button31_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button31.Click
var_s2 = ("Z")
End Sub
Private Sub Button32_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button32.Click
var_s2 = ("y")
End Sub
Private Sub Button35_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button35.Click
var_s2 = ("s")
End Sub
Private Sub Button36_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button36.Click
var_s2 = ("r")
End Sub
Private Sub Button47_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button47.Click
var_s2 = ("1")
End Sub
Private Sub Button52_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button52.Click
var_s2 = ("3")
End Sub
Private Sub Button53_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button53.Click
var_s2 = ("0")
End Sub
Private Sub Button33_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button33.Click
var_s2 = ("5")
End Sub
Private Sub Button34_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button34.Click
var_s2 = ("7")
End Sub
Private Sub Button41_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button41.Click
var_s2 = ("6")
End Sub
Private Sub Button50_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button50.Click
var_s2 = ("9")
End Sub
Private Sub Button51_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button51.Click
var_s2 = ("8")
End Sub
Private Sub Button49_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button49.Click
var_s2 = ("2")
End Sub
Private Sub TextBox1_TextChanged_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
var_Text = TextBox1.Text
End Sub
Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs)
End Sub
Private Sub TabPage4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabPage4.Click
End Sub
Private Sub Timer1_Tick_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
My.Computer.Keyboard.SendKeys(var_Text + "{Enter}")
Timer1.Interval = var_tim
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button64_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button64.Click
Timer1.Enabled = False
MessageBox.Show("der bot ist aus")
End Sub
Private Sub Timer2_Tick_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
My.Computer.Keyboard.SendKeys(var_b)
Timer2.Interval = var_1
End Sub
Private Sub Button65_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button65.Click
MessageBox.Show("der bot ist an")
Timer3.Enabled = True
End Sub
Private Sub Button66_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button66.Click
Timer3.Enabled = False
MessageBox.Show("der bot ist aus")
End Sub
Private Sub Timer3_Tick_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
Timer3.Interval = var_2
My.Computer.Keyboard.SendKeys(var_s2)
End Sub
Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick
Timer4.Interval = var_4
My.Computer.Keyboard.SendKeys(var_s3)
End Sub
Private Sub Button60_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button60.Click
var_s3 = ("{Enter}") + ("HOW DO YOU TURN THIS ON") + ("{Enter}")
End Sub
Private Sub Button63_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button63.Click
var_s3 = ("{Enter}") + ("hallo") + ("{Enter}")
End Sub
Private Sub Button62_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button62.Click
var_s3 = ("{Enter}") + ("Cheese steak jimmy's") + ("{Enter}")
End Sub
Private Sub Button67_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button67.Click
Timer4.Enabled = True
MessageBox.Show("der bot ist an")
End Sub
Private Sub Button68_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button68.Click
Timer4.Enabled = False
MessageBox.Show("der bot ist aus")
End Sub
Private Sub Button69_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button69.Click
var_s2 = (" ") + (" ") + (" ") + (" ") + (" ")
End Sub
Private Sub Button70_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button70.Click
var_agr = ("{F3}") + ("{F2}") + ("{F1}") + ("{F4}")
Timer5.Enabled = True
End Sub
Private Sub Button71_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button71.Click
Timer5.Enabled = False
MessageBox.Show("der bot ist aus")
End Sub
Private Sub Timer5_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer5.Tick
My.Computer.Keyboard.SendKeys(var_agr)
End Sub
Private Sub Button72_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button72.Click
My.Computer.Keyboard.SendKeys("{F3}")
If ("(Fisch)") Then
My.Computer.Keyboard.SendKeys("{F4}")
End If
If ("{F4}") Then
My.Computer.Keyboard.SendKeys("{F3}")
End If
If ("{F3}") Then
My.Computer.Keyboard.SendKeys("(Fish)")
End If
Timer6.Enabled = True
End Sub
Private Sub Button73_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button73.Click
Timer6.Enabled = False
MessageBox.Show("der bot ist aus")
End Sub
Private Sub Timer6_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer6.Tick
My.Computer.Keyboard.SendKeys(var_angel)
End Sub
Private Sub Button74_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button74.Click
var_kg = (" ")
var_att = ("^h") + (" ") + ("2") + ("4") + ("1") + (" ") + ("^h")
Var_potting = ("{F1}")
Timer7.Enabled = True
Timer8.Enabled = True
Timer9.Enabled = True
End Sub
Private Sub Timer7_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer7.Tick
My.Computer.Keyboard.SendKeys(var_kg)
End Sub
Private Sub Timer8_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer8.Tick
My.Computer.Keyboard.SendKeys(var_att)
End Sub
Private Sub Timer9_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer9.Tick
My.Computer.Keyboard.SendKeys(Var_potting)
End Sub
Private Sub Button75_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button75.Click
Timer7.Enabled = False
Timer8.Enabled = False
Timer9.Enabled = False
MessageBox.Show("der bot ist aus")
End Sub
Private Sub Button76_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button76.Click
Var_pot = ("{F1}")
Timer10.Enabled = True
End Sub
Private Sub Timer10_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer10.Tick
My.Computer.Keyboard.SendKeys(Var_pot)
End Sub
Private Sub Button77_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button77.Click
Timer10.Enabled = False
MessageBox.Show("der bot ist aus")
End Sub
Private Sub Button14_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
Var_pferd = ("^h")
Timer11.Enabled = True
End Sub
Private Sub Timer11_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer11.Tick
My.Computer.Keyboard.SendKeys(Var_pferd)
End Sub
Private Sub Button15_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
Timer11.Enabled = False
MessageBox.Show("der bot ist aus")
End Sub
Private Sub Button78_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button78.Click
Timer12.Enabled = True
End Sub
Private Sub Timer12_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer12.Tick
My.Computer.Keyboard.SendKeys(var_pickup)
End Sub
Private Sub Button79_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button79.Click
Timer12.Enabled = False
End Sub
Private Sub TextBox2_TextChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
var_tim = TextBox2.Text
End Sub
Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged
var_1 = TextBox4.Text
End Sub
Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged
var_2 = TextBox3.Text
End Sub
Private Sub TextBox5_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox5.TextChanged
var_4 = TextBox5.Text
End Sub
End Class