The low level keyboard interface: Optionally.

// The DOS-style interface (press key ...)
// File: keyboard.w_js

function WM_CHAR(key)
{
   var text = "Key code = " + key
   Window.TextOut(0,50,50,text);
   Window.UpdateWindow()

// var shell=new ActiveXObject("WScript.Shell");
// shell.Popup(text ,0,"WM_CHAR",0);
}

' The DOS-style interface (press key ...)
' File: keyboard.w_vbs (VBScript)

Function WM_CHAR(key)
   text = "Key code = " & key
   Window.TextOut 0,50,50,text
   Window.UpdateWindow
End Function