; WinSetState("[ACTIVE]", "", @SW_MAXIMIZE)
; Извлекаем состояние активного окна
$iState = WinGetState("[ACTIVE]", "")
If BitAnd($iState, 32) Then
$sText&='развёрнуто на весь экран'&@LF ; @SW_MAXIMIZE
Else
$sText&='не развёрнуто на весь экран'&@LF ; @SW_RESTORE
EndIf
MsgBox(4096, "Сообщение", $sText)
$iState = WinGetState("[ACTIVE]", "")
$i = False ; Пауза. По умолчанию "Закрыта"
HotKeySet("{+}", i) ; Клавиша паузы "Открыть"
;HotKeySet("{-}", i2) ; Клавиша паузы "Закрыть"
HotKeySet("{Esc}", _Exit) ; Клавиша выхода
While 1
If $i = true Then ; Пауза. Дословно: Если пауза "Открыта" продолжить.
If BitAnd($iState, 32) Then
MsgBox(0, "Сообщение", "Приложение развернуто на весь экран") ; Вот вместо сообщения текст своего кода.
Else
MsgBox(0, "Сообщение", "Приложение не развернуто на весь экран")
EndIf
EndIf
WEnd
Func i() ; Функция паузы "Открыть"
$i = True
EndFunc
; Func i2() Функция паузы "Закрыть". Для использования убрать ";"
; $i = False
; EndFunc
Func _Exit() ; Функция выхода
Exit
EndFunc
HotKeySet("{+}", "i") ; Клавиша паузы "Открыть"
;HotKeySet("{-}", i2) ; Клавиша паузы "Закрыть"
HotKeySet("{Esc}", "_Exit") ; Клавиша выхода
Вот в этой строкесделать для определенной игры
Local $hWnd = DllCall('user32.dll', 'hwnd', 'GetForegroundWindow')
Local $hWnd = WinWait()
Local $hWnd = WinWaitActive()
Local $hWnd = WinGetHandle()
#Include <WinAPI.au3>
HotKeySet('{F8}', '_HotKey')
While 1
Sleep(10)
WEnd
Func _WinFullScreen()
Local $hWnd = DllCall('user32.dll', 'hwnd', 'GetForegroundWindow')
If (@error) Or ($hWnd[0] = 0) Then
Return SetError(1, 0, 0)
EndIf
If (StringInStr(WinGetClassList($hWnd[0]), 'SHELLDLL_DefView') = 0) And (BitAND(WinGetState($hWnd[0]), 2) = 2) And (_WinAPI_GetClientWidth($hWnd[0]) = @DesktopWidth) And (_WinAPI_GetClientHeight($hWnd[0]) = @DesktopHeight) Then
Return 1
EndIf
Return 0
EndFunc
Func _HotKey()
$sWinFullScreen = _WinFullScreen()
If WinActive('Игра','') Then
If $sWinFullScreen = 1 Then
MsgBox(0, "", "Игра запущенна в полноэкранном режиме")
Else
MsgBox(0, "", "Игра запущенна не в полноэкранном режиме")
EndIf
EndIf
EndFunc
Данный пример некорректен, т.к. SciTE, оказывается, не переходит в полноэкранный режим, а просто растягивает окно. Лучше тренироваться на IE или на просмотрщике фотографий.нажмите F11 (редактор перейдёт в полноэкранный режим)