Hotkeys.....

  • Hi also ich habe ein Script was folgendes machen soll.
    1. Solange nichts passiert, die Maus auf random Punkte setten.
    2. Wenn der User ENTER drückt, das Programm ANHALTEN (nicht beenden)
    3. Wenn der User , drück das Programm vortsetzten.

    Ich bin ein N00b aber das weiß ich!
    Hier der Code:

    MsgBox(1, "Maus Fehler!", "Das Kabel wurde nicht gefunden!")
    main()
    Func main()
    Dim $x = 0
    Dim $y = 1
    HotKeySet('{ENTER}', '_change1')
    HotKeySet('{ALT}', '_change0')
    Do
    $y = $y + 1
    $i = 1
    $random = Random(1,800)
    $random1 = Random(1,800)
    MouseMove($random , $random1, 0)
    Sleep(2600)
    Until $x = 1

    EndFunc

    Func _change0()
    $x = 0
    main()
    EndFunc

    Func _change1()
    $x = 1
    EndFunc


    P.S. Natürlich funzt es nicht!

  • Ich hab es ein bischen Umgeschreiben:

    [autoit]

    Dim $x = 0

    [/autoit][autoit][/autoit][autoit]

    HotKeySet('{ENTER}', '_change1')
    HotKeySet('{UP}', '_change0')

    [/autoit][autoit][/autoit][autoit]

    MsgBox(1, "Maus Fehler!", "Das Kabel wurde nicht gefunden!")
    _random()

    [/autoit][autoit][/autoit][autoit]

    While 1
    Sleep(100)
    WEnd

    [/autoit][autoit][/autoit][autoit][/autoit][autoit]

    Func _change0()
    $x = 0
    _random()
    EndFunc

    [/autoit][autoit][/autoit][autoit]

    Func _change1()
    $x = 1
    EndFunc

    [/autoit][autoit][/autoit][autoit]

    Func _random()
    Do
    $random = Random(1,800)
    $random1 = Random(1,800)
    MouseMove($random , $random1, 0)
    Sleep(2000)
    Until $x = 1
    EndFunc

    [/autoit]
    • Offizieller Beitrag

    Hi,

    oder so:

    Spoiler anzeigen
    [autoit]

    HotKeySet('{ENTER}', '_wait')
    HotKeySet('!+r', '_end') ; alt+shift+r

    [/autoit] [autoit][/autoit] [autoit]

    Global $status = False
    If MsgBox(1, "Maus Fehler!", "Das Kabel wurde nicht gefunden!") = 2 Then _end()
    _go()

    [/autoit] [autoit][/autoit] [autoit]

    Func _go()
    While 1
    If Not $status Then
    MouseMove(Random(0, @DesktopWidth, 1), Random(0, @DesktopHeight, 1), 100)
    EndIf
    Sleep(50)
    WEnd
    EndFunc ;==>_go

    [/autoit] [autoit][/autoit] [autoit]

    Func _wait()
    $status = Not $status
    EndFunc ;==>_wait

    [/autoit] [autoit][/autoit] [autoit]

    Func _end()
    Exit (0)
    EndFunc ;==>_end

    [/autoit]

    So long,

    Mega