leute ich hab ne fragekann mir mal einer die syntax von der leertaste in metin2 zeigen ich habnähmlich ein kleines programm in vb geschrieben aberder bot funktioniert net hier die syntax des bots
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
