UACウィンドウを上げるとフォームが2回読み込まれる

Question

次のコードを使用してUACウィンドウを表示しています。それは正常に動作しますが、このウィンドウを上げるボタンを含むフォームは2回表示されます。つまり、このボタンをクリックすると、UACウィンドウが表示され、ファイルがコピーされ、成功メッセージが表示され、copyfileボタンを含む同じフォームの別のインスタンスが開きます。助けてください。

Dim proc As New ProcessStartInfo 
    proc.UseShellExecute = True 
    proc.WorkingDirectory = Environment.CurrentDirectory 
    proc.FileName = Application.ExecutablePath 
    proc.Verb = "runas" 
    Try 
     Process.Start(proc) 
    Catch 
     ' The user refused to allow privileges elevation. 
     MsgBox("Permission denied by user ! Can not proceed.", MsgBoxStyle.Critical) 
     vrIfDenied = 1 
     Return 
    End Try 

Answer 1

私が間違っている場合は私を訂正してくださいが、あなたのprocファイル名のプロパティが自分と同じであることがわかります。あなたは、同じアプリケーションを実行すると、現在のアプリケーションの2つのインスタンス

Answer 2

はあなたのコードにこれを追加せている：

<DllImport("shell32.dll", EntryPoint:="IsUserAnAdmin")> _ 
Public Shared Function IsUserAnAdmin() As Boolean 
End Function 

今ときにアプリが読み込まれると、それはのように上昇priviledgesを実行している、と灰色されたかどうかを確認しますそうでない場合は、このようなコピーファイルボタンアウト：

は

If IsUserAnAdmin() = False Then 
    btnCopyFile.enabled=false 
ElseIf IsUserAnAdmin() = True Then 
    btnCopyFile.enable=true 
    btnElevateMe.enabled=false 
End If 

今あなたがもともとpriviledgesを高め、UACプロンプトを起動するには投稿のコードを使用する第二ボタン（btnElevateMe）を追加することができます。 WITH特権を実行すると、グレー表示になります。

Application.Exit() 

そして、それが上昇priviledgesで2番目のインスタンスを起動した後、アプリを閉じます。これを「試してみてください終了」の後

また、あなたのコードに追加します。