Lock/Log off PC

[SpriggsySpriggs]

Thought someone might find it slightly useful. This code simply either locks the PC or logs it off. The flags can be used to even cause a shutdown but the way it is here just causes a logoff. Check out the MSDN pages to see all the flags. Could be good for a task scheduler program written in QB64.

Code: QB64: [Select]

1. $SCREENHIDE
2. DECLARE DYNAMIC LIBRARY "User32"
3.     FUNCTION LockWorkStation ()
4.     FUNCTION ExitWindowsEx (BYVAL flags, BYVAL reason)
5. END DECLARE
6.  
7. 'a = ExitWindowsEx(0, 0) 'logoff
8. a = LockWorkStation 'lock pc
9. SYSTEM