Temperatura Del Disco

[Banker25]

  esta exlecente

[Dosjota]

Lo mismo digo Banker25, acabo de descargar y esperare para llegar a mi hogar para probarlo...
solo eso, y por el .EXE digo que esta muy bueno..
eso

[viviz02]

Descargaue el source hace un rato y cuando lo fui a ejecutar me dio un error que dice: "for loop not inicialize"

Ahora he descargado el .exe y me dice lo mismo. ¿Alguien sabe que puede ser? Estoy en  windos vista

[seba123neo]

mmmm ni idea en windows vista,capas que los script WMI hay que cambiarles algo...donde te da el error??? te tiene que marcar algun renglon del codigo...

[SKL (orignal)]

mmmm ni idea en windows vista,capas que los script WMI hay que cambiarles algo...donde te da el error??? te tiene que marcar algun renglon del codigo...

yo tengo VistaSP1 y funciona perfecto!

sl2

[viviz02]

Me lo marca en el Next de Private Function TemperaturaDelDisco() As Integer
Y me dice "run-time error '92': For loop not initialized".

[Hans el Topo]

El código es un caos total, guardar el margen y demás es fundamental para una lectura rápida, cuando veo que no se guarda el margen me vienen dos cosas a la cabeza, que el que programa es un "guarro" o que ha copy&pasteado de otro lugar

Existe un fallo en la temperaturadeldisco, cuando se recorre un array/colección de elementos se le debe indicar en donde metes el siguiente elemento, agregándolo se supone que "funciona" y digo "funciona" porque a mi me marca 0 de temperatura 

Código [Seleccionar] Expandir

Private Function TemperaturaDelDisco() As Integer
    Dim objWMI, objInstances, objInstance
    Dim sData() As String
    Dim strServer As String: strServer = "."
    Set objWMI = GetObject("winmgmts://" & strServer & "/root\WMI")
    Set objInstances = objWMI.InstancesOf("MSStorageDriver_ATAPISmartData", 48)
On Error Resume Next
    For Each objInstance In objInstances
        With objInstance
            sData = Split(Join(.VendorSpecific, ","), ",")
            TemperaturaDelDisco = sData(115)
        End With
    Next objInstance  <--
End Function 

[Pox1]

Ummm
Que no le vas a decir nada uyyyyyy.
Mas candelero..

[Ch3ck]

Jajaja no lo puedo descargar porque no muestra la imagen del Captcha o como se llame, habra que esperar....

Se vé interesante. Saludos!!!!

[seba123neo]

no anda la pagina por ahora....la estan cambiando de servidor...