C# と VB.NET の質問掲示板

ASP.NET、C++/CLI、Java 何でもどうぞ

ログ内検索

キーワードを複数指定する場合は半角スペースで区切ってください。
検索条件は、(AND)=[A かつ B] (OR)=[A または B] となっています。
[返信]をクリックすると返信ページへ移動します。

キーワード	/	検索条件	/
検索範囲	/	強調表示	/ ON (自動リンクOFF)
結果表示件数	/	記事No検索	/ ON
大文字と小文字を区別する

No.83431 の関連記事表示

ヒット / 10件

<< 0 >>

■83431

　3分後に自動シャットダウン

□投稿者/ ざっく -(2017/03/23(Thu) 13:03:36)

分類:[.NET 全般]　


3分後に自動実行します、というダイアログを出したあと
OKボタンが押されるか三分経つと自動的にシャットダウンが実行されるプログラムを
以下のように書きました。

ただ、このコードはCreateObject("WScript.Shell")を使っているため
option strictでエラーとなってしまいます。

どうすればエラー無しにすることができますか？


                Dim rc As Integer
                Dim WSH As Object = CreateObject("WScript.Shell")
                rc = WSH.Popup("シャットダウンしますか？(3分後に自動実行)", 180, "自動シャットダウン", vbOKCancel)

                WSH = Nothing

                If rc = vbOK Or rc = -1 Then            '1 vbOK     2 vbCancel  -1 自動停止した場合

                    Call Shell("shutdown -s -t 3", vbHide)   
                    Application.Exit()
                End If

親記事 /過去ログ142より / 関連記事表示
削除チェック/

■83432

　Re[1]: 3分後に自動シャットダウン

□投稿者/ 魔界の仮面弁士 -(2017/03/23(Thu) 13:23:44)

■No83431 (ざっくさん) に返信
> WSH = Nothing
COM オブジェクトの即時解放を目的としているのなら、これでは不足です。

VBScript ならば Nothing 代入だけで十分でしたが、
VB.NET では Marshal.ReleaseComObject メソッドを使う必要があります。

> If rc = vbOK Or rc = -1 Then
Or 演算子ではなく、OrElse 演算子を使いましょう。

> ただ、このコードはCreateObject("WScript.Shell")を使っているため
> option strictでエラーとなってしまいます。
> どうすればエラー無しにすることができますか？

つい先日、 No83366 や No83378 でも同じような事を書きましたが、
Option Strict On で利用するのであれば、
　（案１）参照設定して利用する
　（案２）CallByName で対応する
　（案３）リフレクションで対応する
といった対処になります。

あるいは Partial Class や Partial Method 等を用いて、
Popup メソッドの処理部分のみを、Option Strict Off のファイルに逃がすかですね。

'案１
Dim wshShell As New IWshRuntimeLibrary.WshShell()
Dim rc As Integer = wshShell.Popup("シャットダウンしますか？(3分後に自動実行)", 180, "自動シャットダウン", vbOKCancel Or vbQuestion Or vbDefaultButton2)
System.Runtime.InteropServices.Marshal.ReleaseComObject(wshShell)
If rc = vbOK OrElse rc = -1 Then

'案２
Dim WSH As Object = CreateObject("WScript.Shell")
Dim rc As Integer = CInt(CallByName(WSH, "Popup", CallType.Method, "シャットダウンしますか？(3分後に自動実行)", 180, "自動シャットダウン", vbOKCancel Or vbQuestion Or vbDefaultButton2))
System.Runtime.InteropServices.Marshal.ReleaseComObject(WSH)
If rc = vbOK OrElse rc = -1 Then

'案３
Dim WSH As Object = CreateObject("WScript.Shell")
Dim rc As Integer = CInt(WSH.GetType().InvokeMember( _
　　"Popup", System.Reflection.BindingFlags.InvokeMethod, Nothing, _
　　WSH, New Object() { _
　　　　"シャットダウンしますか？(3分後に自動実行)", _
　　　　180, _
　　　　"自動シャットダウン", _
　　　　vbOKCancel Or vbQuestion Or vbDefaultButton2 _
　　}))
System.Runtime.InteropServices.Marshal.ReleaseComObject(WSH)
If rc = vbOK OrElse rc = -1 Then