Здравствуйте. Имею удовольствие работать на маломощном офисном пк с 4 ГБ памяти. Все бы ничего, но в течении дня забивается оперативка. Для очистки использую vba скрипт, найденный на просторах интернета
Размер памяти расчитывается по формуле: Объём ОЗУ (Гб)x1024x100000
Все бы ничего, но хотелось бы автоматизировать данную процедуру, т.е. чтобы скрипт проверял память и если видит, что она забита более чем на 90% запускал чистку
Получить объем памяти как я понял можно через MemGetStats
Накидал на скорую руку небольшой скрипт
Но не могу понять, как запустить чистку. В справке не удалось найти информации. Буду признателен любой помощи
Код:
MsgBox "Очистить ОЗУ?",0, "Очистка оперативной памяти"
FreeMem=Space(409600000)
Msgbox "Очистка ОЗУ выполнена успешно",0," Очистка оперативной памяти"
Все бы ничего, но хотелось бы автоматизировать данную процедуру, т.е. чтобы скрипт проверял память и если видит, что она забита более чем на 90% запускал чистку
Получить объем памяти как я понял можно через MemGetStats
Накидал на скорую руку небольшой скрипт
Код:
While Sleep(1000)
$mem = MemGetStats()
If $mem[1] >= $mem[1]*80/100 Then
; тут чистка
Else
EndIf
WEnd