vbコンソールアプリケーションが閉じない

Question

私はvb.netを作成してADから属性を取得し、ローカル変数を作成しました。 これは問題ありません。問題は、点滅するカーソルだけでコンソールウィンドウを開いたままにしておくことです。理想的には、変数を作成するとすぐに終了します。

は、コンソールを閉じていない、なぜ私はEnvironment.Exit（0）

Module Module1 

Sub Main() 
    Dim objShell 
    Dim objUserEnv 
    Dim objADSysInfo 
    Dim objUser 

    objShell = CreateObject("WScript.Shell") 
    objUserEnv = objShell.Environment("USER") 
    objADSysInfo = CreateObject("ADSystemInfo") 
    objUser = GetObject("LDAP://" & objADSysInfo.UserName) 
    ' This will create the variable %ipphone% 
    objUserEnv("ipphone") = objUser.ipPhone 

End Sub 

End Module 

を追加する任意のアイデアを試してみましたか？

Answer 1

さて、Environment.Exit(0)は動作しておらず、あなたはコンソールアプリケーション内にいますnを試してみてください

Project>Add Reference>Assemblies>Frameworkを検索し、System.Windows.Formsを検索してください。チェックボックスをオンにしてOkをクリックしてください。

Imports System.Windows.Forms 
Module Module1 

Sub Main() 

    Dim objShell 
    Dim objUserEnv 
    Dim objADSysInfo 
    Dim objUser 

    objShell = CreateObject("WScript.Shell") 
    objUserEnv = objShell.Environment("USER") 
    objADSysInfo = CreateObject("ADSystemInfo") 
    objUser = GetObject("LDAP://" & objADSysInfo.UserName) 
    ' This will create the variable %ipphone% 
    objUserEnv("ipphone") = objUser.ipPhone 
    Application.Exit() 
End Sub 
End Module 

は、私はあなたのコードを実行したとき、それは、タスクを完了していないので、それが閉じていない可能性がありますことをもう一つの理由がある

、それは完全なdidntの、私はこのエラー

Additional information: No mapping between account names and security IDs was done. (Exception from HRESULT: 0x80070534)

あなたはdidnの以来を得ましたあなたの質問にこれを言及していない、あなたはこのエラーを取得didntを推測していますか？

Answer 2

モジュールのMyApp

Sub Main() 
    ' Attach the event handler method 
    AddHandler AppDomain.CurrentDomain.ProcessExit, AddressOf MyApp_ProcessExit 

    Dim objShell 
    Dim objUserEnv 
    Dim objADSysInfo 
    Dim objUser 

    objShell = CreateObject("WScript.Shell") 
    objUserEnv = objShell.Environment("USER") 
    objADSysInfo = CreateObject("ADSystemInfo") 
    objUser = GetObject("LDAP://" & objADSysInfo.UserName) 
    ' This will create the variable %ipphone% 
    objUserEnv("ipphone") = objUser.ipPhone 

    Environment.Exit(0) 
End Sub 

Private Sub MyApp_ProcessExit(sender As Object, e As EventArgs) 
    Console.WriteLine("App Is Exiting...") 
End Sub 

エンドモジュール

Answer 3

はこれを試してみてください：

Application.Exit 

を、私はそれはあなたのプロジェクトの設定の原因だと思う、私はそのような問題があったことがない

Answer 4

私はちょっと待っていました。