Windowsの一発終了Exit.exe

Ｅｘｉｔ！
Ver.1.0.3

＜Exitとは＞
　起動するだけでWindowsが終了できます。
　起動スイッチに1を選べばフォームが出て、ボタンで終了、再起動が選べます。　2を選べば再起動です。
　1.0.3では３で最近使ったファイルのクリアができます。
　デスクトップにショートカットを置いておけば一発終了。　サイズはたったの２０ＫＢ！
　ショートカットのプロパティでリンク先を"c:\hoge\exit.exe"なら"c:\hoge\exit.exe 2"（半角スペース＋半角2）と変えて名前を再起動とでもすればダブルクリックで再起動できます。

　旧８（PC-98）やc:\windowsにwindowsがインストールされてない場合でも動くように改良しました。
　Win98用（Win95可）でＶＢ６（ＳＰ３）必要　ＮＴでは確認してません。
　ＩＥ５のインストールがしてあると終了や再起動時にExplorerがこける場合があります。

ex103.zip（4.9KB）のDownLoad（本体＋readme）

　VisualBasicの他のVerをお持ちの方は次のコードで実行ファイル（exe）が作れます。(ver.1.0.2です)
　フォームにCommandButtonを２つ置いて前のコードを仕込んで下さい。 APIを使わないコードです。

－－Property－－
Command1.Caption="Windowsの終了"
Command2.Caption="再起動"

－－Form1－－

Option Explicit
Dim WinD As String
Private Sub Command1_Click()
    '電源断
    Dim AutoOff
    AutoOff = Shell(WinD + "\RUNDLL.EXE user.exe,exitwindows")
    Unload Me
    Set Form1 = Nothing
End Sub

Private Sub Command2_Click()
    '再起動
    Dim AutoOff
    AutoOff = Shell(WinD + "\RUNDLL.EXE user.exe,exitwindowsexec")
    Unload Me
    Set Form1 = Nothing
End Sub

Private Sub Form_Load()
    Dim CmdLine As String
    Me.Left = (Screen.Width - Me.Width) / 2
    Me.Top = (Screen.Height - Me.Height) / 2
    CmdLine = Right(Command(), 1)
    WinD = Environ("WINDIR")
    Select Case CmdLine
        Case "1"
            'Form表示
        Case "2"
            '再起動
            Command2.Value = True
        Case Else
            '電源断
            Command1.Value = True
    End Select
End Sub

End Function