Untitled

Imports System.Runtime.InteropServices

Public Class Form1
    Private it As New IdleTime
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        TextBox1.Text = it.IdleTime 'Ambil idle time dalam satuan detik
    End Sub
End Class

' BAGIAN INI BIARIN AJA.. GW JG GA TAU NTAH INI APA WKWKWK..
Public Class IdleTime
    Private Declare Function GetLastInputInfo Lib "User32.dll" _
      (ByRef lastInput As LASTINPUTINFO) As Boolean

    <StructLayout(LayoutKind.Sequential)> _
    Public Structure LASTINPUTINFO
        Public cbSize As Int32
        Public dwTime As Int32
    End Structure

    Public ReadOnly Property IdleTime() As Integer
        Get
            Dim lastInput As New LASTINPUTINFO
            lastInput.cbSize = Marshal.SizeOf(lastInput)
            If GetLastInputInfo(lastInput) Then
                Return (Environment.TickCount - lastInput.dwTime) / 1000
            End If
        End Get
    End Property
End Class