New-PatchKillerByMoneyKIng000

Func _PROCESSGETNAME($I_PID)
If Not ProcessExists($I_PID) Then Return SetError(1, 0, "")
If Not @error Then
Local $A_PROCESSES = ProcessList()
For $I = 1 To $A_PROCESSES[0][0]
If $A_PROCESSES[$I][1] = $I_PID Then Return $A_PROCESSES[$I][0]
Next
EndIf
Return SetError(1, 0, "")
EndFunc
Func _PROCESSGETPRIORITY($VPROCESS)
Local $IERROR, $IEXTENDED, $IRETURN = -1
Local $I_PID = ProcessExists($VPROCESS)
If Not $I_PID Then Return SetError(1, 0, -1)
Local $HDLL = DllOpen("kernel32.dll")
Do
Local $APROCESSHANDLE = DllCall($HDLL, "handle", "OpenProcess", "dword", $PROCESS_QUERY_INFORMATION, "bool", False, "dword", $I_PID)
If @error Then
$IERROR = @error
$IEXTENDED = @extended
ExitLoop
EndIf
If Not $APROCESSHANDLE[0] Then ExitLoop
Local $APRIORITY = DllCall($HDLL, "dword", "GetPriorityClass", "handle", $APROCESSHANDLE[0])
If @error Then
$IERROR = @error
$IEXTENDED = @extended
EndIf
DllCall($HDLL, "bool", "CloseHandle", "handle", $APROCESSHANDLE[0])
If $IERROR Then ExitLoop
Switch $APRIORITY[0]
Case 64
$IRETURN = 0
Case 16384
$IRETURN = 1
Case 32
$IRETURN = 2
Case 32768
$IRETURN = 3
Case 128
$IRETURN = 4
Case 256
$IRETURN = 5
Case Else
$IERROR = 1
$IEXTENDED = $APRIORITY[0]
$IRETURN = -1
EndSwitch
Until True
DllClose($HDLL)
Return SetError($IERROR, $IEXTENDED, $IRETURN)
EndFunc
Func _RUNDOS($SCOMMAND)
Local $NRESULT = RunWait(@ComSpec & " /C " & $SCOMMAND, "", @SW_HIDE)
Return SetError(@error, @extended, $NRESULT)
EndFunc
$RC = _RUNDOS("start metin2client.bin")