Hilfe für einen Bot!

12/03/2009 19:19 Banana.Crafts#1
So mein Problem ist, ich will ein Spam-Bot machen!
(Einfach mal so als erstes größeres Projekt!)

Der Bot hat 2 Inputs und 2 Buttons!
Wenn man auf Button1 klickt schreibt er den Text von Input1 in einem Zeitabstand von Input 2!!

Mein Problem:
Egal was ich in Input1 schreib, er schreibt immer 5!!

Was mach ich falsch?

(Das Script hat einige dumme Stellen, aber mir geht es eigentlich nur um den gesendeten Text!)

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

#Region ### START Koda GUI section ### Form=
$Form1 GUICreate("Form1"209176192124)
$Go GUICtrlCreateButton("Go"32104139250)
$Pause GUICtrlCreateButton("Pause"32136139250)
$Input1 GUICtrlCreateInput("Text"322413721)
$Input2 GUICtrlCreateInput("Zeitabstand"326413721)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Func starten()
    Do
    
Sleep(4000)
    
Send($Input1)
    
Sleep($Input2)
   
Until HotKeySet("{ESC}""beenden")
EndFunc
Func pausen
()
    While 
1
        Sleep
(2000)
    
WEnd
EndFunc

Func beenden
()
    Exit
EndFunc
HotKeySet
("{ESC}""beenden")

While 
1
    $nMsg 
GUIGetMsg()
    Switch 
$nMsg
        
Case $GUI_EVENT_CLOSE
            
Exit
        Case 
$Go
            starten
()
        Case 
$Pause
            pausen
()
    EndSwitch
WEnd 
12/03/2009 19:30 | Moep |#2
[Only registered and activated users can see links. Click Here To Register...]

Thats the key...
12/05/2009 15:39 WieMeinen#3
Schreib einfach :
Quote:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 209, 176, 192, 124)
$Go = GUICtrlCreateButton("Go", 32, 104, 139, 25, 0)
$Pause = GUICtrlCreateButton("Pause", 32, 136, 139, 25, 0)
$Input1 = GUICtrlCreateInput("Text", 32, 24, 137, 21)
$Input2 = GUICtrlCreateInput("Zeitabstand", 32, 64, 137, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Func starten()
Do
Sleep(4000)
Send(GuiCtrlRead($Input1))
Sleep(GuiCtrlRead($Input2))
Until HotKeySet("{ESC}", "beenden")
EndFunc
Func pausen()
While 1
Sleep(2000)
WEnd
EndFunc

Func beenden()
Exit
EndFunc
HotKeySet("{ESC}", "beenden")

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Go
starten()
Case $Pause
pausen()
EndSwitch
WEnd