ホーム > カテゴリ > Visual Basic >

Windowsを終了、再起動させる

Windowsを終了、再起動させるサンプルです。

サンプルの実行画面

ソースコード

[ExitWindowsEx.frm]

'ExitWindowsEx＝＞Windowsを終了させる

'<引数>
'uFlags:定数（EWX_××参照）
'dwReserved :常に０


'＠戻り値＠
'正常終了のとき ： 0 以外

Private Declare Function ExitWindowsEx Lib "USER32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long

Const EWX_LOGOFF = 0     'ユーザーが操作中のアプリケーションをクローズﾞしてログオフする
Const EWX_SHUTDOWN = 1   '終了
Const EWX_REBOOT = 2     '再起動
Const EWX_PROCESS = 4    '応答のないプロセスを強制終了する

Private Sub Command1_Click()

Call ExitWindowsEx(EWX_SHUTDOWN, 0)

End Sub

Private Sub Command2_Click()
  
Call ExitWindowsEx(EWX_REBOOT, 0)
 
End Sub

ソースコード一式のダウンロード

vbapi_exitwindowsex.zip 898 バイト (898 バイト)

このサンプルの動作環境について

このサンプルは 「Windows98」及び「Microsoft Visual Basic 5.0 Professional Edition」で確認しております。環境が異なる場合は正常に動作しない場合もございますのでご了承下さい。





関連記事


前の記事：画面の解像度を取得する
次の記事：アプリケーションを強制終了する

公開日：2015年03月05日
記事NO：00384