Okay ich versuchs mal mit KeySend aba dafür brauch ich doch die KeySend.au3 oda?
Kann mir da pls ma jmnd n link gebn ? :)
lg Magic
Kann mir da pls ma jmnd n link gebn ? :)
lg Magic
Dim $timer, $run = False
$gui = GuiCreate("AutoTyper",224,228,478,177, -1, 8)
GUICtrlCreatePic(@ScriptDir & '\abc.jpg', 0, 0, 635, 293)
GUICtrlSetStyle(-1, 0x5802010E)
$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)
GUICtrlCreateLabel('© by MagicDave', 15, 193, 129, 15)
$info = GUICtrlCreateButton('Info', 20, 209, 60, 20)
GuiSetState()
While 1
Switch GUIGetMsg()
Case -3
Exit
Case $button1
$run = True
Case $button2
$run = False
Case $info
MsgBox(0, 'Info', 'Dieser Autotyper ist mit Hilfe des Scripters Lolkop von Elitepvpers entstanden.', 0, $gui)
Case Else
If $run And Not WinActive($gui) And TimerDiff($timer) > GUICtrlRead($input1) Then
Send(GUICtrlRead($Edit1)&@CRLF)
$timer = TimerInit()
EndIf
EndSwitch
Wend
deswegn hatte ichs ja gepostet :PQuote:
p.s. : Bei mir läuft dein script was du da grad gepostet haste einwandfrei? also bei mir geht der button immer? Nur dass deiner irgendwie immer 2 mal enter drückt ^^ und ich noch ein paar kleinichkeiten anders hab :)