VB.net发送消息到控制台盒

Question

大家好，我正在尝试从我的 vb 程序发送一些文本到控制台框（dos 框），但我似乎无法让它工作。

这是我当前的代码：

Dim blah As Long
Private Const WM_GETTEXT As Integer = &HD
Declare Auto Function SendMessage Lib "user32.dll" (ByVal hWnd As IntPtr, ByVal msg As Integer, ByVal wParam As IntPtr, ByVal lParam As String) As IntPtr

blah = FindWindow1(vbNullString, "Form1")
blah = FindWindowEx(blah, vbNullString, "ConsoleWindowClass", vbNullString)
Debug.Print(blah)
SendMessage(blah, WM_SETTEXT, 200, "A")

虽然这确实有效，但它只在标题栏上放置一个 A ，而不是在控制台内。

任何帮助都会很棒！ :o)

大卫

Answer 1

我还没有尝试过，但我想你可能想看看 AttachConsole 将您的进程附加到命令行进程的控制台。然后您应该能够使用Console.WriteLine 和我假设的类似方法。

您可以在 PInvoke 页面。