| Вопрос: Вопрос консольщикам | Добавлено: 26.01.05 13:06 |
Автор вопроса:  LamerOnLine | ICQ: 334781088 |
|
Такой вот код в модуле:
Option Explicit Declare Function AllocConsole Lib "kernel32" () As Long Declare Function FreeConsole Lib "kernel32" () As Long Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) _ As Long Declare Function GetStdHandle Lib "kernel32" (ByVal _ nStdHandle As Long) As Long 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 Const STD_OUTPUT_HANDLE = -11& Dim hConsole As Long Sub Main() If AllocConsole() Then hConsole = GetStdHandle(STD_OUTPUT_HANDLE) If hConsole = 0 Then MsgBox "Couldn't allocate STDOUT" Else MsgBox "Couldn't allocate console" End If Dim Result As Long, sOut As String, cWritten As Long sOut = "Hi There" & vbCrLf Result = WriteConsole(hConsole, ByVal sOut, Len(sOut), cWritten, ByVal 0&) 'CloseHandle hConsole 'FreeConsole 1: DoEvents GoTo 1 End Sub Окно выводится, но в режиме отладки его закрытие глючит весь процесс. После компиляции проще, но все равно непонятно как вводить текст и отслеживать нажатия клавиш. Кто-то вроде тут занимался консолями, подскажите. |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  CyRax   Разработчик Offline Client ICQ: 204447456 Вопросов: 180 Ответов: 4229 |
Web-сайт: Профиль | | #1 | Добавлено: 26.01.05 13:58 |
| А зачем тебе? Чтение - функция обратная записи. Т.е. ReadConsole. Клавиши - Read/WriteConsoleInput. | ||
Страница: 1 |