VB.NET 2008或更高版本:内存冲突通过winapi读取标准输入

Imports System.Runtime.InteropServices

Public Class Program
    <DllImport("kernel32.dll")>
    Private Shared Function GetStdHandle(ByVal nStdHandle As Integer) As IntPtr
    End Function

    <DllImport("kernel32.dll")>
    Private Shared Function ReadFile(ByVal hFile As IntPtr, ByVal lpBuffer As Byte(), ByVal nNumberOfBytesToRead As Integer, ByRef lpNumberOfBytesRead As Integer, ByVal lpOverlapped As IntPtr) As Boolean
    End Function

    Public Shared Sub Main()
        Dim stdinHandle As IntPtr = GetStdHandle(-10) ' 获取标准输入句柄

        Dim buffer(255) As Byte ' 缓冲区
        Dim bytesRead As Integer ' 实际读取的字节数

        ReadFile(stdinHandle, buffer, buffer.Length, bytesRead, IntPtr.Zero) ' 读取标准输入

        Dim input As String = System.Text.Encoding.Default.GetString(buffer, 0, bytesRead) ' 将字节数组转换为字符串

        Console.WriteLine("输入内容：" & input)
    End Sub
End Class