Finde keine Lösung // Bitte um Hilfe !

  • Huhu Leute,

    bin ganz neu in diesem Forum und hoffe ihr könnt mir helfen. Habe im Inet ein kleines Programm gefunden und wollte es für meine Zwecke umschreiben.

    Spoiler anzeigen


    #include <GUIConstants.au3>

    #NoTrayIcon

    Opt("MustDeclareVars",1)
    Opt("SendKeyDelay",1)

    global $tasten,$sleep,$start,$stopp
    global $msg

    GUICreate("Miraju´s Helferlein",240,215)
    GUICtrlCreateLabel("Die Tasten, die gedrückt werden sollen:",20,20,200,25)
    $tasten=GUICtrlCreateinput("",20,45,200,20)
    GUICtrlCreateLabel("Zeitabstand (in sec.):",20,95,200,25)
    $sleep=GUICtrlCreateinput("",20,120,200,20)
    $start=GUICtrlCreateButton("Start",30,165,80)
    $stopp=GUICtrlCreateButton("Stopp",128,165,80)

    GUISetState()

    while 1
    $msg=GUIGetMsg()
    switch $msg
    case $start
    AdlibRegister("senden",GUICtrlRead($sleep)*1000)
    case $stopp
    AdlibUnRegister()
    case $GUI_EVENT_CLOSE
    exit
    EndSwitch
    wend

    func senden()
    send(GUICtrlRead($tasten))
    endfunc

    nun zu meinem Problem. Ich wollte gerne zwischen den Tastendruck eine kleine Random-Verschiebung von 1-2 Sek. Ich habe mir auch schon bei Google alles mögliche dazu angeschaut und auch gefunden was ich "eigentlich" da zwischen schreiben muss aber ich bekomm es einfach nicht hin.

    Spoiler anzeigen


    #include <GUIConstants.au3>

    #NoTrayIcon

    Opt("MustDeclareVars",1)
    Opt("SendKeyDelay",1)

    global $tasten,$sleep,$start,$stopp,$rand
    global $msg

    GUICreate("Miraju´s Helferlein",240,215)
    GUICtrlCreateLabel("Die Tasten, die gedrückt werden sollen:",20,20,200,25)
    $tasten=GUICtrlCreateinput("",20,45,200,20)
    GUICtrlCreateLabel("Zeitabstand (in sec.):",20,95,200,25)
    $sleep=GUICtrlCreateinput("",20,120,200,20)
    $start=GUICtrlCreateButton("Start",30,165,80)
    $stopp=GUICtrlCreateButton("Stopp",128,165,80)
    $rand=Random(1,2,1)

    GUISetState()

    while 1
    $msg=GUIGetMsg()
    switch $msg
    case $start
    AdlibRegister("senden",GUICtrlRead($sleep+$rand)*1000)
    case $stopp
    AdlibUnRegister()
    case $GUI_EVENT_CLOSE
    exit
    EndSwitch
    wend

    func senden()
    send(GUICtrlRead($tasten))
    endfunc

    aber er schreibt mir dann keinen Syntax Fehler sondern ignoriert meine zeit die ich eingestellt habe die er zwischen den Tastendrücken einhalten soll und mach dann die Tastendrücke unter 1 sek.

    Hoffe ihr versteht mein Problem und könnt mir helfen.

    LG Miraju