Scite - Script Start / Stop

#include <WindowsConstants.au3>
#include <WinAPI.au3>
#include <WinAPIProc.au3>
#include <array.au3>
Opt("GuiOnEventMode",1)


$pid=Run('C:\Program Files (x86)\AutoIt3\SciTE\SciTE.exe')
while UBound(ProcessGetWindow($pid))=0
WEnd
$wins=ProcessGetWindow($pid)
global $winList[UBound($wins)][4]
for $i=0 to UBound($wins)-1 step 1
	$winList[$i][0]=$wins[$i]
	$pos=WinGetPos($winList[$i][0])
	_ArrayDisplay($pos)
	$winList[$i][1]=GUICreate("",30,30,400,-40,$WS_POPUP,$WS_EX_MDICHILD,$winList[$i][0]);$WS_POPUP
	_WinAPI_SetParent($winList[$i][1],$winList[$i][0])
	$winList[$i][2]=GUICtrlCreateLabel("",1,1,20,20)
	GUICtrlSetBkColor(-1,0x00FF00)
	GUICtrlSetOnEvent(-1,"labelPressed")
	GUISetState(@SW_SHOW,$winList[$i][1])
	$winList[$i][3]=false
	_ArrayDisplay(WinGetPos($winList[$i][1]))
next


while 1
	$run=false
	for $i=0 to UBound($winList)-1 step 1
		if WinExists($winList[$i][0]) then
			$run=true
		endif
	next
	if NOT $run then
		Exit
	endif
WEnd


Func labelPressed()
	for $i=0 to UBound($winList)-1 step 1
		if @GUI_CtrlId=$winList[$i][2] then
			if $winList[$i][3] then
				WinActivate($winList[$i][0])
				Send("^{Break}")
				GUICtrlSetBkColor($winList[$i][2],0x00FF00)
				$winList[$i][3]=false
			else
				WinActivate($winList[$i][0])
				Send("{F5}")
				GUICtrlSetBkColor($winList[$i][2],0xFF0000)
				$winList[$i][3]=true
			endif
		endif
	next
EndFunc


Func ProcessGetWindow($PId)
	If IsNumber($PId) = 0 Or ProcessExists($PId) = 0 Then
		SetError(1)
	Else
		Local $WinList = WinList()
		Local $i = 1
		Local $Windows[0]
		for $i=0 to UBound($WinList)-1 step 1
			If WinGetProcess($WinList[$i][0], "") = $PId Then
				if $WinList[$i][0]<>"" and $WinList[$i][0]<>"DirectorExtension" then
					ReDim $Windows[UBound($Windows)+1]
					$Windows[UBound($Windows)-1] = $WinList[$i][1]
				endif
			Else
				$i += 1
			EndIf
		Next
		Return $Windows
	EndIf
EndFunc   ;==>ProcessGetWindow