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
Spoiler anzeigen
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.0.0
Author: myName
Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------
; 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
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)
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)
If $sTitle = '' And $iFilterEmptyTitle Then ContinueLoop
If $iWindowState And Not BitAND(WinGetState($hWnd, ''), $iWindowState) Then ContinueLoop
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
If $iCount = 0 Then
Return SetError(2, 0, 0)
EndIf
ReDim $avWindows[$iCount][2]
Return $avWindows
EndFunc ;==>_ProcessGetWindows