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

VB.NET
開発環境：Visual Studio Express 2013


（No77531の質問に関連して連投申し訳ないです）
フォーム上に配置したボタンからODBC登録を行えるようにしているのですが
管理者権限で起動しないと登録に失敗してしまいます。

調べてみたところ、マニフェストファイルのrequestedExecutionLevelを
requireAdministratorにすればよいとあったのですが、ClickOnceが有効になっているとNGになるようでした。

参考URL：http://okwave.jp/qa/q7347035.html

プロジェクトのセキュリティプロパティから、「ClickOnceセキュリティ設定を有効にする」の
チェックを外してみたのですが、結果は変わりませんでした。
上記URL内に記載されているMSDNのサイトも見てみたのですが、恥ずかしながら解決方法がわかりませんでした。


そこで別に、「アプリケーション開始時にrunasの動詞をつけて自身を管理者権限にて実行する」、
という記事を見つけましたので、ApplicationEventsに以下のように記載しました。

------------------------------------------------------
Namespace My

    Partial Friend Class MyApplication

        Private Sub MyApplication_Startup(ByVal sender As Object, _
            ByVal e As Microsoft.VisualBasic.ApplicationServices.StartupEventArgs) _
            Handles Me.Startup
            '管理者として自分自身を起動する
            Dim psi As New System.Diagnostics.ProcessStartInfo()
            'ShellExecuteを使う。デフォルトtrueなので、必要はない。
            psi.UseShellExecute = True
            '自分自身のパスを設定する
            psi.FileName = System.Reflection.Assembly.GetExecutingAssembly().Location
            '動詞に「runas」をつける
            psi.Verb = "runas"

            Try
                System.Diagnostics.Process.Start(psi)
            Catch ex As System.ComponentModel.Win32Exception
                '「ユーザーアカウント制御」ダイアログでキャンセルされたなどによって
                '起動できなかった時
                Console.WriteLine("起動しませんでした: " & ex.Message)
            End Try

        End Sub

    End Class

End Namespace
--------------------------------------------------------
参考URL：http://dobon.net/vb/dotnet/system/asadmin.html


こうすると起動されたフォームのボタンからODBC登録が出来たため、管理者権限にて起動はしたのですが、
この後に続くフォームロード時に、またこのクラスが呼び出されているようで、無限ループに陥ってしまいました。

そこで、お聞きしたいのが以下の２点です。

・ClickOnceの設定で管理者権限起動を行うにはどのようにすればよいのか。
・上記MyApplicationクラスの記載で無限ループを回避するにはどのようにすれば良いのか。


恐縮ですが、お知恵を拝借頂ければと思います。

■No77563 (魔界の仮面弁士 さん) に返信
> ■No77562 (sa さん) に返信
>>そこで改めてご質問なのですが、ClickOnceの設定を無効化するにはどのようにしたらよろしいでしょうか。
> 
> ClickOnce を使わずに配布する、ということで、
> XCopy 配置あるいは Windows Installer での配置を
> 検討されては如何でしょう。
> 
> 
>>psi.Verb = "runas"
>>無限ループに陥ってしまいました。
> 
> 自己起動する場合は、コマンドライン引数を追加し、
> それが付与されていた場合には、再々起動しないように If 判定するとか。

魔界の仮面弁士 さん

ご回答ありがとうございます。

> ClickOnce を使わずに配布する、ということで、
> XCopy 配置あるいは Windows Installer での配置を
> 検討されては如何でしょう。

今回作成しているのは任意起動のツールという位置付けで、特に配布等は考えていません。
なので、余計にClickOnceは不要だということにはなりますね…


> 自己起動する場合は、コマンドライン引数を追加し、
> それが付与されていた場合には、再々起動しないように If 判定するとか。

上記ソースにArgumentsプロパティで引数を追記しましたが、上手く行きませんでした。
以下、変更したTryの部分になります。


01 Try
02     '起動する
03     If psi.Arguments <> "no" Then
04         MessageBox.Show("!")
05         System.Diagnostics.Process.Start(psi)
06         psi.Arguments = "no"
07     End If
08 Catch 〜

これに４行目にブレークポイントを仕掛けた状態で起動したところ、
ブレークポイントで一時停止→４行目のメッセージボックスの後、自己起動が走るのですが
５行目時点で再度「！」のメッセージボックスが表示された上、ブレークポイントで止まりませんでした。
更にその後は前述したように延々とループを繰り返していきます。

Process.Startで自身を起動すると、別物？となりデバッグ上では制御出来ないのでしょうか。
その後に続くフォームロードメソッド内でもブレークポイントで止めれない状況です。

何かお気付きの点がありましたら、ご教示頂ければ幸いです。