ya los encontre os posteo jejeje
ESTE ES PARA AVERIAGUAR EL USO DE LA RAM......
'Api GlobalMemoryStatus
''Esta api te trae los datos que se necesitan
Private Declare Function GlobalMemoryStatus Lib "kernel32" (lpBuffer As MEMORYSTATUS) As Long
'Type o estructura para usar con GlobalMemoryStatus
Private Type MEMORYSTATUS
dwLength As Long
dwMemoryLoad As Long
dwTotalPhys As Long
dwAvailPhys As Long
dwTotalPageFile As Long
dwAvailPageFile As Long
dwTotalVirtual As Long
dwAvailVirtual As Long
End Type
Public Sub MostrarMemoria(ByRef MemoriaVirtual As String, ByRef MemoriaDisponible As String, _
ByRef MemoriaTotal As String)
'Variable de tipo MEMORYSTATUS para obtener los datos devueltos
Dim memoria As MEMORYSTATUS
'variable de retorno
Dim Retorno As Long
Dim Porcentaje As Integer
memoria.dwLength = Len(memoria)
Retorno = GlobalMemoryStatus(memoria)
Porcentaje = 100 - memoria.dwMemoryLoad
'Retornamos la Informacion
MemoriaTotal = Format(memoria.dwTotalPhys / 1000000, "00.0") & " MB" 'Memoria total
MemoriaDisponible = Format(memoria.dwAvailPhys / 1000000, "00.0") & " MB" 'Memoria libre
MemoriaVirtual = Format((memoria.dwTotalPageFile - memoria.dwAvailPageFile) / 1000000, "00.0") & " MB" 'Memoria Virtual
End Sub
Aqui esta el del uso del CPU+
http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/zip/informacion-cpu-con-wmi.zipLA idea seria crear algo asi como la figura pero con graficos mas bueno y ponerlo en el escritorio....
Espero que se haga un buen proyecto y lo publiquemos en el foro jejeje.
Esta buena la idea y con lo del clima creo que tambien se puede voy a buscar info
Autor
En línea
