Client Suspender Source Code[Autoit]

Func _ProcessSuspend($process)
$processid = ProcessExists($process)
If $processid Then
    $ai_Handle = DllCall("kernel32.dll", 'int', 'OpenProcess', 'int', 0x1f0fff, 'int', False, 'int', $processid)
    $i_sucess = DllCall("ntdll.dll","int","NtSuspendProcess","int",$ai_Handle[0])
    DllCall('kernel32.dll', 'ptr', 'CloseHandle', 'ptr', $ai_Handle)
    If IsArray($i_sucess) Then 
        Return 1
    Else
        SetError(1)
        Return 0
    Endif
Else
    SetError(2)
    Return 0
Endif
EndFunc

Func _ProcessResume($process)
$processid = ProcessExists($process)
If $processid Then
    $ai_Handle = DllCall("kernel32.dll", 'int', 'OpenProcess', 'int', 0x1f0fff, 'int', False, 'int', $processid)
    $i_sucess = DllCall("ntdll.dll","int","NtResumeProcess","int",$ai_Handle[0])
    DllCall('kernel32.dll', 'ptr', 'CloseHandle', 'ptr', $ai_Handle)
    If IsArray($i_sucess) Then 
        Return 1
    Else
        SetError(1)
        Return 0
    Endif
Else
    SetError(2)
    Return 0
Endif
EndFunc
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("App Freezer", 400, 201, 272, 247)
$freeze = GUICtrlCreateButton("Freeze", 40, 88, 145, 57)
GUICtrlSetFont(-1, 12, 800, 0, "Calibri")
$Defreeze = GUICtrlCreateButton("Defreeze", 217, 88, 137, 57)
GUICtrlSetFont(-1, 12, 800, 0, "Calibri")
$Input1 = GUICtrlCreateInput("******.exe", 208, 32, 121, 26)
GUICtrlSetFont(-1, 11, 800, 0, "Calibri")
$Label1 = GUICtrlCreateLabel("Process Name : ", 71, 33, 129, 27)
GUICtrlSetFont(-1, 14, 800, 0, "Calibri")
$Label2 = GUICtrlCreateLabel("Created by Slaeghtor", 16, 160, 148, 23)
GUICtrlSetFont(-1, 12, 800, 0, "Calibri")
$Label3 = GUICtrlCreateLabel("[Only registered and activated users can see links. Click Here To Register...]", 233, 157, 152, 23)
GUICtrlSetFont(-1, 12, 800, 0, "Calibri")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
	Case $GUI_EVENT_CLOSE
		Exit
	Case $freeze
		$process = GUICtrlRead($Input1)
		_ProcessSuspend($process)
	Case $Defreeze
		_ProcessResume($process)
	

	EndSwitch
WEnd