« パイプの前後で遅延展開を使う。 | トップページ | バッチファイルからシフトキーの押し下げ状態を調べる。 »

2007年3月23日 (金)

スクリプトからシフトキー類の押し下げ状態を調べる。

var ShiftKeys=new Array();
var fQuit=false;
var ie=new ActiveXObject("InternetExplorer.Application");
ie.Navigate("about:blank");
while(ie.Busy||ie.ReadyState!=4) WScript.Sleep(100);
ie.Document.body.onunload=OnUnload;
ie.Quit();
while(!fQuit) WScript.Sleep(100);
WScript.Echo(ShiftKeys.join(" + "));

function OnUnload(){
if(this.event.shiftLeft) ShiftKeys.push("shiftLeft");
if(this.event.shiftKey) ShiftKeys.push("shiftKey");
if(this.event.altLeft) ShiftKeys.push("altLeft");
if(this.event.altKey) ShiftKeys.push("altKey");
if(this.event.ctrlLeft) ShiftKeys.push("ctrlLeft");
if(this.event.ctrlKey) ShiftKeys.push("ctrlKey");
fQuit=true;
}

« パイプの前後で遅延展開を使う。 | トップページ | バッチファイルからシフトキーの押し下げ状態を調べる。 »