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

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