Spammbot For, Next

Ludder231 · 03/21/2011, 19:06

Hi ich habe ein Problem mit meinem Spammbot

PHP Code:


			
#include <ButtonConstants.au3>

#include <EditConstants.au3>

#include <GUIConstantsEx.au3>

#include <StaticConstants.au3>

#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=d:\neuer ordner\koda_1.7.3.0\forms\spammer.kxf

$Form1_1 = GUICreate("Spammer", 212, 292, 191, 121)

$Label1 = GUICtrlCreateLabel("Text to Spam:", 8, 8, 86, 20)

GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")

$Input1 = GUICtrlCreateInput("Here the Text", 8, 32, 193, 21)

$Label2 = GUICtrlCreateLabel("How often to Spam:", 8, 64, 119, 20)

GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")

$Checkbox8 = GUICtrlCreateCheckbox("Checkbox8", 24, 136, 1, 9)

$Button1 = GUICtrlCreateButton("Activate", 56, 216, 97, 25)

GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")

$Label3 = GUICtrlCreateLabel("Press F1 to start spamming", 8, 248, 130, 17)

$Label4 = GUICtrlCreateLabel("Press F3 to show the Menü", 8, 264, 133, 17)

$Label5 = GUICtrlCreateLabel("Wait between the last spam:", 8, 168, 170, 20)

GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")

$Radio10 = GUICtrlCreateRadio("1x", 8, 88, 41, 25)

$Radio11 = GUICtrlCreateRadio("2x", 48, 88, 41, 25)

$Radio12 = GUICtrlCreateRadio("3x", 80, 88, 49, 25)

$Radio13 = GUICtrlCreateRadio("5x", 8, 112, 33, 25)

$Radio14 = GUICtrlCreateRadio("10x", 48, 112, 41, 25)

$Radio15 = GUICtrlCreateRadio("15x", 88, 112, 49, 25)

$Radio16 = GUICtrlCreateRadio("20x", 8, 136, 33, 25)

$Radio17 = GUICtrlCreateRadio("25x", 48, 136, 33, 25)

$Radio18 = GUICtrlCreateRadio("30x", 88, 136, 41, 25)

$Input2 = GUICtrlCreateInput("1000", 8, 192, 41, 21)

$Label6 = GUICtrlCreateLabel("Milliseconds", 56, 192, 79, 20)

GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")

GUISetState(@SW_SHOW)

#EndRegion ### END Koda GUI section ###





HotKeySet("{F1}", "_Start")

HotKeySet("{F3}", "_Menue")

$Radio10=1

$Radio11=2

$Radio12=3

$Radio13=5

$Radio14=10

$Radio15=15

$Radio16=20

$Radio17=25

$Radio18=30



While 1

    $nMsg = GUIGetMsg()

    Switch $nMsg

        Case $GUI_EVENT_CLOSE

            Exit

        case $Button1

            GUISetState(@sw_hide)

            _tooltip()

            iniWrite(@DesktopCommonDir&"\Spammer.ini", "", "Spam", GUICtrlRead($Input1))

            iniWrite(@DesktopCommonDir&"\Spammer.ini", "", "Time", GUICtrlRead($Input2))

            

EndSwitch



WEnd



func _tooltip()

    ToolTip("Press F1 to Start spamming" & @CRLF & _

            "Press F3 to show the Menü", 1, 1, "Help", 1)

        EndFunc

        

Func _Start()

For $i=1 to $Radio11

send(Iniread(@DesktopCommonDir&"\Spammer.ini", "", "Spam", GUICtrlRead($Input1, $Radio11)))

send("{enter}")

sleep(Iniread(@DesktopCommonDir&"\Spammer.ini", "", "Time", GUICtrlRead($Input2)))

next

EndFunc  



func _Menue()

    GUISetState(@sw_show, "Spammer")

    endfunc

Und zwar weiß ich nicht wie ich es machen soll, wenn man $Radio12, 13 usw. anklickt. Wenn ich

PHP Code:


			
Func _Start()

For $i=1 to $Radio11

send(Iniread(@DesktopCommonDir&"\Spammer.ini", "", "Spam", GUICtrlRead($Input1, $Radio11)))

send("{enter}")

sleep(Iniread(@DesktopCommonDir&"\Spammer.ini", "", "Time", GUICtrlRead($Input2)))

next



For $i=1 to $Radio10

send(Iniread(@DesktopCommonDir&"\Spammer.ini", "", "Spam", GUICtrlRead($Input1, $Radio10)))

send("{enter}")

sleep(Iniread(@DesktopCommonDir&"\Spammer.ini", "", "Time", GUICtrlRead($Input2)))

next

mache spammt der das 3 mal egal was ich anklcike. Was muss icht tun?

WennsHilft · 03/21/2011, 20:46

Sorry ich bin absoluter NOOB in dem Bereich ^^
aber check ma deine $Radio´s.

kannst du die radios so aufsetzen das mann die zahl im fertigen bot selber auswählen kann?

Hier das funktionierende überbleibsel

PHP Code:


			
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=d:\neuer ordner\koda_1.7.3.0\forms\spammer.kxf
$Form1_1 = GUICreate("Spammer", 212, 292, 191, 121)
$Label1 = GUICtrlCreateLabel("Text to Spam:", 8, 8, 86, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Input1 = GUICtrlCreateInput("Here the Text", 8, 32, 193, 21)
$Label2 = GUICtrlCreateLabel("How often to Spam:", 8, 64, 119, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Checkbox8 = GUICtrlCreateCheckbox("Checkbox8", 24, 136, 1, 9)
$Button1 = GUICtrlCreateButton("Activate", 56, 216, 97, 25)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("Press F1 to start spamming", 8, 248, 130, 17)
$Label4 = GUICtrlCreateLabel("Press F3 to show the Menü", 8, 264, 133, 17)
$Label5 = GUICtrlCreateLabel("Wait between the last spam:", 8, 168, 170, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Radio10 = GUICtrlCreateRadio("12x", 8, 88, 41, 25)

$Input2 = GUICtrlCreateInput("1000", 8, 192, 41, 21)
$Label6 = GUICtrlCreateLabel("Milliseconds", 56, 192, 79, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


HotKeySet("{F1}", "_Start")
HotKeySet("{F3}", "_Menue")
$Radio10=12


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        case $Button1
            GUISetState(@sw_hide)
            _tooltip()
            iniWrite(@DesktopCommonDir&"\Spammer.ini", "", "Spam", GUICtrlRead($Input1))
            iniWrite(@DesktopCommonDir&"\Spammer.ini", "", "Time", GUICtrlRead($Input2))

EndSwitch

WEnd

func _tooltip()
    ToolTip("Press F1 to Start spamming" & @CRLF & _
            "Press F3 to show the Menü", 1, 1, "Help", 1)
        EndFunc

Func _Start()
For $i=1 to $Radio10
send(Iniread(@DesktopCommonDir&"\Spammer.ini", "", "Spam", GUICtrlRead($Input1, $Radio10)))
send("{enter}")
sleep(Iniread(@DesktopCommonDir&"\Spammer.ini", "", "Time", GUICtrlRead($Input2)))
next
EndFunc

func _Menue()
    GUISetState(@sw_show, "Spammer")
    endfunc

die zahl 12 kannste ja wieder ändern, sollte ich es hinbekommen gebe ich den code hier rein

Ludder231 · 03/21/2011, 21:11

Quote:

Originally Posted by WennsHilft

Sorry ich bin absoluter NOOB in dem Bereich ^^
aber check ma deine $Radio´s.

kannst du die radios so aufsetzen das mann die zahl im fertigen bot selber auswählen kann?

Hier das funktionierende überbleibsel

PHP Code:

#include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Form=d:\neuer ordner\koda_1.7.3.0\forms\spammer.kxf $Form1_1 = GUICreate("Spammer", 212, 292, 191, 121) $Label1 = GUICtrlCreateLabel("Text to Spam:", 8, 8, 86, 20) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") $Input1 = GUICtrlCreateInput("Here the Text", 8, 32, 193, 21) $Label2 = GUICtrlCreateLabel("How often to Spam:", 8, 64, 119, 20) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") $Checkbox8 = GUICtrlCreateCheckbox("Checkbox8", 24, 136, 1, 9) $Button1 = GUICtrlCreateButton("Activate", 56, 216, 97, 25) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") $Label3 = GUICtrlCreateLabel("Press F1 to start spamming", 8, 248, 130, 17) $Label4 = GUICtrlCreateLabel("Press F3 to show the Menü", 8, 264, 133, 17) $Label5 = GUICtrlCreateLabel("Wait between the last spam:", 8, 168, 170, 20) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") $Radio10 = GUICtrlCreateRadio("12x", 8, 88, 41, 25) $Input2 = GUICtrlCreateInput("1000", 8, 192, 41, 21) $Label6 = GUICtrlCreateLabel("Milliseconds", 56, 192, 79, 20) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### HotKeySet("{F1}", "_Start") HotKeySet("{F3}", "_Menue") $Radio10=12 While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit case $Button1 GUISetState(@sw_hide) _tooltip() iniWrite(@DesktopCommonDir&"\Spammer.ini", "", "Spam", GUICtrlRead($Input1)) iniWrite(@DesktopCommonDir&"\Spammer.ini", "", "Time", GUICtrlRead($Input2)) EndSwitch WEnd func _tooltip() ToolTip("Press F1 to Start spamming" & @CRLF & _ "Press F3 to show the Menü", 1, 1, "Help", 1) EndFunc Func _Start() For $i=1 to $Radio10 send(Iniread(@DesktopCommonDir&"\Spammer.ini", "", "Spam", GUICtrlRead($Input1, $Radio10))) send("{enter}") sleep(Iniread(@DesktopCommonDir&"\Spammer.ini", "", "Time", GUICtrlRead($Input2))) next EndFunc func _Menue() GUISetState(@sw_show, "Spammer") endfunc

die zahl 12 kannste ja wieder ändern, sollte ich es hinbekommen gebe ich den code hier rein

Ich weiß das es einzelnt funktioniert das hab ich schon gewusst

Und ja es wäre wohl einfacher mit ner Inputbox in der form....
Ich werde mich morgen mal ransetzen...
Aber ich wollte das eig. mit den Radiobuttons machen, da es aber ja nicht gut funktioniert wegen den for und next werde ichs mit der input machen wie mit den pausen dazwischen.....
Soll ich ihn dir dann schicken den bot, vllt willste ihn ja selber auch benutzen?

WennsHilft · 03/21/2011, 21:22

Klar ^^ wäre cool den dann zu erweitern und oder selber zu nutzen.

Hinter die radi11 müssteste noch die anderen und davor die 10 setzen dann müsste es gehen.

(und schreibe rein das es deiner ist, falls du das teil als .exe erstellst)

Ludder231 · 03/21/2011, 21:50

Quote:

Originally Posted by WennsHilft

Klar ^^ wäre cool den dann zu erweitern und oder selber zu nutzen.

Hinter die radi11 müssteste noch die anderen und davor die 10 setzen dann müsste es gehen.

(und schreibe rein das es deiner ist, falls du das teil als .exe erstellst)

jo, okay....werde morgen noch was ergänzen.
soll ich dir die .au3 schicken oder die exe, dann kannst du noch was ändern, oder du sagst mir was du reintuen wuürdest ich hab gerade keine idee mehr was ich da noch ergänzen könnte

WennsHilft · 03/21/2011, 22:15

.au3 wäre nett um es wenn nötig zu ändern ^^ (Icon, Form u.s.w.)

Ne Pause müsste rein ^^ hab mir vorhin statts 12 mal 10000000000 eingetippt.
Da gings rund als ich im I-Net was schreiben wollte.

lolkop · 03/22/2011, 12:03

du hast einen logikfehler in deinem script.

wenn du ein controlhandle in einer variable speicherst zb:

Quote:

Code:

$Radio10 = GUICtrlCreateRadio("1x", 8, 88, 41, 25) 
; hier wird das handle vom radio in $Radio10 gespeichert
; der inhalt kann per guictrlread vom handle abgerufen werden

darfst du es selbstverständlich später nicht durch eine beliebige zahl ersetzen, wie du es wenige zeilen darunter getan hast:

Quote:
Code:
$Radio10=1

versuchst du nun den status vom radio button per guictrlread auszulesen, so wird der befehl auf ein control mit dem handle 1 angewendet.
(handles werden der reihe nach vergeben -> die 1 sollte irgendeine windows interne belegung sein)

desweiteren solltest du dir angewöhnen mit arrays zu arbeiten.
so könnte beispielsweise dein gui sehr schön in einer schleife, und die control handles der radios in einem array gespeichert werden.

diese könnten dann auch bei weitem leichter abgefragt werden

Ludder231 · 03/22/2011, 14:14

Quote:

Originally Posted by lolkop

du hast einen logikfehler in deinem script.

wenn du ein controlhandle in einer variable speicherst zb:

darfst du es selbstverständlich später nicht durch eine beliebige zahl ersetzen, wie du es wenige zeilen darunter getan hast:

versuchst du nun den status vom radio button per guictrlread auszulesen, so wird der befehl auf ein control mit dem handle 1 angewendet.
(handles werden der reihe nach vergeben -> die 1 sollte irgendeine windows interne belegung sein)

desweiteren solltest du dir angewöhnen mit arrays zu arbeiten.
so könnte beispielsweise dein gui sehr schön in einer schleife, und die control handles der radios in einem array gespeichert werden.

diese könnten dann auch bei weitem leichter abgefragt werden

Ah THX, das mal wenigstens ein beitrag der mir Hilft

Ja ich bin leider noch ein anfänger und sollte mcih mal wie du sagst, auf Arrays konzentrieren, ja.
Ich gucks mir mal noch ein bisschen an in den tuts die es hier gibt.

Ludder231 · 03/22/2011, 14:28

So hab jetzt einiges verändert, müsste also alles klappen, wenn nicht bitte sagen

Hier der Code:

PHP Code:


			
#include <ButtonConstants.au3>

#include <EditConstants.au3>

#include <GUIConstantsEx.au3>

#include <StaticConstants.au3>

#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=d:\neuer ordner\koda_1.7.3.0\forms\spammer.kxf

$Form1_1 = GUICreate(" |:=-Spammer-=:|", 212, 294, 191, 121)

$Label1 = GUICtrlCreateLabel("Text to Spam:", 8, 8, 86, 20)

GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")

$Input1 = GUICtrlCreateInput("Here the Text", 8, 32, 193, 21)

$Label2 = GUICtrlCreateLabel("How often to Spam:", 8, 64, 119, 20)

GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")

$Checkbox8 = GUICtrlCreateCheckbox("Checkbox8", 24, 136, 1, 9)

$Button1 = GUICtrlCreateButton("Activate", 56, 168, 97, 25)

GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")

$Label3 = GUICtrlCreateLabel("Press F1 to start spamming", 8, 200, 130, 17)

$Label4 = GUICtrlCreateLabel("Press F3 to show the Menü", 8, 216, 133, 17)

$Label5 = GUICtrlCreateLabel("Wait between the last spam:", 8, 120, 170, 20)

GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")

$Input2 = GUICtrlCreateInput("1000", 8, 144, 41, 21)

$Label6 = GUICtrlCreateLabel("Milliseconds", 56, 144, 79, 20)

GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")

$Input3 = GUICtrlCreateInput("15", 8, 88, 41, 21)

$Label7 = GUICtrlCreateLabel("Press F5 for pause", 8, 232, 92, 17)

$Label8 = GUICtrlCreateLabel("Made by Ludder231", 0, 272, 116, 17)

GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")

GUICtrlSetColor(-1, 0x000080)

GUISetState(@SW_SHOW)

#EndRegion ### END Koda GUI section ###



HotKeySet("{F1}", "_Start")

HotKeySet("{F3}", "_pause")





While 1

    $nMsg = GUIGetMsg()

    Switch $nMsg

        Case $GUI_EVENT_CLOSE

            Exit

        case $Button1

            GUISetState(@sw_hide)

            iniWrite(@DesktopCommonDir&"\Spammer.ini", "", "Spam", GUICtrlRead($Input1))

            iniWrite(@DesktopCommonDir&"\Spammer.ini", "", "Time", GUICtrlRead($Input2))

            iniWrite(@DesktopCommonDir&"\Spammer.ini", "", "Howmuch", GUICtrlRead($Input3))

            if not FileExists(@DesktopCommonDir&"\Spammer.ini") Then

                msgbox(16, "Error", "Spammer.ini don't exist...")

                endif

            _tooltip()

            

EndSwitch



WEnd



func _tooltip()

    ToolTip("Press F1 to Start spamming" & @CRLF & _

            "Press F3 to pause the bot", 0, 0, "Help", 1)

        EndFunc

        

Func _Start()

for $i=1 to GUICtrlRead($Input3)

send(Iniread(@DesktopCommonDir&"\Spammer.ini", "", "", GUICtrlRead($Input1)))

send("{enter}")

sleep(Iniread(@DesktopCommonDir&"\Spammer.ini", "", "Time", GUICtrlRead($Input2)))

next

GUISetState(@sw_show, " |:=-Spammer-=:|")

MsgBox(0, "Ready", "Finished spamming...") 



endFunc  





func _pause()

    while 1

        sleep(500)

        wend

endfunc

lolkop · 03/22/2011, 16:47

falls du dich nocheinmal mit arrays beschäftigen möchtest, hier ein beispiel wie man das ganze lauffen lassen könnte, ohne dabei durch sleeps das gui zu blockieren:

Code:

Dim $timer, $radio[9], $repeat[9] = [1, 2, 3, 5, 10, 15, 20, 25, 30]
Dim $selected, $curSend, $run = False, $label[2] = ['Start','Stop']

$gui = GUICreate("Spammer", 212, 292, 191, 121, 0x90CA0000, 8)
GUICtrlCreateLabel("Text to Spam:", 8, 8, 86, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$textInput = GUICtrlCreateInput('', 8, 32, 193, 21)
GUICtrlCreateLabel("How often to Spam:", 8, 64, 119, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$startButton = GUICtrlCreateButton("Start", 56, 216, 97, 25)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlCreateLabel("Press F1 to start spamming", 8, 248, 130, 17)
GUICtrlCreateLabel("Press F3 to show the Menü", 8, 264, 133, 17)
GUICtrlCreateLabel("Wait between the last spam:", 8, 168, 170, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
For $i=0 To 2
	$radio[$i] = GUICtrlCreateRadio($repeat[$i]&'x', 8+40*$i, 88, 40, 25)
	$radio[$i+3] = GUICtrlCreateRadio($repeat[$i+3]&'x', 8+40*$i, 112, 40, 25)
	$radio[$i+6] = GUICtrlCreateRadio($repeat[$i+6]&'x', 8+40*$i, 136, 40, 25)
Next
$sleepInput = GUICtrlCreateInput('', 8, 192, 41, 21)
GUICtrlCreateLabel("Milliseconds", 56, 192, 79, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetData($textInput, IniRead(@DesktopCommonDir&"\Spammer.ini", '', 'Spam', "Here the Text"))
GUICtrlSetData($sleepInput, IniRead(@DesktopCommonDir&"\Spammer.ini", '', 'Time', 1000))

While 1
	$msg = GUIGetMsg()
    Switch $msg
        Case -3
            Exit
        Case $startButton
			ChangeState()
			IniWrite(@DesktopCommonDir&"\Spammer.ini", "", "Spam", GUICtrlRead($textInput))
			IniWrite(@DesktopCommonDir&"\Spammer.ini", "", "Time", GUICtrlRead($sleepInput))
	EndSwitch
	For $i=0 To 8
		If $msg = $radio[$i] Then $selected = $i
	Next
	If $run And Not WinActive($gui) And TimerDiff($timer) > GUICtrlRead($sleepInput) Then
		If $curSend >= $repeat[$selected] Then ChangeState()
		Send(GUICtrlRead($textInput))
		Send('{ENTER}')
		$curSend += 1
		$timer = TimerInit()
	EndIf
WEnd
Func ChangeState()
	$curSend = 1
	$run = Not $run
	GUICtrlSetData($startButton, $label[$run])
EndFunc

eigentlich darf man in solchen projekten aufgrund des fehlenden multithreadings nämlich garkeine for schleifen, in verbindung mit sleeps, in der hauptschleife haben.

da ich nicht verstanden habe, was die ini da eigentlich in deinem programm sollte, habe ich diese mal als save funktion genutzt.

Ludder231 · 03/22/2011, 20:06

Quote:

Originally Posted by lolkop

falls du dich nocheinmal mit arrays beschäftigen möchtest, hier ein beispiel wie man das ganze lauffen lassen könnte, ohne dabei durch sleeps das gui zu blockieren:

Code:

Dim $timer, $radio[9], $repeat[9] = [1, 2, 3, 5, 10, 15, 20, 25, 30]
Dim $selected, $curSend, $run = False, $label[2] = ['Start','Stop']

$gui = GUICreate("Spammer", 212, 292, 191, 121, 0x90CA0000, 8)
GUICtrlCreateLabel("Text to Spam:", 8, 8, 86, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$textInput = GUICtrlCreateInput('', 8, 32, 193, 21)
GUICtrlCreateLabel("How often to Spam:", 8, 64, 119, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$startButton = GUICtrlCreateButton("Start", 56, 216, 97, 25)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlCreateLabel("Press F1 to start spamming", 8, 248, 130, 17)
GUICtrlCreateLabel("Press F3 to show the Menü", 8, 264, 133, 17)
GUICtrlCreateLabel("Wait between the last spam:", 8, 168, 170, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
For $i=0 To 2
	$radio[$i] = GUICtrlCreateRadio($repeat[$i]&'x', 8+40*$i, 88, 40, 25)
	$radio[$i+3] = GUICtrlCreateRadio($repeat[$i+3]&'x', 8+40*$i, 112, 40, 25)
	$radio[$i+6] = GUICtrlCreateRadio($repeat[$i+6]&'x', 8+40*$i, 136, 40, 25)
Next
$sleepInput = GUICtrlCreateInput('', 8, 192, 41, 21)
GUICtrlCreateLabel("Milliseconds", 56, 192, 79, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetData($textInput, IniRead(@DesktopCommonDir&"\Spammer.ini", '', 'Spam', "Here the Text"))
GUICtrlSetData($sleepInput, IniRead(@DesktopCommonDir&"\Spammer.ini", '', 'Time', 1000))

While 1
	$msg = GUIGetMsg()
    Switch $msg
        Case -3
            Exit
        Case $startButton
			ChangeState()
			IniWrite(@DesktopCommonDir&"\Spammer.ini", "", "Spam", GUICtrlRead($textInput))
			IniWrite(@DesktopCommonDir&"\Spammer.ini", "", "Time", GUICtrlRead($sleepInput))
	EndSwitch
	For $i=0 To 8
		If $msg = $radio[$i] Then $selected = $i
	Next
	If $run And Not WinActive($gui) And TimerDiff($timer) > GUICtrlRead($sleepInput) Then
		If $curSend >= $repeat[$selected] Then ChangeState()
		Send(GUICtrlRead($textInput))
		Send('{ENTER}')
		$curSend += 1
		$timer = TimerInit()
	EndIf
WEnd
Func ChangeState()
	$curSend = 1
	$run = Not $run
	GUICtrlSetData($startButton, $label[$run])
EndFunc

eigentlich darf man in solchen projekten aufgrund des fehlenden multithreadings nämlich garkeine for schleifen, in verbindung mit sleeps, in der hauptschleife haben.

da ich nicht verstanden habe, was die ini da eigentlich in deinem programm sollte, habe ich diese mal als save funktion genutzt.

Oh das sieht für meinen geschmack etwas zu kompliziert aus