Hilfe :) Autotyper (Autoit)

10/16/2010 03:29 Memphiisto#1
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 ^^
10/16/2010 08:49 ~FREAK~#2
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 :)
10/16/2010 11:47 lolkop#3
Quote:
Originally Posted by MagicDave View Post
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:
Code:
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
10/16/2010 12:07 ~FREAK~#4
Quote:
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^^
10/16/2010 13:27 Memphiisto#5
Danke leute krigt alle ma n THX :) Ich probiers ma aus ^^

lg Magic