Visual Basic Tips

Windowsの終了(API)

下のサンプルではコマンドボタン毎にログオフ、シャットダウン、リブートを行います。

'ログオフ
Private Sub Command1_Click()
　　Call ExitWindowsEx(EWX_LOGOFF, 0)
End Sub

'シャットダウン
Private Sub Command2_Click()
　　Call ExitWindowsEx(EWX_SHUTDOWN, 0)
End Sub

'リブート
Private Sub Command3_Click()
　　Call ExitWindowsEx(EWX_REBOOT, 0)
End Sub

'----------------------------------------------------------
'　
'----------------------------------------------------------
Public Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long

Public Const EWX_LOGOFF = 0
Public Const EWX_SHUTDOWN = 1
Public Const EWX_REBOOT = 2


DownLoad vbtips080.lzh 5KB (VB6.0)