「GetKeyState.exe(キー状態取得実行ファイル)」を編集中 (節単位)

== 実装例 ==
サンプルコードの

<syntaxhighlight lang="javascript">
window.Alert( "XXキーが押されています" );
</syntaxhighlight>

の部分を任意の動作コードに置きかえてください。マクロの動作内容に変化をつけたり、複数のマクロの実行コードを振り分けてひとつのマクロにまとめたりすることができます。

;サンプルコード1
<syntaxhighlight lang="javascript" copy>
var wshShell = new ActiveXObject("WScript.Shell");

// カレントディレクトリをマクロディレクトリに変更
wshShell.CurrentDirectory = editor.FullName.match(/^.*\\/)[0] + 'Macros';

// SHIFTキー状態を取得
var shift = wshShell.Run("GetKeyState.exe shift", 0, true);

if(shift != -1){
  if(shift == 1) window.Alert("Shiftキーが押されています");
}
</syntaxhighlight>

;サンプルコード2
* 実行ファイル GetKeyState.exe の実在確認をします（GetKeyState がない場合でも動作する）
* カレントディレクトリ（Mery.exe の作業フォルダ）を変更しません
<syntaxhighlight lang="javascript" copy>
var ctrl = 0, alt = 0;

// GetKeyState.exe のフルパスを " " で囲う
var gks = '"' + editor.FullName.replace( /[^\\]+$/ , '' )
        + 'Macros\\GetKeyState.exe"';

// 半角空白＋コマンドライン引数をつけて GetKeyState を実行する（実行ファイルの実在確認をする）
if ( new ActiveXObject( "Scripting.FileSystemObject" ).FileExists( gks ) ) {
  var wshShell = new ActiveXObject('WScript.Shell');

  // Ctrl キーの状態を取得
  ctrl = wshShell.Run( gks + ' control', 0, true );
  // Alt キーの状態を取得
  alt = WshShell.Run( gks + ' alt' , 0, true );
}

// 修飾キーによる動作の切り替え
if ( ctrl > 0 && alt > 0 ) {
  window.Alert( "CtrlキーとAltキーが押されています" );
}
else if ( ctrl > 0 ) {
  window.Alert( "Ctrlキーが押されています" );
}
else if ( Alt > 0 ) {
  window.Alert( "Altキーが押されています" );
}
else {
  window.Alert( "修飾キーは押されていません" ); // ← GetKeyState.exe がない場合も
}
</syntaxhighlight>

;サンプルコード3
ポップアップメニューマクロへの導入サンプル
*メニューに表示する内容や、選択した項目から実行するコマンドを切り替えます
<syntaxhighlight lang="javascript" copy>
var gks = editor.FullName.replace( /[^\\]+$/i , "" )
        + "Macros\\GetKeyState.exe";
var WshShell = new ActiveXObject( "WScript.Shell" );

// マクロ開始時の Ctrl キーの状態を取得
var $ctrl1 = WshShell.Run( "\"" + gks + "\" ctrl", 0, true );

var menu = CreatePopupMenu();
menu.Add( "ほげ", 1 );

// Ctrl キーを押しながら実行したときは、項目を追加表示する
if ( $ctrl1 == 1 ) {
  menu.Add( "ほげほげ", 2 );
}

// ポップアップメニューを表示
var r = menu.Track( mePosMouse );

// Ctrl キーを押しながら項目を選択したときは、動作をを変更する
var $ctrl2 = WshShell.Run( "\"" + gks + "\" ctrl", 0, true );

switch( r ) {
  case 1:
  if      ( $ctrl2 === 0 )  window.Alert( "ほげ" );
  else if ( $ctrl2 === 1 )  window.Alert( "ふが" );
  break;

  case 2:
  if      ( $ctrl2 === 0 )  window.Alert( "ほげほげ" );
  else if ( $ctrl2 === 1 )  window.Alert( "ふがふが" );
  break;

  default:
  break;
}
</syntaxhighlight>