Обьединение 2 кодовов в 1

#RequireAdmin


MsgBox(4096, "Старт", "бла-бла-бла")
Sleep(3000)
$hWnd1 = _ProcessGetWindow("Nksp.exe")
Opt("PixelCoordMode", 2)
WinActivate($hWnd1)
Sleep(500)
$xa = "680"
$ya = "15"
$bazaa = PixelGetColor($xa, $ya)
MsgBox(4096, "Стат", "бла-бла-бла - 2!")
While 1
	$hila = PixelGetColor($xa, $ya)
	If $hila = $bazaa Then
		ControlSend($hWnd1, "", "", "{TAB}")
		Sleep(100)
	Else
		ControlSend($hWnd1, "", "", "{5}")
	Sleep(1000)
	EndIf
WEnd


Func _ProcessGetWindow($iPID, $iRet = 1)
	Local $aWinList = WinList()
	Local $aRet[2]

	If IsString($iPID) Then
		$iPID = ProcessExists($iPID)
	EndIf

	For $i = 1 To UBound($aWinList) - 1
		If WinGetProcess($aWinList[$i][1]) = $iPID Then
			$aRet[0] = $aWinList[$i][0] ;Title
			$aRet[1] = $aWinList[$i][1] ;WinHandle

			If $iRet = 0 Then
				Return $aRet[0]
			EndIf

			If $iRet = 1 Then
				Return $aRet[1]
			EndIf

			Return $aRet
		EndIf
	Next

	Return SetError(1, 0, $aRet)
EndFunc   ;==>_ProcessGetWindow

#RequireAdmin

MsgBox(4096, "Старт", "бла-бла-бла")
Sleep(3000)
$hWnd1 = _ProcessGetWindow("Nksp.exe")
Opt("PixelCoordMode", 2)
WinActivate($hWnd1)
Sleep(500)
$x = "680"
$y = "15"
$bazaa = PixelGetColor($x, $y)
MsgBox(4096, "Стат", "бла-бла-бла - 2!")
While 1
	$hil = PixelGetColor($x, $y)
	If $hil = $baza Then
	Else
		ControlSend($hWnd1, "", "", "{7}")
		Sleep(15000)
	EndIf
WEnd

Func _ProcessGetWindow($iPID, $iRet = 1)
	Local $aWinList = WinList()
	Local $aRet[2]

	If IsString($iPID) Then
		$iPID = ProcessExists($iPID)
	EndIf

	For $i = 1 To UBound($aWinList) - 1
		If WinGetProcess($aWinList[$i][1]) = $iPID Then
			$aRet[0] = $aWinList[$i][0] ;Title
			$aRet[1] = $aWinList[$i][1] ;WinHandle

			If $iRet = 0 Then
				Return $aRet[0]
			EndIf

			If $iRet = 1 Then
				Return $aRet[1]
			EndIf

			Return $aRet
		EndIf
	Next

	Return SetError(1, 0, $aRet)
EndFunc   ;==>_ProcessGetWindow