AutoIT Hilfe

01/06/2010 18:35 Banana.Crafts#1
So ich mach mal wieder ein Spam-Bot, aber diesmal mir GUI!
Allerdings stimmt der gesendete Text und der Delay nicht!
Bräuchte echt mal Hilfe!

PHP Code:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 177, 234, 192, 124)
$Checkbox1 = GUICtrlCreateCheckbox("Checkbox1", 8, 112, 17, 17)
$Checkbox2 = GUICtrlCreateCheckbox("Checkbox2", 8, 136, 17, 17)
$Checkbox3 = GUICtrlCreateCheckbox("Checkbox3", 8, 160, 17, 17)
$Text1 = GUICtrlCreateInput("Text1", 32, 112, 121, 21)
$Text2 = GUICtrlCreateInput("Text2", 32, 136, 121, 21)
$Text3 = GUICtrlCreateInput("Text3", 32, 160, 121, 21)
$Delay = GUICtrlCreateInput("Delay", 8, 80, 145, 21)
$Info = GUICtrlCreateButton("Info", 8, 200, 75, 25, 0)
$Exit = GUICtrlCreateButton("Exit", 88, 200, 75, 25, 0)
$Countdown = GUICtrlCreateLabel("Countdown", 8, 24, 58, 28)
$Start = GUICtrlCreateButton("Start", 72, 8, 75, 25, 0)
$Pause = GUICtrlCreateButton("Pause", 72, 48, 75, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Start
              Senden()
        Case $Pause
             Schlafen()
        Case $Exit
                Exit 
        Case $Info 
              Info()        
    EndSwitch
WEnd

HotKeySet("{F5}", "Senden()")
HotKeySet("{F6}", "Schlafen()")
HotKeySet("{ESC}", "beenden()")

Func Info()
    MsgBox("0", "Info", "Starten = F5, Pause = F6, Beenden = ESC")
    EndFunc

Func beenden()
    Exit
EndFunc

Func Schlafen()
    While 1
        Sleep(10000)
    WEnd
EndFunc

Func Senden()
    
        $Countdown = GUICtrlCreateLabel("5", 8, 24, 58, 28)
    Sleep(1000)
    $Countdown = GUICtrlCreateLabel("4", 8, 24, 58, 28)
    Sleep(1000)
    $Countdown = GUICtrlCreateLabel("3", 8, 24, 58, 28)
    Sleep(1000)
    $Countdown = GUICtrlCreateLabel("2", 8, 24, 58, 28)
    Sleep(1000)
    $Countdown = GUICtrlCreateLabel("1", 8, 24, 58, 28)
    Sleep(1000)
    $Countdown = GUICtrlCreateLabel("Start!", 8, 24, 58, 28)

    
    
    While 1
    If $Checkbox1 Then
        Send($Text1)
        Send("({Enter})")
    EndIf
    
    Sleep($Delay)

    
    If $Checkbox2 Then
      Send($Text2)
      Send("({Enter})")
  EndIf

Sleep($Delay)


    If $Checkbox3 Then
        Send($Text3)
        Send("({Enter})")
    EndIf

Sleep($Delay)


WEnd
EndFunc 
01/06/2010 19:18 KDeluxe#2
Benutze lieber Radioboxen

Code:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 177, 234, 192, 124)
$Checkbox1 = GUICtrlCreateCheckbox("Checkbox1", 8, 112, 17, 17)
$Checkbox2 = GUICtrlCreateCheckbox("Checkbox2", 8, 136, 17, 17)
$Checkbox3 = GUICtrlCreateCheckbox("Checkbox3", 8, 160, 17, 17)
$Text1 = GUICtrlCreateInput("Text1", 32, 112, 121, 21)
$Text2 = GUICtrlCreateInput("Text2", 32, 136, 121, 21)
$Text3 = GUICtrlCreateInput("Text3", 32, 160, 121, 21)
$Delay = GUICtrlCreateInput("Delay", 8, 80, 145, 21)
$Info = GUICtrlCreateButton("Info", 8, 200, 75, 25, 0)
$Exit = GUICtrlCreateButton("Exit", 88, 200, 75, 25, 0)
$Countdown = GUICtrlCreateLabel("Countdown", 8, 24, 58, 28)
$Start = GUICtrlCreateButton("Start", 72, 8, 75, 25, 0)
$Pause = GUICtrlCreateButton("Pause", 72, 48, 75, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

HotKeySet("{F5}", "_senden")
HotKeySet("{ESC}", "_beenden")

While True
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Start
				GUICtrlSetData($Countdown, "5")
				Sleep(1000)
				GUICtrlSetData($Countdown, "4")
				Sleep(1000)
				GUICtrlSetData($Countdown, "3")
				Sleep(1000)
				GUICtrlSetData($Countdown, "2")
				Sleep(1000)
				GUICtrlSetData($Countdown, "1")
				Sleep(1000)
				GUICtrlSetData($Countdown, "Start!")
				_senden()
        Case $Exit
                Exit
        Case $Info
              MsgBox("0", "Info", "Starten = F5, Beenden = ESC")
    EndSwitch
WEnd

Func _beenden()
    Exit
EndFunc

Func _senden()
	Do
		$Msg = GUIGetMsg()
		Switch $Msg
			Case $GUI_EVENT_CLOSE
				Exit
			Case $Exit
                Exit
			Case $Info
              MsgBox("0", "Info", "Starten = F5, Pause = F6, Beenden = ESC")
		EndSwitch
		If BitAND($Checkbox1, $GUI_CHECKED) = $GUI_CHECKED Then
			Send(GUICtrlRead($Text1))
			Send("{Enter}")
			Sleep(GUICtrlRead($Delay))
		ElseIf BitAND($Checkbox2, $GUI_CHECKED) = $GUI_CHECKED Then
			Send(GUICtrlRead($Text2))
			Send("{Enter}")
			Sleep(GUICtrlRead($Delay))
		ElseIf BitAND($Checkbox3, $GUI_CHECKED) = $GUI_CHECKED Then
			Send(GUICtrlRead($Text3))
			Send("{Enter}")
			Sleep(GUICtrlRead($Delay))
		EndIf
	Until $Msg = $Pause
EndFunc
01/06/2010 19:52 Banana.Crafts#3
oke da hast du mir ein paar neue informationen gegeben;D
danke
aber:
Wenn er merkt das Checkbox1 gescheckt wurde ist die aufgabe ja schon erfüllt und überspringt die nächsten 2 boxen
wie umgeht man das ohne radioboxen
oke neues script: (mit deinem)
macht aber immer nur noch den ersten text

Func _senden()
Do
$Msg = GUIGetMsg()
Switch $Msg
Case $GUI_EVENT_CLOSE
Exit
Case $Exit
Exit
Case $Info
MsgBox("0", "Info", "Starten = F5, Pause = F6, Beenden = ESC")
EndSwitch
If BitAND($Checkbox1, $GUI_CHECKED) = $GUI_CHECKED Then
Send(GUICtrlRead($Text1))
Send("{Enter}")
Sleep(GUICtrlRead($Delay))
ElseIf BitAND($Checkbox2, $GUI_CHECKED) = $GUI_CHECKED Then
Send(GUICtrlRead($Text1))
Send("{Enter}")
Sleep(GUICtrlRead($Delay))
Send(GUICtrlRead($Text2))
Send("{Enter}")
Sleep(GUICtrlRead($Delay))
ElseIf BitAND($Checkbox3, $GUI_CHECKED) = $GUI_CHECKED Then
Send(GUICtrlRead($Text1))
Send("{Enter}")
Sleep(GUICtrlRead($Delay))
Send(GUICtrlRead($Text2))
Send("{Enter}")
Sleep(GUICtrlRead($Delay))
Send(GUICtrlRead($Text3))
Send("{Enter}")
Sleep(GUICtrlRead($Delay))
EndIf
Until $Msg = $Pause
EndFunc
01/06/2010 23:38 KDeluxe#4
Schreib den Code mal in [code]


Machs einfach so:
Code:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 177, 234, 192, 124)
$Radio1 = GUICtrlCreateRadio("", 8, 112, 17, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
$Radio2 = GUICtrlCreateRadio("", 8, 136, 17, 17)
$Radio3 = GUICtrlCreateRadio("", 8, 160, 17, 17)
$Text1 = GUICtrlCreateInput("Text 1", 32, 112, 121, 21)
$Text2 = GUICtrlCreateInput("Text 2", 32, 136, 121, 21)
$Text3 = GUICtrlCreateInput("Text 3", 32, 160, 121, 21)
$Delay = GUICtrlCreateInput("Delay in Millisekunden", 8, 80, 145, 21)
$Info = GUICtrlCreateButton("Info", 8, 200, 75, 25, 0)
$Exit = GUICtrlCreateButton("Exit", 88, 200, 75, 25, 0)
$Countdown = GUICtrlCreateLabel("Countdown", 8, 24, 58, 28)
$Start = GUICtrlCreateButton("Start", 72, 8, 75, 25, 0)
$Pause = GUICtrlCreateButton("Pause", 72, 48, 75, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

HotKeySet("{F5}", "_senden")
HotKeySet("{ESC}", "_beenden")

While True
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Start
				GUICtrlSetData($Countdown, "5")
				Sleep(1000)
				GUICtrlSetData($Countdown, "4")
				Sleep(1000)
				GUICtrlSetData($Countdown, "3")
				Sleep(1000)
				GUICtrlSetData($Countdown, "2")
				Sleep(1000)
				GUICtrlSetData($Countdown, "1")
				Sleep(1000)
				GUICtrlSetData($Countdown, "Start!")
				_senden()
        Case $Exit
                Exit
        Case $Info
              MsgBox("0", "Info", "Starten = F5, Beenden = ESC")
    EndSwitch
WEnd

Func _beenden()
    Exit
EndFunc

Func _senden()
	Do
		$Msg = GUIGetMsg()
		Switch $Msg
			Case $GUI_EVENT_CLOSE
				Exit
			Case $Exit
                Exit
			Case $Info
				MsgBox("0", "Info", "Starten = F5, Pause = F6, Beenden = ESC")
		EndSwitch
		If BitAND($Radio1, $GUI_CHECKED) = $GUI_CHECKED Then
			Send(GUICtrlRead($Text1))
			Send("{Enter}")
			Sleep(GUICtrlRead($Delay))
		ElseIf BitAND($Radio2, $GUI_CHECKED) = $GUI_CHECKED Then
			Send(GUICtrlRead($Text2))
			Send("{Enter}")
			Sleep(GUICtrlRead($Delay))
		ElseIf BitAND($Radio3, $GUI_CHECKED) = $GUI_CHECKED Then
			Send(GUICtrlRead($Text3))
			Send("{Enter}")
			Sleep(GUICtrlRead($Delay))
		EndIf
	Until $Msg = $Pause
EndFunc
01/07/2010 16:26 Shadow992#5
Quote:
Originally Posted by KillingBanana View Post
oke da hast du mir ein paar neue informationen gegeben;D
danke
aber:
Wenn er merkt das Checkbox1 gescheckt wurde ist die aufgabe ja schon erfüllt und überspringt die nächsten 2 boxen
wie umgeht man das ohne radioboxen
oke neues script: (mit deinem)
macht aber immer nur noch den ersten text

Func _senden()
Do
$Msg = GUIGetMsg()
Switch $Msg
Case $GUI_EVENT_CLOSE
Exit
Case $Exit
Exit
Case $Info
MsgBox("0", "Info", "Starten = F5, Pause = F6, Beenden = ESC")
EndSwitch
If BitAND($Checkbox1, $GUI_CHECKED) = $GUI_CHECKED Then
Send(GUICtrlRead($Text1))
Send("{Enter}")
Sleep(GUICtrlRead($Delay))
ElseIf BitAND($Checkbox2, $GUI_CHECKED) = $GUI_CHECKED Then
Send(GUICtrlRead($Text1))
Send("{Enter}")
Sleep(GUICtrlRead($Delay))
Send(GUICtrlRead($Text2))
Send("{Enter}")
Sleep(GUICtrlRead($Delay))
ElseIf BitAND($Checkbox3, $GUI_CHECKED) = $GUI_CHECKED Then
Send(GUICtrlRead($Text1))
Send("{Enter}")
Sleep(GUICtrlRead($Delay))
Send(GUICtrlRead($Text2))
Send("{Enter}")
Sleep(GUICtrlRead($Delay))
Send(GUICtrlRead($Text3))
Send("{Enter}")
Sleep(GUICtrlRead($Delay))
EndIf
Until $Msg = $Pause
EndFunc
So sollte es funktionieren wie du es dir vorstellst (wenn ich dich richtig verstanden habe ...)
PHP Code:
Func _senden()
    Do
        $Msg = GUIGetMsg()
        Switch $Msg
            Case $GUI_EVENT_CLOSE
                Exit
            Case $Exit
                Exit
            Case $Info
              MsgBox("0", "Info", "Starten = F5, Pause = F6, Beenden = ESC")
        EndSwitch
        If BitAND($Checkbox1, $GUI_CHECKED) = $GUI_CHECKED Then
            Send(GUICtrlRead($Text1))
            Send("{Enter}")
            Sleep(GUICtrlRead($Delay))
        Endif
        If BitAND($Checkbox2, $GUI_CHECKED) = $GUI_CHECKED Then
            Send(GUICtrlRead($Text1))
            Send("{Enter}")
            Sleep(GUICtrlRead($Delay))
            Send(GUICtrlRead($Text2))
            Send("{Enter}")
            Sleep(GUICtrlRead($Delay))
         Endif
        If BitAND($Checkbox3, $GUI_CHECKED) = $GUI_CHECKED Then
            Send(GUICtrlRead($Text1))
            Send("{Enter}")
            Sleep(GUICtrlRead($Delay))
            Send(GUICtrlRead($Text2))
            Send("{Enter}")
            Sleep(GUICtrlRead($Delay))
            Send(GUICtrlRead($Text3))
            Send("{Enter}")
            Sleep(GUICtrlRead($Delay))
        EndIf
    Until $Msg = $Pause
EndFunc 
01/07/2010 18:33 Banana.Crafts#6
Danke das hat geholfen
aber send spinnt wieder
wenn ich 2 radiobutton nehme sendet es ersten text 2 mal dann den 2. text und dann text3
edit hab pickup hinzugefügt

PHP Code:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Spam-Bot by Banana.Crafts", 310, 212, 192, 124)
$PickUp = GUICtrlCreateCheckbox("PickUp", 0, 136, 65, 17)
$Countdown = GUICtrlCreateLabel("Countdown", 8, 5, 24, 36)
$Delay = GUICtrlCreateInput("Delay", 72, 16, 217, 21)
$Text1 = GUICtrlCreateInput("Text1", 73, 40, 215, 21)
$Text2 = GUICtrlCreateInput("Text2", 72, 64, 217, 21)
$Text3 = GUICtrlCreateInput("Text3", 72, 88, 217, 21)
$Start = GUICtrlCreateButton("Start", 72, 128, 75, 25, 0)
$Pause = GUICtrlCreateButton("Pause", 216, 128, 75, 25, 0)
$Info = GUICtrlCreateButton("Info", 72, 160, 75, 25, 0)
$Exit = GUICtrlCreateButton("Exit", 216, 160, 75, 25, 0)
$Radio1 = GUICtrlCreateRadio("Radio1", 48, 40, 17, 17)
$Radio2 = GUICtrlCreateRadio("Radio2", 48, 64, 17, 17)
$Radio3 = GUICtrlCreateRadio("Radio3", 48, 88, 17, 17)
$Input2 = GUICtrlCreateInput("Taste", 8, 160, 41, 21)
$Go = GUICtrlCreateButton("Go", 8, 184, 35, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###



HotKeySet("{F5}", "_senden")
HotKeySet("{ESC}", "_beenden")
HotKeySet("{F6}", "_schlafen")

While True
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Start
                Sleep(1000)
                GUICtrlSetData($Countdown, "5")
                Sleep(1000)
                GUICtrlSetData($Countdown, "4")
                Sleep(1000)
                GUICtrlSetData($Countdown, "3")
                Sleep(1000)
                GUICtrlSetData($Countdown, "2")
                Sleep(1000)
                GUICtrlSetData($Countdown, "1")
                Sleep(1000)
                GUICtrlSetData($Countdown, "Start!")
                _senden()
        Case $Exit
                Exit
        Case $Info
              MsgBox("0", "Info", "Starten = F5, F6 = Pause, Beenden = ESC")
          Case $Go
              _PickUp()
    EndSwitch
WEnd

Func _schlafen()
    While True
        Sleep(1000)
    WEnd
EndFunc
        

Func _beenden()
    Exit
EndFunc

Func _PickUp()
     $Msg = GUIGetMsg()
        Switch $Msg
            Case $GUI_EVENT_CLOSE
                Exit
            Case $Exit
                Exit
            Case $Info
              MsgBox("0", "Info", "Starten = F5, Pause = F6, Beenden = ESC")
          Case $Go
              _PickUp()
        EndSwitch
    
    If BitAND($PickUp, $GUI_CHECKED) = $GUI_CHECKED Then
        While True
        Send(GUICtrlRead($Input2))
        Sleep(500)
        WEnd
    EndIf
    EndFunc
    

Func _senden()
   While True
   Do
        $Msg = GUIGetMsg()
        Switch $Msg
            Case $GUI_EVENT_CLOSE
                Exit
            Case $Exit
                Exit
            Case $Info
              MsgBox("0", "Info", "Starten = F5, Pause = F6, Beenden = ESC")
        EndSwitch
        If BitAND($Radio1, $GUI_CHECKED) = $GUI_CHECKED Then
            
            Send(GUICtrlRead($Text1))
            Send("{Enter}")
            Sleep(GUICtrlRead($Delay))
       
       Endif
        If BitAND($Radio2, $GUI_CHECKED) = $GUI_CHECKED Then
            
            Send(GUICtrlRead($Text1))
            Send("{Enter}")
            Sleep(GUICtrlRead($Delay))
            Send(GUICtrlRead($Text2))
            Send("{Enter}")
            Sleep(GUICtrlRead($Delay))
    
         Endif
        If BitAND($Radio3, $GUI_CHECKED) = $GUI_CHECKED Then
            
            Send(GUICtrlRead($Text1))
            Send("{Enter}")
            Sleep(GUICtrlRead($Delay))
            Send(GUICtrlRead($Text2))
            Send("{Enter}")
            Sleep(GUICtrlRead($Delay))
            Send(GUICtrlRead($Text3))
            Send("{Enter}")
            Sleep(GUICtrlRead($Delay))
        
       EndIf
    Until $Msg = $Pause
    WEnd
EndFunc 
01/07/2010 19:19 Shadow992#7
Quote:
Originally Posted by KillingBanana View Post
Danke das hat geholfen
aber send spinnt wieder
wenn ich 2 radiobutton nehme sendet es ersten text 2 mal dann den 2. text und dann text3
edit hab pickup hinzugefügt

PHP Code:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Spam-Bot by Banana.Crafts", 310, 212, 192, 124)
$PickUp = GUICtrlCreateCheckbox("PickUp", 0, 136, 65, 17)
$Countdown = GUICtrlCreateLabel("Countdown", 8, 5, 24, 36)
$Delay = GUICtrlCreateInput("Delay", 72, 16, 217, 21)
$Text1 = GUICtrlCreateInput("Text1", 73, 40, 215, 21)
$Text2 = GUICtrlCreateInput("Text2", 72, 64, 217, 21)
$Text3 = GUICtrlCreateInput("Text3", 72, 88, 217, 21)
$Start = GUICtrlCreateButton("Start", 72, 128, 75, 25, 0)
$Pause = GUICtrlCreateButton("Pause", 216, 128, 75, 25, 0)
$Info = GUICtrlCreateButton("Info", 72, 160, 75, 25, 0)
$Exit = GUICtrlCreateButton("Exit", 216, 160, 75, 25, 0)
$Radio1 = GUICtrlCreateRadio("Radio1", 48, 40, 17, 17)
$Radio2 = GUICtrlCreateRadio("Radio2", 48, 64, 17, 17)
$Radio3 = GUICtrlCreateRadio("Radio3", 48, 88, 17, 17)
$Input2 = GUICtrlCreateInput("Taste", 8, 160, 41, 21)
$Go = GUICtrlCreateButton("Go", 8, 184, 35, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###



HotKeySet("{F5}", "_senden")
HotKeySet("{ESC}", "_beenden")
HotKeySet("{F6}", "_schlafen")

While True
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Start
                Sleep(1000)
                GUICtrlSetData($Countdown, "5")
                Sleep(1000)
                GUICtrlSetData($Countdown, "4")
                Sleep(1000)
                GUICtrlSetData($Countdown, "3")
                Sleep(1000)
                GUICtrlSetData($Countdown, "2")
                Sleep(1000)
                GUICtrlSetData($Countdown, "1")
                Sleep(1000)
                GUICtrlSetData($Countdown, "Start!")
                _senden()
        Case $Exit
                Exit
        Case $Info
              MsgBox("0", "Info", "Starten = F5, F6 = Pause, Beenden = ESC")
          Case $Go
              _PickUp()
    EndSwitch
WEnd

Func _schlafen()
    While True
        Sleep(1000)
    WEnd
EndFunc
        

Func _beenden()
    Exit
EndFunc

Func _PickUp()
     $Msg = GUIGetMsg()
        Switch $Msg
            Case $GUI_EVENT_CLOSE
                Exit
            Case $Exit
                Exit
            Case $Info
              MsgBox("0", "Info", "Starten = F5, Pause = F6, Beenden = ESC")
          Case $Go
              _PickUp()
        EndSwitch
    
    If BitAND($PickUp, $GUI_CHECKED) = $GUI_CHECKED Then
        While True
        Send(GUICtrlRead($Input2))
        Sleep(500)
        WEnd
    EndIf
    EndFunc
    

Func _senden()
   While True
   Do
        $Msg = GUIGetMsg()
        Switch $Msg
            Case $GUI_EVENT_CLOSE
                Exit
            Case $Exit
                Exit
            Case $Info
              MsgBox("0", "Info", "Starten = F5, Pause = F6, Beenden = ESC")
        EndSwitch
        If BitAND($Radio1, $GUI_CHECKED) = $GUI_CHECKED Then
            
            Send(GUICtrlRead($Text1))
            Send("{Enter}")
            Sleep(GUICtrlRead($Delay))
       
       Endif
        If BitAND($Radio2, $GUI_CHECKED) = $GUI_CHECKED Then
            
            Send(GUICtrlRead($Text1))
            Send("{Enter}")
            Sleep(GUICtrlRead($Delay))
            Send(GUICtrlRead($Text2))
            Send("{Enter}")
            Sleep(GUICtrlRead($Delay))
    
         Endif
        If BitAND($Radio3, $GUI_CHECKED) = $GUI_CHECKED Then
            
            Send(GUICtrlRead($Text1))
            Send("{Enter}")
            Sleep(GUICtrlRead($Delay))
            Send(GUICtrlRead($Text2))
            Send("{Enter}")
            Sleep(GUICtrlRead($Delay))
            Send(GUICtrlRead($Text3))
            Send("{Enter}")
            Sleep(GUICtrlRead($Delay))
        
       EndIf
    Until $Msg = $Pause
    WEnd
EndFunc 
Da streuben sich mir ja die Haare ...
So funktioniert es ...

PHP Code:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$tart=0
$Form1 = GUICreate("Spam-Bot by Banana.Crafts", 310, 212, 192, 124)
$PickUp = GUICtrlCreateCheckbox("PickUp", 5, 136, 65, 17)
$Countdown = GUICtrlCreateLabel("Countdown", 8, 5, 66, 36)
$Delay = GUICtrlCreateInput("Delay", 72, 16, 217, 21)
$Text1 = GUICtrlCreateInput("Text1", 73, 40, 215, 21)
$Text2 = GUICtrlCreateInput("Text2", 72, 64, 217, 21)
$Text3 = GUICtrlCreateInput("Text3", 72, 88, 217, 21)
$Start = GUICtrlCreateButton("Start", 72, 128, 75, 25, 0)
$Pause = GUICtrlCreateButton("Pause", 216, 128, 75, 25, 0)
$Info = GUICtrlCreateButton("Info", 72, 160, 75, 25, 0)
$Exit = GUICtrlCreateButton("Exit", 216, 160, 75, 25, 0)
$Checkbox1 = GUICtrlCreateCheckbox("Checkbox1", 48, 40, 17, 17)
$Checkbox2 = GUICtrlCreateCheckbox("Checkbox2", 48, 64, 17, 17)
$Checkbox3 = GUICtrlCreateCheckbox("Checkbox3", 48, 88, 17, 17)
$Input2 = GUICtrlCreateInput("Taste", 8, 160, 41, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###



HotKeySet("{F5}", "_senden")
HotKeySet("{ESC}", "_beenden")
HotKeySet("{F6}", "_schlafen")
AdlibEnable("_senden",100)
While True
        $Msg = GUIGetMsg()
        Switch $Msg
            Case $GUI_EVENT_CLOSE
                Exit
            Case $Exit
                Exit
            Case $Info
                MsgBox("0", "Info", "Starten = F5, Pause = F6, Beenden = ESC")
            Case $Pause
                $tart=0
            Case $Start
                Sleep(1000)
                GUICtrlSetData($Countdown, "5")
                Sleep(1000)
                GUICtrlSetData($Countdown, "4")
                Sleep(1000)
                GUICtrlSetData($Countdown, "3")
                Sleep(1000)
                GUICtrlSetData($Countdown, "2")
                Sleep(1000)
                GUICtrlSetData($Countdown, "1")
                Sleep(1000)
                GUICtrlSetData($Countdown, "Start!")
                $tart=1
            EndSwitch


WEnd

Func _schlafen()
$tart=0
EndFunc


Func _beenden()
    Exit
EndFunc




Func _senden()

    AdlibDisable()
    If $tart=1 Then
        If BitAND(GUICtrlRead ($PickUp), $GUI_CHECKED) = 1 Then
        Send(GUICtrlRead($Input2))
        Sleep(500)
    EndIf
If BitAND(GUICtrlRead ($Checkbox1), $GUI_CHECKED) = 1 Then
            Send(GUICtrlRead($Text1))
            Sleep(200)
            Send("{Enter}")
            Sleep(GUICtrlRead($Delay)-200)

       Endif
        If BitAND(GUICtrlRead ($Checkbox2), $GUI_CHECKED) = 1 Then
            Send(GUICtrlRead($Text2))
            Sleep(200)
            Send("{Enter}")
            Sleep(GUICtrlRead($Delay)-200)

         Endif
        If BitAND(GUICtrlRead ($Checkbox3), $GUI_CHECKED) = 1 Then
            Send(GUICtrlRead($Text3))
            Sleep(200)
            Send("{Enter}")
            Sleep(GUICtrlRead($Delay)-200)

       EndIf
   EndIf
          AdlibEnable("_senden",100)
EndFunc 
01/08/2010 14:14 Banana.Crafts#8
oke klappt
verstehe zwaer net alles 100% aber vielen DANK!