[VB.net]TS Spammer (SendKeys.Send geht plötzlich nicht mehr)
Ja,
also ich Programmiere noch nicht lange in VB.net (08)
und wollte jetzt mal ein wenig die SendKeys funktion einüben.
Da dachte ich mir so ein Kleiner TeamSpeak Spammer (zum Channel's erstellen)
über SendKeys zu erstellen wäre da eigentlich gut für geeignet.
So habe ich dan angefangen und erstmal Probiert nur über Tasten einen Channel zu erstellen was nicht schwer war und dies dan in einen Timer zu
übertragen.
Jedoch wenn ich es so mache also ohne anwendung geht es ohne Probleme durch, aber wenn ich es mit dem Programm versuche bleibt es bei dem
"Password" eigabe feld hängen.
Wechselt also in das feld macht aber die eingabe nicht und wechselt über SendKeys.Send("{TAB}") auch nicht zum nächsten feld (Codec).
Jetzt wollte ich mal hier fragen woran das liegen kann.
Hier ist der Source aus dem Timer:
Code:
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
AppActivate("TeamSpeak 2") ' Wechselt zum TS2 Fenster
Threading.Thread.Sleep("5")
SendKeys.Send("%c")
SendKeys.Send("c")
Threading.Thread.Sleep("5")
SendKeys.Send(TextBox1.Text & Label4.Text) ' Schreibt den ChannelNamen + Aktuelle Nr.
Threading.Thread.Sleep("5")
SendKeys.Send("{TAB}")
Threading.Thread.Sleep("2")
SendKeys.Send(TextBox2.Text) ' Schreibt den ChannelTopic
Threading.Thread.Sleep("5")
SendKeys.Send("{TAB}")
Threading.Thread.Sleep("2")
SendKeys.Send(TextBox4.Text) ' Schriebt das ChannelPasswort
Threading.Thread.Sleep("5")
SendKeys.Send("{TAB}")
Threading.Thread.Sleep("2")
End Sub
Danke schonmal im voraus für eure hilfe :)
