在 VB.NET 的表单应用程序中将 ENTER 键发送到控制台

Question

编辑：我的问题从未完全解决，但下面的答案提供了一个有趣的结果。

该应用程序最终将由 powershell 脚本调用，在这种情况下，我没有下面解释的问题。 PS 控制台中不需要额外的 {ENTER}，因此没有更多问题。 通过 cmd.exe 手动启动我的应用程序时是否需要额外的 ENTER ，我不在乎

---

问题：在 VB.NET 表单应用程序中，我无法在代码完成运行后将控制台恢复为“默认”state。 我需要手动按回车。

我的应用程序也可以从命令行执行（在这种情况下，没有打开任何表单。代码正在自动执行并将 output 发送到控制台供用户查看发生了什么）

我调用AttachConsole(-1) ，运行一些代码，当一切都完成后，我在控制台中看到了我的最新消息，但好像这个过程还没有完成。

我试过SendKeys.SendWait("{ENTER}") 。 它运作良好，但仅当控制台是当前焦点时。 如果在代码运行时单击控制台外部，则 ENTER 键将发送到我激活的 window。

所以我试图让控制台成为当前的 window：

Dim bProcess As Process = Process.GetProcessesByName("cmd").FirstOrDefault()
SetForegroundWindow(bProcess.MainWindowHandle)
// I also tried AppActivate(bProcess.Id)

SendKeys.SendWait("{ENTER}")

FreeConsole()

不，ENTER 键仍将发送到其他地方，而不是控制台。 但它确实使控制台闪烁橙色，所以SetForegroundWindow似乎做了一些事情......

任何帮助将不胜感激：）

---

编辑

回应@TnTinMn 的回答：

FreeConsole()
// SendKeys.SendWait("test")
PieceOfCodeFromTnTinMn()

与我到目前为止的行为相同：如果在代码运行时失去焦点，这会将SendKeys.SendWait("~")命令发送到控制台“外部”。

但是上面的第二行没有注释，“测试”被发送到控制台之外，并且SendKeys.SendWait("~")被发送到控制台，正如预期的那样。

我仍在试图弄清楚这里发生了什么......

Answer 1

您可以使用 VB Interaction.AppActivate 方法在调用SendKeys.SendWait之前激活父控制台。 这要求您获取作为应用程序父进程的控制台 window 的 ProcessID。

一种方法是使用 Windows 管理工具 (WMI)。 以下内容并不漂亮，但似乎有效。 您将在调用FreeConsole后执行此操作

Using currentProcess As Process = Process.GetCurrentProcess
  Dim query As New SelectQuery()
  Dim props As New StringCollection
  props.Add("ProcessId")
  props.Add("ParentProcessId")
  With query
    .ClassName = "Win32_Process"
    .Condition = $"ProcessId={currentProcess.Id}"
    .SelectedProperties = props
  End With

  Dim parentProcessId As Int32
  Using searcher As New ManagementObjectSearcher(query)
    Using mos As ManagementObjectCollection = searcher.Get
      Using en As ManagementObjectCollection.ManagementObjectEnumerator = mos.GetEnumerator
        If en.MoveNext() Then
          parentProcessId = CInt(en.Current.Item("ParentProcessId"))
        End If
      End Using 'en
    End Using ' mos
  End Using 'searcher

  If parentProcessId <> 0 Then
    AppActivate(parentProcessId)
    SendKeys.SendWait("~")
  End If
End Using 'currentProcess