戻る


コンピュータをロックする方法(その1)
動作環境 Windows2000 / WindowsXP 開発環境 Visual Basic 6.0 (+SP5)
説明 コンピュータをロックします。
用意するもの：標準フォーム(Form1)、コマンドボタン(Command1)


'変数の明示的な宣言を強制
Option Explicit

'コンピュータをロックするAPI関数の宣言
Private Declare Function LockWorkStation Lib "user32.dll" () As Long

Private Sub Command1_Click()

Dim ret As Long

ret = LockWorkStation()

End Sub