Determining system idle time using GetLastInputInfo and LastInputInfo

Asked by Bryan_123 in FoxPro Database

Tags: lastinputinfo, getlastinputinfo

Is there a way in FoxPro that I can read the system idle time. I have a timer on the main form that is set up for 15 second intervals and I'd like it to check how long the computer has been idle. I don't want to record my own keystokes and mouse clicks. I just want to read the system settings. I'm having trouble with the GetLastInputInfo and LastInputInfo API calls.

CaptainCyril:

09/07/04 01:34 PM, ID: 11515770

If your problem is the struct type here is an example from MSDN how to do it in FoxPro

typedef struct _SYSTEMTIME { 
   WORD wYear ;
   WORD wMonth ;
   WORD wDayOfWeek ;
   WORD wDay ;
   WORD wHour ;
   WORD wMinute ;
   WORD wSecond ;
   WORD wMilliseconds ;
} SYSTEMTIME

To pass data between Visual FoxPro and the GetSystemTime( ) function, you must create a 40-byte string buffer (consisting initially of spaces) and then pass the address of this string to the function for it to fill in. When the string is returned, you must parse it in 2-byte increments to extract the individual fields of the structure. The following fragment illustrates how you could extract three of the fields from the structure:

DECLARE INTEGER GetSystemTime IN win32api STRING @
cBuff=SPACE(40)
=GetSystemTime(@cBuff)

tYear = ALLTRIM(STR(ASC(SUBSTR(cBuff,2)) *  ; 
   256 + ASC(SUBSTR(cBuff,1))))
tMonth = ALLTRIM(STR(ASC(SUBSTR(cBuff,4)) * ; 
   256 + ASC(SUBSTR(cBuff,3))))
tDOW = ALLTRIM(STR(ASC(SUBSTR(cBuff,6)) * ; 
   256 + ASC(SUBSTR(cBuff,5))))

Bryan_123:

09/07/04 02:15 PM, ID: 11516068

I'm trying this:

Declare Integer GetTickCount In kernel32
Declare Short GetLastInputInfo In win32API String @ plii

iTime      = GetTickCount()
plii      = Chr(8) + Replicate(Chr(0), 7)
iLast      = GetLastInputInfo(@plii)

iLast ends up being an 8 character string instead of a number.

In VB.Net GetTickCount() gave me the in milliseconds how long my computer has been on (It does this in FoxPro). Then GetLastInputInfo would get me the number of milliseconds that my computer had been on when the last keypress or mousemove had been made. I then just subtracted the GetLastInputInfo from the GetTickCount and divided the result by 60000 to get how long in minutes the computer had been idle. But in foxpro, I can't use the GetLastInputInfo the same way because of the syntax. I'm stuck. I don't know how to translate the 8 character that GetLastInputInfo returns.

Bryan_123:

09/07/04 03:23 PM, ID: 11516446

Thank you for pointing me in the right direction!
Here's how I got it to work

Local iTime As Integer, iLast As Integer
Local plii As String, cLast As String

Declare Integer GetTickCount In kernel32
Declare Short GetLastInputInfo In win32API String @ plii

iTime      = GetTickCount()
plii      = Chr(8) + Replicate(Chr(0), 7)
cLast      = GetLastInputInfo(@plii)
iLast      = (Asc(Substr(plii, 8, 1)) * 16777216) + ;
(Asc(Substr(plii, 7, 1)) * 65536) + ;
(Asc(Substr(plii, 6, 1)) * 256) + ;
Asc(Substr(plii, 5, 1))

iTime is the milliseconds your computer has been on.
iLast is the milliseconds your computer was on when your last keystroke or mousemove was.

To get minutes idle:
(m.iTime - m.iLast) / 60000

--------------------

http://www.experts-exchange.com/Microsoft/Applications/FoxPro/Q_25534460.html

Asked by SystmProg in FoxPro Database

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:

clear

DECLARE integer GetSystemTimes IN "kernel32.dll" string @, string @, string @

t1 = SECONDS()
a1 = repl(CHR(0),8)
b1 = repl(CHR(0),8)
c1 = repl(CHR(0),8)
? GetSystemTimes(@a1,@b1,@c1)
a1 = str2bi(a1)
b1 = str2bi(b1)
c1 = str2bi(c1)
DO WHILE SECONDS()-t1 < 10
ENDDO
*=INKEY(10)
t2 = SECONDS()
a2 = repl(CHR(0),8)
b2 = repl(CHR(0),8)
c2 = repl(CHR(0),8)
? GetSystemTimes(@a2,@b2,@c2)
a2 = str2bi(a2)
b2 = str2bi(b2)
c2 = str2bi(c2)
st = (b2-b1)+(c2-c1)

? "Waiting period: ", t2-t1, "s"
? "CPU usage %: ", (st-(a2-a1))/st*100
*? a2-a1
*? b2-b1
*? c2-c1


PROCEDURE Str2BI
LPARAMETERS lcString

LOCAL lnOut, laPower256[8]
lnOut = 0
laPower256[1] = 1
laPower256[2] = 256
laPower256[3] = 256*256
laPower256[4] = 256*256*256
laPower256[5] = 256*256*256*256
laPower256[6] = 256*256*256*256*256
laPower256[7] = 256*256*256*256*256*256
laPower256[8] = 256*256*256*256*256*256*256

FOR lnI = 1 TO 8
  lnOut = lnOut + ASC(SUBSTR(lcString, lnI, 1))*laPower256[lnI]
NEXT

RETURN lnOut