Hallo Zusammen
Ich hab mir einen Trainer für ''Age of Empires III'' gebaut. Zum ''cheaten'' muss man Enter drücken und dann einen bestimmten Text eingeben. Zum Absenden wider Enter.
Nun eigentlich funktioniert fast alles. Wenn ich meinen Trainer starten vergehen 10 sec. (Zeit zum ins Spiel wechseln) und dann wird ein Text nach dem anderen gesendet (My.Computer.Keyboard.SendKeys("Cheat"))
Nur lässt er mir aber einen von 4 Cheats aus, obwohl er das nicht sollte...
Wenn ich den langen Cheat ("Give me liberty or give me coin") an den Anfang stelle (vom Timer) dann schreibt er denn langen, den 3 und denn 4. Wenn ich den langen Cheat ans Ende stelle, wird nur der im Spiel geschrieben...
etwas ist das mysteriös
PS: Könnts mal im Word testen, da funktioniert alles wie es sollte. Im Spiel aber nicht.
Hier der Code:
Und derjenige der AOE III hat soll es doch gerne mal runterladen
Ich hab mir einen Trainer für ''Age of Empires III'' gebaut. Zum ''cheaten'' muss man Enter drücken und dann einen bestimmten Text eingeben. Zum Absenden wider Enter.
Nun eigentlich funktioniert fast alles. Wenn ich meinen Trainer starten vergehen 10 sec. (Zeit zum ins Spiel wechseln) und dann wird ein Text nach dem anderen gesendet (My.Computer.Keyboard.SendKeys("Cheat"))
Nur lässt er mir aber einen von 4 Cheats aus, obwohl er das nicht sollte...
Wenn ich den langen Cheat ("Give me liberty or give me coin") an den Anfang stelle (vom Timer) dann schreibt er denn langen, den 3 und denn 4. Wenn ich den langen Cheat ans Ende stelle, wird nur der im Spiel geschrieben...
etwas ist das mysteriös
PS: Könnts mal im Word testen, da funktioniert alles wie es sollte. Im Spiel aber nicht.
Hier der Code:
VB.NET-Quellcode
- Public Class Form1
- Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
- If Me.CheckBox1.Checked = True Then CheckBox2.Visible = False Else CheckBox2.Visible = True 'Checked ob die CheckBox2 gecheckt wurde
- End Sub
- Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
- If Me.CheckBox2.Checked = True Then CheckBox1.Visible = False Else CheckBox1.Visible = True 'Checked ob die CheckBox1 gecheckt wurde
- End Sub
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- Timer1.Start() 'Startet den Countdown (Timer1)
- End Sub
- Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
- Label10.Text = Label10.Text - 1 'Countdown Zähler (TimerInterval = 1sec) pro 1 sec = -1
- If Label10.Text <= 0 Then Timer1.Stop() ' Stoppt sich selber, wenn Zähler 0 ist
- If Label10.Text <= 0 Then Timer2.Start() 'Startet den "Checker"
- End Sub
- Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
- If CheckBox1.Checked = True Then Timer3.Start() 'Wenn CB 1 gecheckt (+) dann startet er Timer3
- If CheckBox2.Checked = True Then Timer4.Start() 'Wenn CB 2 gecheckt (+) dann startet er Timer4
- If CheckBox1.Checked = False Then If CheckBox2.Checked = False Then Timer5.Start() 'Wenn beide gecheckt (-) dann startet er Timer5
- If Label12.Text = 14 Then If CheckBox1.Checked = True Then Timer3.Stop() Else If CheckBox2.Checked = True Then Timer4.Stop() Else Timer5.Stop()
- If Label12.Text = 14 Then If CheckBox1.Checked = True Then Timer6.Start() Else If CheckBox2.Checked = True Then Timer7.Start()
- If Label12.Text = 14 Then Timer2.Stop() 'Stoppt diesen Timer (Ganzer Block)
- End Sub
- Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
- My.Computer.Keyboard.SendKeys("Medium rare please")
- My.Computer.Keyboard.SendKeys("{Enter}")
- My.Computer.Keyboard.SendKeys("<censored>")
- My.Computer.Keyboard.SendKeys("{Enter}")
- My.Computer.Keyboard.SendKeys("Nova & orion")
- My.Computer.Keyboard.SendKeys("{Enter}")
- My.Computer.Keyboard.SendKeys("Give me liberty or give me coin")
- My.Computer.Keyboard.SendKeys("{Enter}")
- Label12.Text = Label12.Text + 1 'Zähler
- End Sub
- Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick
- My.Computer.Keyboard.SendKeys("Medium rare please")
- My.Computer.Keyboard.SendKeys("{Enter}")
- My.Computer.Keyboard.SendKeys("<censored>")
- My.Computer.Keyboard.SendKeys("{Enter}")
- My.Computer.Keyboard.SendKeys("Nova & orion")
- My.Computer.Keyboard.SendKeys("{Enter}")
- My.Computer.Keyboard.SendKeys("Give me liberty or give me coin")
- My.Computer.Keyboard.SendKeys("{Enter}")
- Label12.Text = Label12.Text + 1 'Zähler
- End Sub
- Private Sub Timer5_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer5.Tick
- My.Computer.Keyboard.SendKeys("Medium rare please")
- My.Computer.Keyboard.SendKeys("{Enter}")
- My.Computer.Keyboard.SendKeys("<censored>")
- My.Computer.Keyboard.SendKeys("{Enter}")
- My.Computer.Keyboard.SendKeys("Nova & orion")
- My.Computer.Keyboard.SendKeys("{Enter}")
- My.Computer.Keyboard.SendKeys("Give me liberty or give me coin")
- My.Computer.Keyboard.SendKeys("{Enter}")
- Label12.Text = Label12.Text + 1 'Zähler
- End Sub
- Private Sub Timer6_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer6.Tick
- My.Computer.Keyboard.SendKeys("X marks the spot")
- My.Computer.Keyboard.SendKeys("{Enter}")
- My.Computer.Keyboard.SendKeys("This is too hard")
- My.Computer.Keyboard.SendKeys("{Enter}")
- My.Computer.Keyboard.SendKeys("Speed always wins")
- My.Computer.Keyboard.SendKeys("{Enter}")
- My.Computer.Keyboard.SendKeys("tuck tuck tuck")
- My.Computer.Keyboard.SendKeys("{Enter}")
- Label18.Text = Label18.Text + 1 'Zähler
- Timer6.Stop() 'Stoppt diesen Timer (Ganzer Block)
- End Sub
- Private Sub Timer7_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer7.Tick
- My.Computer.Keyboard.SendKeys("X marks the spot")
- My.Computer.Keyboard.SendKeys("{Enter}")
- Label16.Text = Label16.Text + 1 'Zähler
- Timer7.Stop() 'Stoppt diesen Timer (Ganzer Block)
- End Sub
- End Class
Und derjenige der AOE III hat soll es doch gerne mal runterladen
MESS WITH THE BEST, DIE LIKE THE REST!