एक स्क्रिप्ट लिखें

वेब डेवलपर सेवाओं की आवश्यकता है। आपको सिस्टम में चल रहे फ़ाइलों को रोकने के लिए एक स्क्रिप्ट लिखने की आवश्यकता है। लक्ष्य तीसरे पक्ष की प्रक्रियाओं को रोकना है (सभी सिस्टम प्रक्रियाओं को छोड़कर)। स्क्रिप्ट AVZ स्क्रिप्ट संपादक पर लिखी गई है, इसका उपयोग इसमें किया जाता है।
उदाहरण
Var Var Var Var Var.
i: integer;
Begin.
// प्रक्रिया सूची को अपडेट करना
RefreshProcessList;
AddToLog ('प्रक्रियाओं की संख्या = '+IntToStr' (GetProcessCount))
// प्राप्त सूची के विश्लेषण का चक्र
for i := 0 to GetProcessCount - 1 do start
// 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) प्रेषित किया जाता है।