1
Виктория
нет рекомендаций
нет жалоб
Название проекта: Написать скрипт
Вариант сотрудничества: Одноразовый проект
Раздел: Разработка для WEB, Веб программирование
Предоплата: без предоплат
Способы оплаты: Банковский перевод
Прием заявок: от 2021-06-05 до 2021-06-20
Вариант сотрудничества: Одноразовый проект
Раздел: Разработка для WEB, Веб программирование
Предоплата: без предоплат
Способы оплаты: Банковский перевод
Прием заявок: от 2021-06-05 до 2021-06-20
Описание проекта:
Требуются услуги веб разработчика. Необходимо написать скрипт для остановки запущенных файлов в системе. Задача - остановить сторонние процессы (все, кроме системных). Скрипт пишется на редакторе скриптов AVZ, применяется в ней же.
Пример
Var
i : integer;
Begin
// Обновление списка процессов
RefreshProcessList;
AddToLog('Количество процессов = '+IntToStr(GetProcessCount));
// Цикл анализа полученного списка
for i := 0 to GetProcessCount - 1 do begin
// Вывод PID процесса и его имя
AddToLog(IntToStr(GetProcessPID(i)) + ' '+ GetProcessName(i));
// Остановка процесса по условию
if pos('trojan.exe', LowerCase(GetProcessName(i))) > 0 then
TerminateProcess(GetProcessPID(i));
end;
End.
В примере использовались: AddToLog, GetProcessCount, GetProcessName, GetProcessPID, RefreshProcessList, TerminateProcess
Данный пример демонстрирует использование всех описанных выше функций для работы с процессам. Сначала при помощи функции RefreshProcessList производится обновление списка процессов. Затем производится просмотр списка в цикле с выводом информации в протокол.
Кроме того, производится завершение процессов, имя исполняемого файла которых содержит текст "trojan.exe" при помощи вызова TerminateProcess, которому передается идентификатор процесса (PID).
Требуются услуги веб разработчика. Необходимо написать скрипт для остановки запущенных файлов в системе. Задача - остановить сторонние процессы (все, кроме системных). Скрипт пишется на редакторе скриптов AVZ, применяется в ней же.
Пример
Var
i : integer;
Begin
// Обновление списка процессов
RefreshProcessList;
AddToLog('Количество процессов = '+IntToStr(GetProcessCount));
// Цикл анализа полученного списка
for i := 0 to GetProcessCount - 1 do begin
// Вывод PID процесса и его имя
AddToLog(IntToStr(GetProcessPID(i)) + ' '+ GetProcessName(i));
// Остановка процесса по условию
if pos('trojan.exe', LowerCase(GetProcessName(i))) > 0 then
TerminateProcess(GetProcessPID(i));
end;
End.
В примере использовались: AddToLog, GetProcessCount, GetProcessName, GetProcessPID, RefreshProcessList, TerminateProcess
Данный пример демонстрирует использование всех описанных выше функций для работы с процессам. Сначала при помощи функции RefreshProcessList производится обновление списка процессов. Затем производится просмотр списка в цикле с выводом информации в протокол.
Кроме того, производится завершение процессов, имя исполняемого файла которых содержит текст "trojan.exe" при помощи вызова TerminateProcess, которому передается идентификатор процесса (PID).
Прикрепленные файлы:
Прикрепленные файлы доступны только Фрилансерам и автору проекта
Прикрепленные файлы доступны только Фрилансерам и автору проекта
