Register for your free account! | Forgot your password?

Go Back   elitepvpers › Coders Den › AutoIt
AutoIT Hilfe AutoIT Hilfe
You last visited: Today at 19:46

  • Please register to post and access all features, it's quick, easy and FREE!

Advertisement


Advertise with us!

AutoIT Hilfe

Discussion on AutoIT Hilfe within the AutoIt forum part of the Coders Den category.

Reply
 
Old   #1
 
elite*gold: 0
The Black Market: 0/0/0
Join Date: Sep 2009
Posts: 445
Received Thanks: 286
AutoIT Hilfe

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 
Banana.Crafts is offline  
Old   #2
 
elite*gold: 0
The Black Market: 9/0/0
Join Date: Mar 2009
Posts: 7,260
Received Thanks: 33,149
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
KDeluxe is offline  
Thanks
1 User
Old   #3
 
elite*gold: 0
The Black Market: 0/0/0
Join Date: Sep 2009
Posts: 445
Received Thanks: 286
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
Banana.Crafts is offline  
Old   #4
 
elite*gold: 0
The Black Market: 9/0/0
Join Date: Mar 2009
Posts: 7,260
Received Thanks: 33,149
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
KDeluxe is offline  
Thanks
1 User
Old   #5
 
Shadow992's Avatar
 
elite*gold: 77
The Black Market: 13/0/0
Join Date: May 2008
Posts: 5,430
Received Thanks: 5,876
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 
Shadow992 is offline  
Thanks
1 User
Old   #6
 
elite*gold: 0
The Black Market: 0/0/0
Join Date: Sep 2009
Posts: 445
Received Thanks: 286
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 
Banana.Crafts is offline  
Old   #7
 
Shadow992's Avatar
 
elite*gold: 77
The Black Market: 13/0/0
Join Date: May 2008
Posts: 5,430
Received Thanks: 5,876
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 
Shadow992 is offline  
Thanks
1 User
Old   #8
 
elite*gold: 0
The Black Market: 0/0/0
Join Date: Sep 2009
Posts: 445
Received Thanks: 286
oke klappt
verstehe zwaer net alles 100% aber vielen DANK!
Banana.Crafts is offline  
Reply

« Maus an bestimmte Stellen drücken lassen? | 2 verschiedene Vorgänge zugleich laufen »

Similar Threads Similar Threads
[Hilfe]Autoit
06/24/2010 - AutoIt - 4 Replies
hallo.... habe gestern mal angefangen eautoit zu lernen.... und möchte nun zu mien pickup bot ein fenster zu fügen nur wie? es sollt ungefähr so ausehen: http://www.bilder-hochladen.net/files/fg2u-1.jpg hier mien code: HotKeySet ( "{F8}" , "Start" )
[Hilfe]Autoit
06/23/2010 - Metin2 Private Server - 6 Replies
hallo.... habe gestern mal angefangen eautoit zu lernen.... und möchte nun zu mien pickup bot ein fenster zu fügen nur wie? es sollt ungefähr so ausehen: http://www.bilder-hochladen.net/files/fg2u-1.jpg hier mien code: HotKeySet ( "{F8}" , "Start" )
AutoIt HILFE!
06/17/2010 - AutoIt - 5 Replies
hey leute :) ich bin gerade dabei ein paar ganz einfach sachen in AutoIt zu schreiben, da ich noch Anfänger bin! Kann mir vlt jmd. sagen wo und ob ich die verschiedenen Befehle sehen kann? Ich habe mir gedacht einen bot zu versuchen der NUR läuft und vlt. noch mops killt. Also erst mal. Kann mir da jmd sagen wie ich das schreiben müsste?:confused: wäre echt nett
Hilfe bei AutoIt Bot.
07/07/2008 - General Coding - 9 Replies
Hi, ich habe ein "Macro" geschrieben, in AutoIt. Und habe nun ein kleines problem welches ich nicht gelöst bekomme. Bin noch ziemlich neu in diesem bereich. Mein Problem ist, das der Bot (das Macro) nicht komplett läuft. Das Macro Startet per klick auf dem Start Button, er öffnet dann auch das Window " Guild Wars" doch dann passiert nichts mehr. Er bleibt einfach stehen ohne das irgentwie was weiter passiert. Die HotKeys und so klappen alle nur halt der Bot ablauf nicht. Könnte jemand...



All times are GMT +2. The time now is 19:47.

elitepvpers - play less, get more - Top

Powered by vBulletin®
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Terms of Service | Abuse
Copyright ©2026 elitepvpers All Rights Reserved.