Spammbot For, Next

03/21/2011 19:06 Ludder231#1
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?
03/21/2011 20:46 WennsHilft#2
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 :D

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 :p
03/21/2011 21:11 Ludder231#3
Quote:
Originally Posted by WennsHilft View Post
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 :D

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 :p
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?
03/21/2011 21:22 WennsHilft#4
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)
03/21/2011 21:50 Ludder231#5
Quote:
Originally Posted by WennsHilft View Post
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
03/21/2011 22:15 WennsHilft#6
.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.
03/22/2011 12:03 lolkop#7
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
03/22/2011 14:14 Ludder231#8
Quote:
Originally Posted by lolkop View Post
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. :)
03/22/2011 14:28 Ludder231#9
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 
03/22/2011 16:47 lolkop#10
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.
03/22/2011 20:06 Ludder231#11
Quote:
Originally Posted by lolkop View Post
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 :)