- Code: Select all
#include once "windows.bi"
dim as HANDLE nStdHandle
dim as uinteger lpcNumberOfEvents
dim as integer terminate=0
nStdHandle=GetStdHandle(STD_INPUT_HANDLE)
print "STDIN =";nStdHandle
print "Press any key ..";
do
sleep 200
print ".";
lpcNumberOfEvents=0
GetNumberOfConsoleInputEvents(nStdHandle, @lpcNumberOfEvents)
if lpcNumberOfEvents then
print
print "lpcNumberOfEvents ";lpcNumberOfEvents
terminate=1
end if
loop until terminate