#define TH32CS_SNAPPROCESS 2
external(INT, "CreateToolhelp32Snapshot", "CreateToolhelp32Snapshot", "Kernel32.dll");
external(INT, "Process32First", "Process32First", "Kernel32.dll");
external(INT, "Process32Next", "Process32Next", "Kernel32.dll");
external(INT, "CloseHandle", "CloseHandle", "Kernel32.dll");


char PROCESSENTRY32[296];
int hSnapshot=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
if(hSnapshot)
{
writeaddress(sizearray(PROCESSENTRY32), address(#PROCESSENTRY32[0]));
if(fopen(tempfolder()+"ListProcess.txt", "w"))
{
Process32First(hSnapshot, address(#PROCESSENTRY32[0]));
fwrite(format(#PROCESSENTRY32[36])); fwrite(ENDL);
while(Process32Next(hSnapshot, address(#PROCESSENTRY32[0])))
{
fwrite(format(#PROCESSENTRY32[36])); fwrite(ENDL);
}
fclose();
start(tempfolder()+"ListProcess.txt");
}
CloseHandle(hSnapshot);
}

#define TH32CS_SNAPPROCESS 2
#define PROCESS_ALL_ACCESS 2097151
external(INT, "CreateToolhelp32Snapshot", "CreateToolhelp32Snapshot", "Kernel32.dll");
external(INT, "Process32First", "Process32First", "Kernel32.dll");
external(INT, "Process32Next", "Process32Next", "Kernel32.dll");
external(INT, "CloseHandle", "CloseHandle", "Kernel32.dll");
external(INT, "OpenProcess", "OpenProcess", "Kernel32.dll");


int prc = openprocess_("Kibor.exe"); // открыть процесс с указанным именем
if(prc > 0)
{
// тут нужные действия
//char HP[4];
//readmemory(#HP[0], 4, 319151424, prc); // прочитать 4 байта по указанному адресу
//messagebox(codhexi(#HP[0], 4));

CloseHandle(prc); // закрыть процесс
}
else messagebox("Процесс не найден или не открылся");



function openprocess_(string name_process)
{
char PROCESSENTRY32[296];
int hSnapshot=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
if(hSnapshot)
{
writeaddress(sizearray(PROCESSENTRY32), address(#PROCESSENTRY32[0]));
Process32First(hSnapshot, address(#PROCESSENTRY32[0]));

int PID = 0;
while(Process32Next(hSnapshot, address(#PROCESSENTRY32[0])))
{
if(format(#PROCESSENTRY32[36]) == name_process)
{
PID = codhexi(#PROCESSENTRY32[8], 4); // ID процесса
break;
}
}
CloseHandle(hSnapshot);
if(PID)return OpenProcess(PROCESS_ALL_ACCESS, 1, PID); // открыть процесс и вернуть хендл
else return 0; // вернёт 0 если процесс не открылся
}
return -1; // вернёт -1 если процесс не найден
}