VB6 创建控制台应用程序
' 功能:为VB程序创建一个consolewindow。
Private Declare Function AllocConsole Lib "kernel32" () As Long
'功能:销毁为VB程序创建的consolewindow。
Private Declare Function FreeConsole Lib "kernel32" () As Long
' DOS程序有三个标准文件:标准输入文件(stdin),标准输出文件(stdout),标准错误文件(siderr)。与此类
'似,控制台程序窗口有三个句柄:
' 输入句柄(inputhandle)—指向控制台程序的输入缓冲区
' 输出句柄(outputhandle)、错误句柄(errorhandle)—指向控制台程序的屏幕输出缓冲区
' 在能够进行输入/输出操作之前,必须用GetstdHandle函数取得consolewindow的这三个句柄。
'功能:返回consolewindow的三个句柄之一。
Private Declare Function GetStdHandle Lib "kernel32" (ByVal nStdHandle As Long) As Long
'nStdHandle参数说明:
Private Const INPUT_HANDLE = -10& '返回inputhandle
Private Const OUTPUT_HANDLE = -11& '返回outputhandle
Private Const ERROR_HANDLE = -12& '返回errorhandle
' consolewindow并获得其input/outputhandle后,就可以利用WriteConsole和ReadConsole进行输入/输出了。
'功能: 向控制台窗口输出字符串?
'说明: hConsoleOutput—控制台的outputhandle?
' lpBuffer—要输出的字符串?
' nNumberOfCharsToWrite—要输出的字符串的长度?
' lpNumberofCharsWritten—实际输出的字符串的长度,可置为vbNull。
' lpReserved—保留,必须置为vbNul。
Private Declare Function WriteConsole Lib "kernel32" Alias "WriteConsoleA" _
(ByVal hConsoleOutput As Long, _
lpBuffer As Any, _
ByVal nNumberOfCharsToWrite As Long, _
lpNumberOfCharsWritten As Long, _
lpReserved As Any) As Long
'功能: 从输入缓冲区输入字符串?
' 说明:此函数是以块方式输入信息。在本文的示例中,只有用户按了Enter(回车)键后,此函数才返回。
' hConsoleInput—consolewindow的inputhandle?
' lpBuffer—输入缓冲区地址?
' nNumberOfCharsToRead—输入缓冲区的长度?
' lpNumberOfCharsRead—实际读入的字符数,可置为vbNull。
' lpReserved—保留,必须置为vbNull。
Private Declare Function ReadConsole Lib "kernel32" Alias "ReadConsoleA" _
(ByVal hConsoleInput As Long, _
lpBuffer As Any, _
ByVal nNumberOfCharsToRead As Long, _
lpNumberOfCharsRead As Long, _
lpReserved As Any) As Long
'功能: 设置控制台输入缓冲区的输人模式或屏幕输出缓冲区的输出模式?
' 说明:在用ReadConsole和WriteConsole函数行输入/输出前,要用此函数设置好输入/输出模式。
' hConsoleHandle—consolewindow的Inputhandle或outputhandle
Private Declare Function SetConsoleMode Lib "kernel32" (ByVal hConsoleHandle As Long, ByVal dwMode As Long) As Long
'dwMode是要设置的输入或输出模式值。hConsoleHandle是Inputhandle时,dwMode可取如下值的组合:
Private Const LINE_INPUT = &H2
Private Const ECHO_INPUT = &H4
Private Const MOUSE_INPUT = &H10
Private Const PROCESSED = &H1
Sub Main()
Call AllocConsole
Dim inputHandle As Long
Dim str As String
Dim outputHandle As Long
str = "hello world" & vbCrLf
outputHandle = GetStdHandle(OUTPUT_HANDLE)
Call WriteConsole(outputHandle, ByVal str, Len(str), vbNull, vbNull)
inputHandle = GetStdHandle(INPUT_HANDLE)
Call ReadConsole(inputHandle, vbNull, 255, vbNull, vbNull)
Call FreeConsole
End Sub