컴퓨터사용시간 GetTickCount

[올란도]

1. 모듈에 다음의 API FUNCTION 을 선언합니다.

Public Declare Function GetTickCount Lib "kernel32" () As Long

2. 폼에 버튼을 하나 생성하고 다음과 같이 코드하십시요.

Private Sub Command1_Click()
    Dim lngCount As Long
    Dim lngHours As Long
    Dim lngMinutes As Long
   
    lngCount = GetTickCount
   
    lngHours = ((lngCount / 1000) / 60) / 60
    lngMinutes = ((lngCount / 1000) / 60) Mod 60
   
    MsgBox "당신의 컴퓨터는 현재 "" & lngHours & "시간 "" & lngMinutes & _
           "분동안 켜져있습니다", vbInformation, "Sampler"
End Sub

[꼭미남강유]

흠.. 윈도 스캐줄러에 너 놓으면 딸램 컴 사용시간이 좀 줄어들래나?