Hallo Community,
ich habe ein einfaches Programm mit Visual Basic 2008 programmiert.
Wofür ist das Programm gut?
Es ist für Chats wie z.B. Knuddles oder Habbo in denen man Punkte für die Onlinezeit bekommt(Man kann ihn natürlich auch für viele andere Spiele benutzen in dem man Punkte bekommt nicht nur für browsergames). Wenn man einfach vom PC weggeht und den Chat weiterlaufen lässt damit man auch weiter Punkte bekommt wird man nach einer bestimmten zeit rausgeworfen. Das passiert mit diesem programm nicht.
Was kann das Programm?
4 verschiedene Texte schreiben
Alle 4 kann man selber bestimmen
Für alle 4 Texte die Geschwindigkeit ändern
Der Button "Immer immer im Vordergrund" erklärt sich von selber und der Button "Normal" macht das gegenteil von immer im Vordergrund
Screen:
Wie funktioniert das?
1. Datei entpacken
2. Auto Sprecher.exe Starten
3. Einstellungen vornehmen (links der Text und rechts die Geschwindigkeit in
Milisekunden!)
4. Start drücken und zum Fenster wechseln in dem Geschrieben werden soll
5. Zeit für etwas anderes haben
Virus Total:
Source Code:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Enabled = True
Timer2.Enabled = True
Timer3.Enabled = True
Timer4.Enabled = True
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
Timer4.Enabled = False
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Timer1.Interval = SpeedBox1.Text
SendKeys.Send(TextBox1.Text)
SendKeys.Send("{Enter}")
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
Timer2.Interval = Speedbox2.Text
SendKeys.Send(TextBox2.Text)
SendKeys.Send("{Enter}")
End Sub
Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
Timer3.Interval = Speedbox3.Text
SendKeys.Send(TextBox3.Text)
SendKeys.Send("{Enter}")
End Sub
Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick
Timer4.Interval = Speedbox4.Text
SendKeys.Send(TextBox4.Text)
SendKeys.Send("{Enter}")
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
TopMost = True
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
TopMost = False
End Sub
End Class
Ein
tut nicht weh
MFG
Werwolfmassaker
