Code:
ProgressOn("SpambotV4", "Bot wird geöffnet")
ProgressSet(10)
Sleep(250)
ProgressSet(20)
Sleep(250)
ProgressOn("SpambotV4","Optionen werden geladen")
ProgressSet(30)
Sleep(250)
ProgressSet(40)
Sleep(250)
ProgressSet(50)
Sleep(250)
ProgressOn("SpambotV4","Troll")
ProgressSet(60)
Sleep(250)
ProgressOn("SpambotV4","Optionen werden geladen")
ProgressSet(70)
Sleep(250)
ProgressSet(80)
Sleep(250)
ProgressSet(90)
Sleep(250)
ProgressSet(100)
ProgressSet(100 , "", "Fertig")
sleep(250)
ProgressOff()
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1_1 = GUICreate("SpambotV5", 257, 222, 200, 129)
$input1 = GUICtrlCreateInput("spamtext", 32, 16, 169, 21)
$input2 = GUICtrlCreateInput("zeit zwischen spamtexten", 32, 48, 169, 21)
$Input3 = GUICtrlCreateInput("taste um chat zu öffnen", 32, 80, 169, 21)
$input4 = GUICtrlCreateInput("wartezeit nach öffnen von chat", 32, 112, 169, 21)
$Button1 = GUICtrlCreateButton("Go", 88, 136, 57, 25)
$Button2 = GUICtrlCreateButton("Abbrechen", 88, 160, 57, 25)
$Button3 = GUICtrlCreateButton("Hotkeys", 88, 184, 57, 25)
$enter = GUICtrlCreateCheckbox("enter drücken", 152, 144, 97, 17)
$enter = GUICtrlSetState(-1, $GUI_UNCHECKED)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
ProgressOn("SpambotV4", "bot wird geschlossen")
Sleep(250)
ProgressSet(25)
Sleep(250)
ProgressSet(50)
Sleep(250)
ProgressSet(75)
Sleep(250)
ProgressSet(100)
ProgressSet(100,"","Fertig")
Exit
Case $Button1
ProgressOn("SpambotV4", "Informationen werden gelesen")
Sleep(250)
ProgressSet(10)
Sleep(250)
ProgressSet(20)
Sleep(250)
ProgressOn("SpambotV4","spammen vorbereiten")
ProgressSet(30)
Sleep(250)
ProgressSet(40)
Sleep(250)
ProgressSet(50)
Sleep(250)
ProgressOn("SpambotV4","Troll")
ProgressSet(60)
Sleep(250)
ProgressOn("SpambotV4","spammen vorbereiten")
ProgressSet(70)
Sleep(250)
ProgressSet(80)
Sleep(250)
ProgressSet(90)
Sleep(250)
ProgressSet(100)
ProgressSet(100 , "", "Fertig")
Sleep(250)
ProgressOff()
HotKeySet("{F6}","main")
HotKeySet("{F7}","pause")
HotKeySet("{F8}","stop")
Func main()
While 1
send(GuiCtrlread($input3))
sleep(GuiCtrlread($input4))
send(GUICtrlRead($input1))
If $enter = $GUI_CHECKED Then
send("{Enter}")
Else
EndIf
sleep(GUICtrlRead($input2))
WEnd
EndFunc
Func pause()
While 1
sleep(1)
WEnd
EndFunc
Func stop()
ProgressOn("SpambotV4", "bot wird geschlossen")
Sleep(250)
ProgressSet(25)
Sleep(250)
ProgressSet(50)
Sleep(250)
ProgressSet(75)
Sleep(250)
ProgressSet(100)
Exit
EndFunc
Case $Button2
ProgressOn("SpambotV4", "bot wird geschlossen")
Sleep(250)
ProgressSet(25)
Sleep(250)
ProgressSet(50)
Sleep(250)
ProgressSet(75)
Sleep(250)
ProgressSet(100)
Exit
Case $Button3
ProgressOn("SpambotV4", "hotkeys werden auf richtigkeit überprüft")
Sleep(250)
ProgressSet(10)
Sleep(250)
ProgressSet(20)
Sleep(250)
ProgressOn("SpambotV4","fenster wird geladen")
ProgressSet(30)
Sleep(250)
ProgressSet(40)
Sleep(250)
ProgressSet(50)
Sleep(250)
ProgressOn("SpambotV4","Troll")
ProgressSet(60)
Sleep(250)
ProgressOn("SpambotV4","Fenster wird geladen")
ProgressSet(70)
Sleep(250)
ProgressSet(80)
Sleep(250)
ProgressSet(90)
Sleep(250)
ProgressSet(100)
ProgressSet(100 , "", "Fertig")
Sleep(250)
ProgressOff()
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Hotkeys", 159, 99, 192, 124)
$Label1 = GUICtrlCreateLabel("F6 zum starten des bots", 16, 16, 116, 17)
$Label2 = GUICtrlCreateLabel("F7 zum pausieren des bots", 16, 40, 130, 17)
$Label3 = GUICtrlCreateLabel("F8 zum beenden des bots", 16, 64, 126, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
EndSwitch
WEnd