Función para liberar Memoria no utilizada en vb.net

Muchas veces cuando realizamos nuestra aplicaciones nos despreocupamos de la memoria que esta utiliza y terminan cayéndose por uso excesivo de memoria. En esta oportunidad les traemos una excelente función que les permitirá liberar toda la memoria que el programa no este utilizando, esperamos sea de su utilidad.

Module Utilidades

    Private Declare Auto Function SetProcessWorkingSetSize Lib "kernel32.dll" (ByVal procHandle As IntPtr, ByVal min As Int32, ByVal max As Int32) As Boolean

    Public Sub LiberarMemoria()

     Try

      Dim memoria As Process
      memoria = Process.GetCurrentProcess()
      SetProcessWorkingSetSize(memoria.Handle, -1, -1)

     Catch ex As Exception

     End Try

    End Sub

End Module

Saludos

También te podría gustar...

12 Respuestas

  1. Joshyba dice:

    Probando haber si funciona

  2. Josue dice:

    Hermano felicidades
    El código es muy bueno, me funcionó
    (Y)

  3. Impresionante muchas gracias!!, no pensé que lo hiciera tan eficientemente!!

  4. Daniel dice:

    Como LIBERAR MEMORIA con VB6?

  5. hebano dice:

    Muchisimas Gracias Victor, me funcionó de maravilla

  6. foreneo dice:

    tenia ese problema con un Thread que por mas que hacia no liberaba la meemoria al terminar

    esto esta de maravisha

  7. julio dice:

    Gracias funciona bien de 40 mg bajo a 10 mg

  8. Alvaro Cabrera dice:

    Para nosotros también fue un éxito

  9. carlos dice:

    La mejor funcion para bjar la memoria aguas con el cpu que sube le pico nosotros metimos un contador para hacer determinada veces

  10. Tuto dice:

    Gracias genio…funcó de lo mejor
    saludos desde Chile

  11. Miguel Angel Vallejos Sánchez dice:

    Hola. Soy un principiante en esto. Donde pongo este módulo y como lo hago funcionar?
    Gracias

  12. el autor del código dice:

    Esta feo eso no de no poner la fuente, porque esta copiada cambiando solo los conceptos de ingles a español.
    Lo se por la declaración de la api.

Responder a Josue Cancelar respuesta

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *