【VB】vbAdvance 写控制台程序需要的函数

VB vbAdvance 写控制台程序需要的函数：

Option Explicit

Private Declare Function GetStdOutHandle Lib "kernel32" Alias "GetStdHandle" (Optional ByVal HandleType As Long = -11) As Long
Private Declare Function WriteFile Lib "kernel32" (ByVal hFile As Long, ByVal lpBuffer As String, ByVal cToWrite As Long, ByRef cWritten As Long, Optional ByVal lpOverlapped As Long) As Long

Private Function WriteLine(T As String) As Long
    WriteFile GetStdOutHandle, ByVal (T & vbCrLf), Len(T & vbCrLf), WriteLine
End Function

Private Sub Main()
    WriteLine "Hello world!"
End Sub