LockWorkStation コンピュータをロックします。

Windows2000/WindowsXp

'================================================================
'= コンピュータをロックする

'=    (LockWorkStation.bas)
'================================================================

' コンピュータをロック
Declare Function Api_LockWorkStation& Lib "user32" Alias "LockWorkStation" ()
 
Var Ret As Long
   
Ret = Api_LockWorkStation

Stop
End