لتقليل ضغط Sroking على الرام

[BlackWizard]

السلام عليكم ورحمة الله وبركاته

النهاردة لقيت الموضوع دا بالصدفة لتقليل الضغط على الرام وكان مكتوب فى موقع Sroking وموقع Rev6

دا للمعالج x64

While 1
	$v_SroProcesses = ProcessList("sro_client.exe")
	For $i = 1 To $v_SroProcesses[0][0]
		$v_ProcInfo = ProcessGetStats($v_SroProcesses[$i][1])
			If IsArray($v_ProcInfo) Then
				If ($v_ProcInfo[0] / 1024 >= 100000) Then _SM_CleanRam($v_SroProcesses[$i][1])
			EndIf
		Next
		Sleep(5*60000) ;It will release ram once every 5 minutes you can change this to whatever you like
WEnd

Func _SM_CleanRam($v_ProcessPID)
	If @OSArch <> "X86" Then
		Local $h_ProcHandle = DllCall("kernel32.dll", 'int', 'OpenProcess',  'int', BitOR(0x0400, 0x0100), 'int', False, 'int', $v_ProcessPID)
		$v_Return = DllCall("psapi.dll", 'int', 'EmptyWorkingSet', 'long', $h_ProcHandle[0])
		DllCall('kernel32.dll', 'int', 'CloseHandle', 'int', $h_ProcHandle[0])
		Return $v_Return
	EndIf
	Return 0
EndFunc

دا للمعالج X32

While 1
    $v_SroProcesses = ProcessList("sro_client.exe")
    For $i = 1 To $v_SroProcesses[0][0]
        $v_ProcInfo = ProcessGetStats($v_SroProcesses[$i][1])
            If IsArray($v_ProcInfo) Then
                If ($v_ProcInfo[0] / 1024 >= 100000) Then _SM_CleanRam($v_SroProcesses[$i][1])
            EndIf
        Next
        Sleep(5*60000) ;It will release ram once every 5 minutes you can change this to whatever you like
WEnd

Func _SM_CleanRam($iPID = -1)
    If $iPID <> -1 Then
        Local $hHandle = DllCall("kernel32.dll", 'int', 'OpenProcess', 'int', 0x1f0fff, 'int', False, 'int', $iPID)
        Local $hReturn = DllCall("psapi.dll", 'int', 'EmptyWorkingSet', 'long', $hHandle[0])
        DllCall('kernel32.dll', 'int', 'CloseHandle', 'int', $hHandle[0])
    Else
        $hReturn = DllCall("psapi.dll", 'int', 'EmptyWorkingSet', 'long', -1)
    EndIf
    Return $hReturn[0]
EndFunc   ;==>_SM_CleanRam

والطريقة اننا نعمله سكريبت ببرنامج Auto It
عفوا ,,, لايمكنك مشاهده الروابط لانك غير مسجل لدينا [ للتسجيل اضغط هنا ]

ودول سكريبتات انا عملتهم يعنى تسطب البرنامج وتشغل السكريبتات علطول
x64
عفوا ,,, لايمكنك مشاهده الروابط لانك غير مسجل لدينا [ للتسجيل اضغط هنا ]
x32
عفوا ,,, لايمكنك مشاهده الروابط لانك غير مسجل لدينا [ للتسجيل اضغط هنا ]

المصدرين
عفوا ,,, لايمكنك مشاهده الروابط لانك غير مسجل لدينا [ للتسجيل اضغط هنا ]
عفوا ,,, لايمكنك مشاهده الروابط لانك غير مسجل لدينا [ للتسجيل اضغط هنا ]


تحياتى