#include once "windows.bi"
#include once "crt.bi" ' Подключаем CRT для прямого вывода без буферизации FreeBASIC

' Получаем дескриптор ввода консоли
Dim As HANDLE hInput = GetStdHandle(STD_INPUT_HANDLE)
Dim As DWORD cmode

' Полностью очищаем режим ввода и принудительно выставляем флаги QuickEdit
GetConsoleMode(hInput, @cmode)
cmode = ENABLE_EXTENDED_FLAGS Or ENABLE_QUICK_EDIT_MODE
SetConsoleMode(hInput, cmode)

Print "=== QuickEdit Тест на FreeBASIC ==="
Print "Кликните ЛЕВОЙ кнопкой мыши прямо по тексту ниже."
Print "Программа остановится (в заголовке окна появится 'Выбрать')."
Print "Нажмите ENTER для продолжения работы."
Print "-----------------------------------------------------------"

Do    
  Printf(".") ' Прямой вывод через printf гарантирует, что Windows поймает блокировку
  Sleep(30)
Loop

#include once "windows.bi"
#include once "crt.bi" ' Подключаем CRT для прямого вывода без буферизации FreeBASIC

Print "Кликните ЛЕВОЙ кнопкой мыши прямо по тексту ниже."
Print "Программа остановится (в заголовке окна появится 'Выбрать')."
Print "Нажмите ENTER для продолжения работы."

Do
  Printf(".")  ' Прямой вывод через printf гарантирует, что Windows поймает блокировку  
  Sleep(30)
Loop

#DEFINE UNICODE

#INCLUDE ONCE "Windows.bi"
#INCLUDE ONCE "Win\tlhelp32.bi"

TYPE NTSTATUS AS ULONG

DECLARE FUNCTION NtSuspendProcess LIB "ntdll" ALIAS "NtSuspendProcess" (BYVAL ProcessHandle as HANDLE) as NTSTATUS
DECLARE FUNCTION NtResumeProcess  LIB "ntdll" ALIAS "NtResumeProcess" (BYVAL ProcessHandle as HANDLE) as NTSTATUS
DECLARE FUNCTION GetPIDByName (processName AS STRING) AS ULONG

DIM targetPid AS ULONG
DIM hProcess AS HANDLE

SHELL "START TESTPRC.exe"    '  Запустим в фоне процесс
SLEEP 100

targetPid = GetPIDByName("TESTPRC.exe")
PRINT targetPid

SLEEP 1000

'  Откроем процесс с правами suspend/resume
hProcess = OpenProcess(PROCESS_SUSPEND_RESUME, FALSE, targetPid)

IF hProcess <> NULL THEN
    DIM status AS NTSTATUS

    '   Заморозить!
    status = NtSuspendProcess(hProcess)

    '   Статус процесса
    IF status = 0 THEN
        PRINT "Process suspended successfully."
    ELSE
        PRINT "Failed to suspend process. NTSTATUS: "; HEX(status)
    END IF
    
    '  Удержим процесс замороженным 3 секунды
    SLEEP 3000
    
    '  Продолжить
    status = NtResumeProcess(hProcess)

    '   Статус процесса
    IF status = 0 THEN
        PRINT "Process reactivated."
    ELSE
        PRINT "Failed to reactivate process. NTSTATUS: "; HEX(status)
    END IF

    '   Закрыть хендл
    CloseHandle(hProcess)
ELSE
    PRINT "Could not open process. Check PID or privileges."
END IF

SLEEP 4500
END

FUNCTION GetPIDByName(processName AS STRING) AS ULONG
   DIM pid AS ULONG = 0
   DIM snapshot AS HANDLE
   snapshot = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0)
   IF (snapshot = INVALID_HANDLE_VALUE) THEN RETURN 0

   DIM entry AS PROCESSENTRY32W
   entry.dwSize = SIZEOF(entry)

   IF (Process32First(snapshot, @entry)) THEN
        
     DO
        IF entry.szExeFile = processName THEN
             pid = entry.th32ProcessID
             EXIT DO   ' break
        END IF
     LOOP WHILE (Process32Next(snapshot, @entry))
   END IF

    CloseHandle(snapshot)
    RETURN pid
END FUNCTION

DIM Q AS INTEGER
DO
  PRINT "*";
  SLEEP 50
  Q = Q + 1
LOOP UNTIL Q > 159 OR INKEY <> ""