Local $Dir = 'C:\a\'
Local $sEList = 'binju2.exe|ftu86h.exe'
Local $aList = ProcessList()
For $i = 1 To $aList[0][0]
If StringLen($aList[$i][0]) = 10 Then
$tmp = StringReplace(_WinAPI_GetProcessFileName($aList[$i][1]), $Dir, '')
If @extended > 0 Then
If Not StringRegExp($tmp, '(?i)' & $sEList) Then MsgBox(0, '发现异形', $tmp)
EndIf
EndIf
Next