Win32KeyStateTest.bas

#include "windows.bi"

dim as uByte keys(256)


do
    locate 1,1

    GetKeyState(VK_SHIFT)   ' comment out and no updates??
    var iResult = GetKeyboardState(@keys(0))

    if iResult = 0 then
        print "call error"
        system
    elseif @keys(0) = NULL then
        print "null ptr"
        system
    end if

    print "no Errors"

    for i as integer = 0 to 256
        print keys(i); " ";
    next i
loop until multikey(1)
sleep