コンピュータをロックする          <TOP>


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

 

Windows2000/WindowsXp

 

'================================================================
'= コンピュータをロックする
'=    (LockWorkStation.bas)
'================================================================

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

Stop
End