Hilfe :) Autotyper (Autoit)

[Memphiisto]

Heyy Leute ich wollte einmal einen kleinen Autotyper mit grafischer Oberfläche erstellen (zum rum probieren) aber hänge hier jetzt schon länger fest..

Anstatt das zu schreiben was in die Textbox geschrieben wurde, schreibt es immer nur die Zahl 6.. Und das auch nicht in der geschwindichkeit die angegeben wurde..
Bitte um mithilfe

Hier der Sourcecode:

PHP Code:

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>


GuiCreate("AutoTyper",224,228,478,177)
$button1=GuiCtrlCreateButton("Start",2,3,218,38)
$button2=GuiCtrlCreateButton("Stop",3,41,217,41)
$input1=GuiCtrlCreateInput("1000",147,203,68,20)
$Edit1=GuiCtrlCreateEdit("",6,88,213,100)
GuiSetState()


While 1
$msg=GuiGetMsg()
If $msg=-3 Then Exit
If $msg=$button1 Then button1()
If $msg=$button2 Then button2()
Wend


Func button1()
    While 1
    send ( $Edit1 )
    sleep ( $input1 )
wend
EndFunc

Func button2()
    exit
EndFunc 


Lieber gruß Magic


P.s : Sas mit dem Stop Button geht auch nicht ^^

[~FREAK~]

Hallo Magic Dave ich habe mir code angeschaut und ein bisschen verbessert, du hast z.b. WEnd falsch geschreiben ausserdem hast du das GUICtrlRead vergessen
ich habe es dir hier richtig gestellt:

PHP Code:

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>


GuiCreate("AutoTyper",224,228,478,177)
$button1=GuiCtrlCreateButton("Start",2,3,218,38)
$button2=GuiCtrlCreateButton("Stop",3,41,217,41)
$input1=GuiCtrlCreateInput("1000",147,203,68,20)
$Edit1=GuiCtrlCreateEdit("",6,88,213,100)
GuiSetState()


While 1
$msg=GuiGetMsg()
If $msg=-3 Then Exit
If $msg=$button1 Then _button1()
If $msg=$button2 Then _button2()
WEnd


Func _button1()
    While 1
    send (GUICtrlRead($Edit1))
    sleep (GUICtrlRead($input1))
    WEnd
EndFunc 


Ich hoffe ich konnte helfen

[lolkop]

Originally Posted by MagicDave

P.s : Sas mit dem Stop Button geht auch nicht ^^

um das gui ansprechbar zu halten, darfst du keine endlosschleifen in deine main loop einbauen, und musst auch alle sleeps durch timer ersetzen.

Edit:
hier mal am beispiel deines guis gezeigt:

Dim $timer, $run = False

$gui = GuiCreate("AutoTyper",224,228,478,177, -1, 8)
$button1=GuiCtrlCreateButton("Start",2,3,218,38)
$button2=GuiCtrlCreateButton("Stop",3,41,217,41)
$input1=GuiCtrlCreateInput("1000",147,203,68,20)
$Edit1=GuiCtrlCreateEdit("",6,88,213,100)
GuiSetState()


While 1
	Switch GUIGetMsg()
		Case -3
			Exit
		Case $button1
			$run = True
		Case $button2
			$run = False
		Case Else
			If $run And Not WinActive($gui) And TimerDiff($timer) > GUICtrlRead($input1) Then
				Send(GUICtrlRead($Edit1))
				$timer = TimerInit()
			EndIf
	EndSwitch
Wend

[~FREAK~]

Originally Posted by MagicDave

P.s : Sas mit dem Stop Button geht auch nicht ^^

hubs das hab ich garnet gemerkt
das das ja auch net ging^^

[Memphiisto]

Danke leute krigt alle ma n THX Ich probiers ma aus ^^

lg Magic