Foro de elhacker.net

Pues Necesito saber eso


si una pc está inactiva por ejemplo apagarla

c me ocurrio esto:

inicia TIMER, registra la posicion de el mouse en 2 textbox X & Y

si al trascurrir el tiempo la posision del mouse es igual a la de x & y

(igual a inactividad) apagar

en caso de cambiar el valor de el textbox o de presionar na tecla

se renicia el timer

alguna idea?

gracias

podes usar GetLastInputInfo

Bueno, he hecho un ejemplo de uso, lo reconozco, me aburria mucho :xD:


Has de agregar un Timer con intervalo 100, y cuando lleves 5 segundos inactivo se mostrara un msgbox...

Option Explicit
 
Private Type PLASTINPUTINFO
    cbSize      As Long
    dwTime      As Long
End Type
 
Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Declare Function GetLastInputInfo Lib "user32.dll" (ByRef plii As PLASTINPUTINFO) As Long
 
'---------------------------------------------------------------------------------------
' Procedure : GetIdleMs
' Author    : Karcrack
' Date      : 17/10/2008
' Purpose   : Obtiene los Ms desde el ultimo movimiento del usuario.
'---------------------------------------------------------------------------------------
'
Public Function GetIdleMs() As Double
    Dim PlastII         As PLASTINPUTINFO
 
    PlastII.cbSize = Len(PlastII)
 
    Call GetLastInputInfo(PlastII)
 
    GetIdleMs = GetTickCount - PlastII.dwTime
End Function
 
'---------------------------------------------------------------------------------------
' Procedure : Timer_Timer
' Interval  : 100 ms
'---------------------------------------------------------------------------------------
'
Private Sub Timer_Timer()
    If GetIdleMs > 5000 Then
        MsgBox "Llevas 5 segundos inactivo."
    End If
End Sub

Saludos :D