F1 - Nacircht schreiben

  • hallo leute,

    ich will hier ein kleines Programm erstellen das eine Nacirhcht sende wenn ich auf z.B. F1 drücke
    Ich habe hier schonmal angefangen aber iwo is ein fehler drin...

    Kann mir jemand bitte helfen..

    [autoit]


    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Faullänzer Version 1.0.0.0 Beta", 545, 165, 192, 124)
    $Button1 = GUICtrlCreateButton("Mein Text Mein Text", 8, 8, 513, 33)
    GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    $Button2 = GUICtrlCreateButton("Mein Text Mein Text Mein Text", 8, 48, 513, 33)
    GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    $Button3 = GUICtrlCreateButton("Mein Text Mein Text Mein Text Text Text", 8, 88, 513, 33)
    GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

    hotkeyset("sendmsg","^{f1}")
    while 1
    sleep(10000)
    wend
    func sendmsg()
    sleep(100)
    send("Nachricht wurde gesendet{enter}")
    endfunc


    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    Send("Mein Text")
    EndSwitch
    WEnd

    [/autoit]

    Einmal editiert, zuletzt von Zero2q (29. November 2009 um 22:21)


  • vllt. solltest du bei deinem hotkeyset dieses zeichen ^ hinter der 1. quota weg lassen

  • Kann nich funktionieren ,da dein Script bei Zeile 16-18 in ner While-Schleife ist und nichmehr rauskommt :)

    Spoiler anzeigen
    [autoit]

    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Faullänzer Version 1.0.0.0 Beta", 545, 165, 192, 124)
    $Button1 = GUICtrlCreateButton("Mein Text Mein Text", 8, 8, 513, 33)
    GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    $Button2 = GUICtrlCreateButton("Mein Text Mein Text Mein Text", 8, 48, 513, 33)
    GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    $Button3 = GUICtrlCreateButton("Mein Text Mein Text Mein Text Text Text", 8, 88, 513, 33)
    GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

    hotkeyset("sendmsg","{f1}")

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    Send("Mein Text")
    EndSwitch
    WEnd

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

    func sendmsg()
    sleep(100)
    send("Nachricht wurde gesendet{enter}")
    endfunc

    [/autoit]

    Einmal editiert, zuletzt von Calypso (29. November 2009 um 22:03)

  • [autoit]

    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <misc.au3>
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Faullänzer Version 1.0.0.0 Beta", 545, 165, 192, 124)
    $Button1 = GUICtrlCreateButton("Mein Text Mein Text", 8, 8, 513, 33)
    GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    $Button2 = GUICtrlCreateButton("Mein Text Mein Text Mein Text", 8, 48, 513, 33)
    GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    $Button3 = GUICtrlCreateButton("Mein Text Mein Text Mein Text Text Text", 8, 88, 513, 33)
    GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    sleep(10)
    If _IsPressed(70) Then
    ; hier deinen Text der gesendet werden soll
    EndIf
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    Send("Mein Text")
    EndSwitch
    WEnd

    [/autoit]
  • Schau dir dazu die Hilfe mal von HotKeySet an...

    Als BeispielScript:

    [autoit]

    HotKeySet("{F1}","_test")
    While 1
    Sleep(10)
    WEnd
    Func _test()
    MsgBox (0,"Hallo!","Hallo Welt!")
    EndFunc

    [/autoit]

    Ich nehm dir ein bisschen Arbeit ab:

    Zitat aus der Hilfe:

    "'!'
    Dies weist AutoIt an, den ALT Tastendruck zu senden, folglich würde Send("Das ist ein Text!a") die Tastendrücke "Das ist ein Text" senden und dann die Tastendrücke "ALT+a".

    Nebenbei sind einige Programme sehr empfindlich bezüglich Großbuchstaben und ALT-Taste, z.B. "!A" ist unterschiedlich zu "!a". Der erste Ausdruck bewirkt ALT+SHIFT+A, der zweite ist ALT+a. Im Zweifelsfall benutze die Kleinschreibung!

    '+'
    Dies weist AutoIt an, den SHIFT-(=UMSCHALT)-Tastendruck zu senden, folglich würde Send("Hell+o") den Text "HellO" senden. Send("!+a") würde "ALT+SHIFT+a" senden.

    '^'
    Dies weist AutoIT an, den CTRL (=STRG)-Tastendruck zu senden, folglich würde Send("^!a") "STRG+ALT+a" senden.

    Bemerkung: Einige Programme reagieren sehr empfindlich auf Groß-/Kleinschreibung (Case sensitive) und STRG-Tastendrücke, z.B. ist "^A" unterschiedlich zu "^a". Der erste Ausdruck sendet STRG+SHIFT+A, der zweite sendet STRG+a. Im Zweifelsfall benutzt man die Kleinschreibung!

    '#'
    Die Hash (Raute oder Doppelkreuz)-Taste simuliert das Drücken der Windows-Taste. Folglich würde Send("#r") Win+r senden und damit die Run Dialogbox (Ausführen-Dialog) aufrufen."

    Also würde zum Beispiel:

    [autoit]

    HotKeySet("+T","_test")

    [/autoit]

    das Script darauf warten, dass Alt+T gedrückt wurde.


    MfG

  • Meinst doch dann so oder?

    [autoit]


    hotkeyset("sendmsg","^{f1}")
    while 1
    sleep(10000)
    wend
    func sendmsg()
    sleep(100)
    send("Nachricht wurde gesendet{enter}")
    endfunc

    [/autoit]