Anti AFK

04/02/2012 16:16 cLx.##1
Hallo,
ich bin dabei ein Anti AFK Bot für WoW zu erstellen
nun bin ich ein Totaler Noob ;D

Meine Frage ist es wie bekomme ich es hin das ich in die Textbox einen Wert in MS ein gebe und er es automatisch auf den Timer überspielt.
Nun so weit bin ich :

Code:
    Private Sub Start_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Start.Click
        Timer1.Start()
        Timer1.Interval = CInt(Interval.Text)
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Timer1.Interval = CInt(Interval.Text)
        AppActivate("World of Warcraft")
        SendKeys.Send("w")
        SendKeys.Send("w")
        SendKeys.Send("w")
        SendKeys.Send("SPACE")
        SendKeys.Send("w")
        SendKeys.Send("w")
        SendKeys.Send("SPACE")
        SendKeys.Send("SPACE")
        SendKeys.Send("SPACE")
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Beenden_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Beenden.Click
        Me.Close()
    End Sub

    Private Sub Break_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Break.Click
        Timer1.Stop()
    End Sub
End Class
04/02/2012 16:56 boxxiebabee#2
Du meinst den Timer Intervall?
Einfach KeyDown / oder KeyUp Event für die Textbox erstellen und dann timer1.intervall = textbox1.Text (oder so ähnlich, kA von der vb.net syntax)
04/02/2012 22:19 cLx.##3
Ich habe es soweit hinbekommen
Nun ist aber ein anderes Problem aufgetaucht er sendet es nicht mehr an WoW
Also wenn ich Ingame bin macht er nichts woran könnte es liegen ?

Code:
        AppActivate("beliebiges spiel")
        SendKeys.Send("{W}")
        Sleep(2000)
        SendKeys.Send("{W}")
        Sleep(2000)
        SendKeys.Send("{W}")
        Sleep(2000)
        SendKeys.Send("{Space}")
04/03/2012 00:22 ef784fH/FAE7#4
Hallo,

da kann man nicht viel falsch machen.


Button1_Click
...
timer1.interval = textbox1.text
timer1.enabled = true

Timer1_Tick
...
'My.Computer.Keyboard.Sendkeys("A")
'My.Computer.Keyboard.Sendkeys("{Enter}")
04/11/2012 13:16 SuckMyBaum#5
ALso bei send keys in vb2010 ... naja war ich schon immer dagegen :D
Ich würde dir raten, dich mit autoit auseinander zu setzten. Machste am besten so -->

1. AutoIT hier downloaden:
1.1 [Only registered and activated users can see links. Click Here To Register...]
1.2 [Only registered and activated users can see links. Click Here To Register...]
2. Installieren
3. Rechtsklick auf Desktop > Neu > AutoIt v3 Script
4. Downloade mein Script [[Only registered and activated users can see links. Click Here To Register...]] (Alles kommentiert)
5. Rechtsklick > "Edit Script"
5.1 Nun den Code durchlesen und "WinActivate" Funktion ändern, wegen dem Titel!
5.2 Rechtsklick > "Compile Script"
6. Dann die "move.exe" in dein VB2010 Ordner tun und Process.Start("move.exe")
04/11/2012 13:25 Jeoni#6
Von VB.net auf AutoIt? Das ist ja ein verdammt großer Rückschritt.
Bin in diesem Gebiet nicht so bewandert, aber du könntest ja mal "My.Computer.Keyboard.SendKeys("...")" benutzen. Vielleicht funktioniert das ja.
Auf jeden Fall würde ich fern von AutoIt bleiben. Ich finde diese Sprache zu unperformant und Multithreading geht damit auch nur bedingt. Abgesehen davon wird ein AutoIt Programm von vielen Anticheatsystemen schon als Hack gesehen.
04/11/2012 13:41 SuckMyBaum#7
Quote:
Originally Posted by Jeoni View Post
Von VB.net auf AutoIt? Das ist ja ein verdammt großer Rückschritt.
Bin in diesem Gebiet nicht so bewandert, aber du könntest ja mal "My.Computer.Keyboard.SendKeys("...")" benutzen. Vielleicht funktioniert das ja.
Auf jeden Fall würde ich fern von AutoIt bleiben. Ich finde diese Sprache zu unperformant und Multithreading geht damit auch nur bedingt. Abgesehen davon wird ein AutoIt Programm von vielen Anticheatsystemen schon als Hack gesehen.
Also AutoIt ist eigentlich eine Bot-Sprache. Und in VB2010 Sendkeys gibt es oft probleme das er sich versendet, wenn man einen string sendet, deswegen machte ich das mit AutoIt, da es besser klappte. Von mir aus kann er ja SendKeys benutzten, aber ich finde das in AutoIt besser. Naja sieht jeder anders ;)
04/11/2012 15:43 MoepMeep#8
AutoIt ist eine Scriptsprache und Müll. VB in meinen Augen übrigens auch.
04/12/2012 02:07 Kraizy​#9
Quote:
Originally Posted by MoepMeep View Post
VB in meinen Augen übrigens auch.
warum?^^ bis jz hatte ich noch keine nachteile damit gehabt
04/13/2012 01:17 vwap#10
Quote:
Originally Posted by MoepMeep View Post
AutoIt ist eine Scriptsprache und Müll. VB in meinen Augen übrigens auch.
Ob man VB oder C# verwendet ist Geschmackssache, da beides in ILCode übersetzt wird und das wiederrum zur Hälfte kompiliert wird.
04/17/2012 18:11 qickly#11
Warum nicht abwechseld die S und W Taste?
04/18/2012 15:20 cLx.##12
wie meinst du das ?
04/18/2012 15:53 Kilinat#13
SendKeys mit Tasten sollten eigentlich schon funktionieren. In der WINAPI gibts allerdings noch eine Funktion, die das noch besser macht.

[Only registered and activated users can see links. Click Here To Register...]

BTW: Er meint, warum du immer nur W sendest und nicht immer S und W abwechselnd ( für vor, zurück usw. )
04/18/2012 16:18 qickly#14
Das sich die Spielfigur nicht von der Stelle bewegt.