SciTE Konsolefenster ausblenden

  • Hallo,

    da mich dieses Konsolefenster von SciTE ziemlich stört hab ich dieses kleine Script geschrieben. Ist nichts aufwendiges aber sehr praktisch.

    EDIT: Fehler behoben :rolleyes:

    Spoiler anzeigen
    [autoit]

    #cs ----------------------------------------------------------------------------

    AutoIt Version: 3.3.0.0
    Author: myName

    Script Function:
    Template AutoIt script.

    #ce ----------------------------------------------------------------------------

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

    ; Script Start - Add your code below here

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

    While 1

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

    If ProcessExists("SciTE.exe") Then
    $array = _ProcessGetWindows("SciTE.exe", 1, 2) ;Gibt alle sichtbaren und Fenster mit Title zurück

    If IsArray($array) Then
    $scite = $array[0][0]
    $1 = ControlGetPos($scite, "", "Scintilla2")
    EndIf


    If IsArray($1) Then
    If $1[3] > 1 Then ControlSend($scite, "", "", "{F8}")
    EndIf

    EndIf

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

    Sleep(10)

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

    WEnd

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

    ;Funktion ist nicht von mir!
    Func _ProcessGetWindows($vProcess, $iFilterEmptyTitle = 0, $iWindowState = 0)
    Local $avWinlist = WinList(), $iCount = 0, $avWindows
    Dim $avWindows[1][2]
    $iPid = ProcessExists($vProcess)

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

    If $iPid = 0 Then Return SetError(1, 0, 0)

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

    For $i = 1 To UBound($avWinlist) - 1
    $sTitle = $avWinlist[$i][0]
    $hWnd = $avWinlist[$i][1]
    $iProcessId = WinGetProcess($hWnd)

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

    If $sTitle = '' And $iFilterEmptyTitle Then ContinueLoop
    If $iWindowState And Not BitAND(WinGetState($hWnd, ''), $iWindowState) Then ContinueLoop

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

    If $iProcessId = $iPid Then
    If $iCount = UBound($avWindows) Then
    ReDim $avWindows[$iCount + 2][2]
    EndIf
    $avWindows[$iCount][0] = $sTitle
    $avWindows[$iCount][1] = $hWnd
    $iCount += 1
    EndIf
    Next

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

    If $iCount = 0 Then
    Return SetError(2, 0, 0)
    EndIf

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

    ReDim $avWindows[$iCount][2]
    Return $avWindows
    EndFunc ;==>_ProcessGetWindows

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