2017年11月
      1 2 3 4
5 6 7 8 9 10 11
12 13 14 15 16 17 18
19 20 21 22 23 24 25
26 27 28 29 30    
無料ブログはココログ

« VB.NETでZIP圧縮コマンドを作る。 | トップページ | Excelファイルを含むフォルダをカレントディレクトリにして開く。 »

2007年11月22日 (木)

バッチファイルやスクリプトからシフトキー類の押し下げ状態を調べる。(その2)

IEより、htmlfile のほうが性能的に軽い。

@if(0)==(0) ECHO OFF
CScript.exe //NoLogo //E:JScript "%~f0"
GOTO :EOF
@end
var ShiftKeys=new Array();
var Document=new ActiveXObject("htmlfile");
Document.write("<body></body>");
Document.close();
Document.body.onunload=OnUnload;
Document.write("<body></body>");
Document.close();
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");
}

« VB.NETでZIP圧縮コマンドを作る。 | トップページ | Excelファイルを含むフォルダをカレントディレクトリにして開く。 »