Beiträge von stayawayknight

  • Hotkeys auf Tasten im Gehäuse?

    Indirekt würde mir schon was einfallen, ist aber sehr unschön:

    [autoit]


    While True
    WinWait("Systemsteuerung\Hardware und Sound\Energieoptionen\Energiesparplaneinstellungen bearbeiten")
    WinClose("Systemsteuerung\Hardware und Sound\Energieoptionen\Energiesparplaneinstellungen bearbeiten")
    MsgBox(0, "", "Entsprechende Taste wurde gedrückt...")
    WEnd

    [/autoit]

    Je nach dem, welches Fenster durch die Funktionstaste geöffnet wird :whistling:

    Gruß stay

  • Hotkeys auf Tasten im Gehäuse?

    Eukalyptus hat da etwas gebastelt, vielleicht kannst du das damit irgendwie abfragen:

    Spoiler anzeigen
    [autoit]


    $hGui = GUICreate("Example 1 - Press any key to exit...", 400, 100)
    GUISetState()
    $sKeyboardState = _WinAPI_GetKeyboardState(1)
    While _WinAPI_GetKeyboardState(1) = $sKeyboardState
    Sleep(100)
    WEnd
    GUIDelete($hGui)

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

    Sleep(500)

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

    $hGui = GUICreate('Example 2 - Press "A" to exit...', 400, 200)
    GUISetState()
    $aKeyboardStateOld = _WinAPI_GetKeyboardState()
    While 1
    $aKeyboardState = _WinAPI_GetKeyboardState()
    If $aKeyboardState[65] <> $aKeyboardStateOld[65] Then ExitLoop
    Sleep(100)
    WEnd
    GUIDelete($hGui)

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

    Sleep(500)

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

    $hGui = GUICreate('Example 3 - Type...', 400, @DesktopHeight - 100)
    $hLabel = GUICtrlCreateLabel("", 2, 2, 396, @DesktopHeight - 104)
    GUISetState()
    While GUIGetMsg() <> -3
    $aKeyboardState = _WinAPI_GetKeyboardState()
    $sKeys = "I" & @TAB & "CHR" & @TAB & "State" & @TAB & "Toogle" & @LF
    For $i = 10 To 90
    $sKeys &= $i & @TAB & Chr($i) & @TAB & BitAND($aKeyboardState[$i], 0xF0) & @TAB & BitAND($aKeyboardState[$i], 0x0F) & @LF
    Next
    GUICtrlSetData($hLabel, $sKeys)
    Sleep(100)
    WEnd

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

    ; #FUNCTION# ====================================================================================================================
    ; Name...........: _WinAPI_GetKeyboardState
    ; Description ...: Returns the status of the 256 virtual keys
    ; Syntax.........: _WinAPI_GetKeyboardState($iFlag=0)
    ; Parameters ....: $iFlag - Return Type
    ; 0 Returns an array[256]
    ; 1 Returns a string
    ; Return values .: Success - Array[256] or String containing status of 256 virtual keys
    ; Failure - False
    ; Author ........: Eukalyptus
    ; Modified.......:
    ; Remarks .......: If the high-order bit is 1, the key is down; otherwise, it is up.
    ; If the key is a toggle key, for example CAPS LOCK, then the low-order bit is 1
    ; when the key is toggled and is 0 if the key is untoggled
    ; Related .......: _IsPressed
    ; Link ..........;
    ; Example .......;
    ; ===============================================================================================================================
    Func _WinAPI_GetKeyboardState($iFlag = 0)
    Local $aDllRet, $lpKeyState = DllStructCreate("byte[256]")
    $aDllRet = DllCall("User32.dll", "int", "GetKeyboardState", "ptr", DllStructGetPtr($lpKeyState))
    If @error Then Return SetError(@error, 0, 0)
    If $aDllRet[0] = 0 Then
    Return SetError(1, 0, 0)
    Else
    Switch $iFlag
    Case 0
    Local $aReturn[256]
    For $i = 1 To 256
    $aReturn[$i - 1] = DllStructGetData($lpKeyState, 1, $i)
    Next
    Return $aReturn
    Case Else
    Return DllStructGetData($lpKeyState, 1)
    EndSwitch
    EndIf
    EndFunc ;==>_WinAPI_GetKeyboardState

    [/autoit]

  • In einem Textfeld ans Ende springen

    Hi,

    meine Version:

    [autoit]


    Run("notepad.exe")
    WinWaitActive("[CLASS:Notepad]")
    ControlSetText("[CLASS:Notepad]", "", "", "Hallo" & @CRLF & "Wie geht es dir?" & @CRLF & "Bis bald!")
    Sleep(3000)
    ControlSend("[CLASS:Notepad]", "", "", "^{End}")

    [/autoit]

    So passiert wenigstens nichts, wenn das Textfeld nicht den Fokus besitzt.

    Gruß stay

  • Blue Screen nach beenden des Scrips

    Hallo,

    in der UDF befindet sich folgende Funktion:

    [autoit]


    ;====================================================================================
    ; Function Name: _CloseCOMPort($CommSerialPort)
    ; Description: Closes serial port
    ; Parameters: $CommSerialPort - value returned by _OpenComm
    ; Returns: on success, returns 1
    ; on failure returns -1 and sets @error to 1
    ; Note:
    ;====================================================================================
    Func _CloseCOMPort($CommSerialPort)
    Local $closeerr = DllCall($commDll, "int", "CloseHandle", "hwnd", $CommSerialPort)
    DllClose($commDll)
    If @error Then Return SetError(1, 1, -1)
    Return ($closeerr[0])
    EndFunc ;==>_CloseCOMPort

    [/autoit]

    Gruß stay

  • While Problem

    Zitat von FKH87

    Ich habe einen 2 Schleifen körper drum gemacht das es geht immer noch nicht ^^


    Kleiner Tipp am Rande, falls du damit das If...Then meinst: Es handelt sich dabei um Abfragen, da ein Zustand geprüft wird. Bei einer Schleife werden einzelne Befehlsfolgen wiederholt.
    Ich kenne Leute, die reagieren auf den Neologismus "If-Schleife" allergisch und wollte es nur mal anmerken ;)

    Gruß stay

  • Bekannte Bugs in 3.3.8.1?

    Es geht meiner Einschätzung nach hier um Bugs in der aktuellen AutoIt-Version, und da die GuiToolTip.au3 ein mitgeliefertes Include ist hat das hier doch durchaus seinen Platz? Man kontaktiert ja sonst auch das gesamte AutoIt-Team und nicht die einzelnen Ersteller?
    Die FTP(Ex).au3 wurde ja auch nicht von J.B. erstellt.

    Gruß stay

  • Kollisionen (in 2D)

    Zitat von Xorianator

    Ich versteh aber immernoch nicht was das "Return (a < b And c < d)" (also so halt nach dem Motto) macht ..

    Ist im Prinzip wie eine if-Abfrage, nur in verkürzter Version - der Inhalt der Klammer liefert einen Wahrheitswert zurück, der dann zurückgegeben wird.
    Ist soweit ich weiß von C(++) abgeleitet...

    Gruß stay

  • Bitte helft mir ich will ein Radio erstellen

    Zitat von Xorianator

    Ich werf dir einen Schuh an den Kopf und du darfst jetzt die Masse der Erde berechnen


    Wenn ich mich recht entsinne, dann ist das gar nicht unmöglich... Auf den Schuh wirkt eine gewisse Gewichtskraft, die durch die Masse der Erde verursacht wird...

    Soweit ich sehe, hast du aktuell nur eine Gui. Du brauchst einen Radiostream oder etwas ähnliches, dass du aus dem Internet empfangen und dann abspielen kannst.
    Viele Websiten von Radiosendern bieten so etwas an.

    Wie weit du bist und was genau du jetzt eigentlich willst und was du bereits kannst/hast lässt sich ohne jegliche Beschreibung natürlich nun prima feststellen... :S

    Gruß stay

  • gesamtes Edit in Array einlesen.

    Hi,

    suchst du etwas in dieser Richtung?

    Spoiler anzeigen
    [autoit]


    #include <GuiEdit.au3>
    #include <GUIConstantsEx.au3>
    #include <Array.au3>

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

    Opt("GUIOnEventMode", 1)

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

    $hGui = GUICreate("Gui", 365, 237, 192, 124)
    GUISetOnEvent($GUI_EVENT_CLOSE, "_close")
    $cEdit = GUICtrlCreateEdit("", 16, 16, 201, 209)
    $cButton = GUICtrlCreateButton("Text to Array", 232, 80, 121, 65)
    GUICtrlSetOnEvent(-1, "_textToArray")
    GUISetState(@SW_SHOW)

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

    While 1
    Sleep(10)
    WEnd

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

    Func _textToArray()
    If GUICtrlRead($cEdit) = "" Then Return
    Local $hWnd = GUICtrlGetHandle($cEdit), $iLines = _GUICtrlEdit_GetLineCount($hWnd), $aWords[$iLines][1], $aSplit
    For $i = 0 To $iLines - 1
    $aSplit = StringSplit(_GUICtrlEdit_GetLine($hWnd, $i), " ", 1)
    If Not IsArray($aSplit) Then ContinueLoop
    If $aSplit[0] > UBound($aWords, 2) Then ReDim $aWords[$iLines][$aSplit[0]]
    For $a = 0 To $aSplit[0] - 1
    $aWords[$i][$a] = $aSplit[$a + 1]
    Next
    Next
    _ArrayDisplay($aWords)
    EndFunc ;==>_textToArray

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

    Func _close()
    Exit
    EndFunc ;==>_close

    [/autoit]

    Gruß stay