JScriptでIEを操作 画面キャプチャ

前回に引き続き、JScriptでIEを操作する関数のメモ。
今回は画面キャプチャを行う関数。
画面キャプチャのフリーソフトのWinShotを利用する。

//***********************************************
//画面のキャプチャを取得する関数
//***********************************************
function capturePage( ie ) {
  var h1 = ie.document.body.clientHeight;//表示領域の高さ
  var h2 = ie.document.body.scrollHeight;//ページ領域の高さ
  for(var i = 0; i <= h2; i+=h1) {
    ie.document.parentWindow.scrollTo(0, i);
    runWinShot();
  }
}

//***********************************************
//WinShotを実行する関数
//***********************************************
function runWinShot()
{
  //WinShot.exeのファイルパス
  var WinShotExeFile = "C:\\ws153a\\WinShot.exe";
  //Shell関連の操作を提供するオブジェクトを取得
  var sh = new ActiveXObject( "WScript.Shell" );
  // コマンドを実行（アクティブウィンドウのキャプチャを取得）
  var e = sh.Exec( WinShotExeFile + " -j -a -x" );
  while (e.Status == 0) {
    WScript.Sleep(100);
  }
  sh = null;
}

以下のサイトのように、Excelを使って画面キャプチャを取得する方法もある。
　画面のスクリーンショットを，Excelブック内に自動的に保存するバッチ

ちなみに、上記サイトは他にもブラウザの自動操作に関するテクニックが色々のってるので参考になる。

JScriptでIEを操作

JScriptでIEを自動操作するための関数のメモ。テスト等で使う。
素直にSelenium等のテストツールを使えばいいのだが、客先の環境でなかなかフリーソフトを導入できない場合に使う。
IEしか操作はできないけどね．．．。

①テキストフィールドに入力するための関数。
テキストタグの指定はid属性もしくはname属性。

//****************************************************************
//テキスト、パスワードを入力
//****************************************************************
function input_text( objIE, input_type, tag_id, input_name, input_value )
{
  var objDoc = objIE.document;
  if(! objDoc) return 1;
  if( tag_id ) return input_text_specified_id( objDoc );
  else if( input_name ) return input_text_specified_name( objDoc );
  else return 1;
  //id属性がである要素に対して入力
  function input_text_specified_id( objDoc ) {
    var objTxt = objDoc.getElementById( tag_id );
    if( ! objTxt ) return 1;
    var tag_name = objTxt.tagName;
    var type = objTxt.type;
    if( ! tag_name || ! type ) return 1;
    if( tag_name.toUpperCase() == "INPUT" && type == input_type ) return input(objTxt);
    return 1;
  }
  //name属性がである要素(1番目の要素)に対して入力
  function input_text_specified_name( objDoc ) {
    var objInputs = objDoc.getElementsByTagName("input");
    if(! objInputs) return 1;
    for(var i = 0; i < objInputs.length; i++) {
      var type = objInputs.item(i).type;
      var name = objInputs.item(i).name;
      if( ! type || ! name ) continue;
      if( type == input_type && name == input_name ) return input(objInputs.item(i));
    }
    return 1;
  }
  //入力
  function input(objTxt) {
    objTxt.focus();
    WScript.Sleep( interval );
    objTxt.value = input_value;
    return 0;
  }
}

②ボタン、ラジオボタン、チェックボックスを押下するための関数。
 タグの指定はid属性、name属性、もしくは任意の属性。

//****************************************************************
//ボタン、ラジオボタン、チェックボックスをクリック
//****************************************************************
function click_btn( objIE, input_type, tag_id, input_name, attr_name, attr_value )
{
  var objDoc = objIE.document;
  if(! objDoc) return 1;
  if( tag_id ) return click_btn_specified_id( objDoc );
  else if( input_name || (attr_name && attr_value) ) {
    return click_btn_specified_name_and_value( objDoc );
  }
  else return 1;
  
  //id属性が"tag_id"である要素を押下
  function click_btn_specified_id( objDoc ) {
    var objBtn = objDoc.getElementById(tag_id);
    if(! objBtn) return 1;
    var tag_name = objBtn.tagName;
    var type = objBtn.type;
    if(! tag_name || ! type) return 1;
    if( tag_name.toUpperCase() == "INPUT" && type == input_type ) return click(objBtn);
    return 1;
  }
  //name属性が"input_name"である要素(1番目の要素)、かつ
  //"attr_name"属性が"attr_value"である要素を押下
  function click_btn_specified_name_and_value( objDoc ) {
    var objInputs = objDoc.getElementsByTagName("input");
    if(! objInputs) return 1;
    for(var i = 0; i < objInputs.length; i++) {
      var type = objInputs.item(i).type;
      if(! type) continue;
      if(type != input_type) continue;
      if( input_name ) {
        var name = objInputs.item(i).name;
        if( ! name ) continue;
        if( name != input_name ) continue;
      }
      if(attr_name && attr_value) {
        var atr = objInputs.item(i).attributes.getNamedItem(attr_name);
        if( ! atr ) continue;
        if( ! atr.value ) continue;
        if( atr.value != attr_value ) continue;
      }
      return click(objInputs.item(i));
    }
    return 1;
  }
  //クリック
  function click(objBtn) {
    objBtn.focus();
    WScript.Sleep( interval );
    objBtn.click();
    return 0;
  }
}

③リンクをクリックするための関数。
タグの指定はid属性、href属性、内部テキスト、もしくは、内部画像タグのalt属性。

//****************************************************************
//リンクをクリック
//****************************************************************
function click_link( objIE, tag_id, a_href, innerText, img_alt )
{
  var objDoc = objIE.document;
  if(! objDoc) return 1;
  if(tag_id) return click_link_specified_id( objDoc );
  else if( a_href ) return click_link_specified_href( objDoc );
  else if( innerText ) return click_link_specified_innerText( objDoc );
  else if( img_alt ) return click_link_specified_img_alt( objDoc );
  else return 1;
  
  //id属性が"tag_id"である要素をクリック
  function click_link_specified_id( objDoc ) {
    var objLink = objDoc.getElementById(tag_id);
    if( ! objLink ) return 1;
    var tag_name = objLink.tagName;
    if( ! tag_name ) return 1;
    if( tag_name.toUpperCase() == "A" ) return click(objLink);
    return 1;
  }
  //href属性が"a_href"である要素をクリック
  function click_link_specified_href( objDoc ) {
    var objLinks = objDoc.getElementsByTagName("a");
    if(! objLinks) return 1;
    for(var i = 0; i < objLinks.length; i++) {
      var href = objLinks.item(i).href;
      if(! href) continue;
      if(href == a_href) return click(objLinks.item(i));
    }
    return 1;
  }
  //内部テキストが"innerText"である要素をクリック
  function click_link_specified_innerText( objDoc ) {
    var objLinks = objDoc.getElementsByTagName("a");
    if(! objLinks) return 1;
    for(var i = 0; i < objLinks.length; i++) {
      var intxt = objLinks.item(i).innerText;
      if(intxt == innerText) return click(objLinks.item(i));
    }
    return 1;
  }
  //内部画像のalt属性が"img_alt"である要素をクリック
  function click_link_specified_img_alt( objDoc ) {
    var objLinks = objDoc.getElementsByTagName("a");
    if(! objLinks) return 1;
    for(var i = 0; i < objLinks.length; i++) {
      var imgs = objLinks.item(i).getElementsByTagName("img");
      if(! imgs) continue;
      var alt = imgs.item(0).attributes.getNamedItem("alt");
      if(! alt) continue;
      if(alt.value == img_alt) return click(objLinks.item(i));
    }
    return 1;
  }
  //クリック
  function click(objLink) {
    objLink.focus();
    WScript.Sleep( interval );
    objLink.click();
    return 0;
  }
}

④セレクトボックスを選択するための関数。
タグの指定はid属性もしくはname属性。

//****************************************************************
//セレクトボックスを選択
//****************************************************************
function select_option( objIE, tag_id, input_name, select_number )
{
  var objDoc = objIE.document;
  if(! objDoc) return 1;
  if( tag_id ) return select_option_specified_id( objDoc );
  else if( input_name  ) return select_option_specified_name( objDoc );
  else return 1;
  
  //id属性が"tag_id"である要素を選択
  function select_option_specified_id( objDoc ) {
    var objSlct = objDoc.getElementById(tag_id);
    if( ! objSlct ) return 1;
    var tag_name = objSlct.tagName;
    if( ! tag_name ) return 1;
    if( tag_name.toUpperCase() == "SELECT" ) return select(objSlct);
    return 1;
  }
  //name属性が"input_name"である要素を選択
  function select_option_specified_name( objDoc ) {
    var objSlcts = objDoc.getElementsByTagName("select");
    if( ! objSlcts ) return 1;
    for(var i = 0; i < objSlcts.length; i++) {
      var name = objSlcts.item(i).name;
      if( ! name ) continue;
      if( name == input_name ) return select(objSlcts.item(i));
    }
    return 1;
  }
  //クリック
  function select(objSlct) {
    objSlct.focus();
    WScript.Sleep( interval );
    objSlct.selectedIndex = select_number;
    return 0;
  }
}

⑤クリック後に新規画面が開く場合、その画面のオブジェクトを返す。
どの画面かは タイトルで指定する。

function focusWindow( title ) {
  var MAX_COUNT = 10;
  var objShell = new ActiveXObject("Shell.Application");
  var objWins = objShell.Windows();
  if( ! objWins ) return null;
  
  for(var t = 0; t < MAX_COUNT; t++) {
    for(var i = 0; i < objWins.Count; i++) {
      var item = objWins.item(i);
      try {
        var ifn = item.FullName;
        if( ! ifn ) continue;
        if(item.FullName.match(/iexplore.exe$/i)) {
          var objDoc = item.document;
          if( ! objDoc ) continue;
          if( ! objDoc.title ) continue;
          if( objDoc.title == title ) {
            return item;
          }
        }
      }
      catch (e) {}
    }
  }
  return null;
}

使い方は以下のようになる。
以下は乗り換え案内のページの操作例。

var interval = 100;//操作の間（100ms）
var ie = WScript.CreateObject("InternetExplorer.Application");
//乗り換え案内のページを開く
ie.Navigate( "http://www.ekikara.jp/top.htm" );
ie.Visible = true;
//ビジー状態を待つ（参考：http://d.hatena.ne.jp/language_and_engineering/20090713/p1）
waitIE( ie );

//乗り換え案内のオプションリンクをクリック
click_link( ie, null, "http://www.ekikara.jp/cgi-bin/route.cgi", null, null);
waitIE( ie );
//乗車駅入力
input_text( ie, "text", null, "intext", "東京");
//降車駅入力
input_text( ie, "text", null, "outtext", "博多");
//飛行機のチェックをクリックして外す
click_btn( ie, "checkbox", null, "airplane", null, null );
//新幹線のチェックをクリックして外す
click_btn( ie, "checkbox", null, "sprexprs", null, null );
//表示順序で乗車距離をクリックする
click_btn( ie, "radio", null, "sort", "value", "meter" );
//検索ボタンを押下
click_btn( ie, "image", null, null, "alt", "検索" );
waitIE( ie );
//修正画面でもう一度検索ボタンを押下
click_btn( ie, "image", null, null, "alt", "検索" );
waitIE( ie );

あとは、これらの関数を使えば自動操作といきたいところだが、まだできないものもある。
例えば、javascriptのalert等で表示されるダイアログの操作とか。以下のページに詳しく書かれている。
http://d.hatena.ne.jp/language_and_engineering/20100727/p1

ssh接続してコマンド実行するシェル

sshで接続先サーバでコマンド実行して、コマンドエラーをこちらのサーバ（接続元サーバ）で処理したかったときに作ったシェル。
もしかしたら、またどこかで使うかもしれないので記録しておく。
実際に作成したときはRHELだったが、以下はubuntu用で再現。
なので微妙にコマンドパスが違ったりする。
（RHEL : /bin/basename → ubuntu : /usr/bin/basename）

なお、運用管理系の自動実行用シェルだったので、公開鍵認証でssh接続する。
よって、そのための設定を予めしておく必要あり。
また、接続先でsudo実行する場合は、sudo設定（/etc/sudoers）も。
（以下のシェルではsudo実行してる。しない場合はsudoをとる。）

#/bin/sh
set -e

# このシェルの名前
CMDNAME=`/usr/bin/basename $0`

# 引数 $1   接続先(ユーザ名@ホスト)
# 引数 $2   接続先で実行するコマンド(シェル)
# 引数 $3～ コマンドオプション

# 引数2以下の場合はエラー
if [ $# -lt 2 ] ; then
  echo "usage: ${CMDNAME} [user@]hostname command [command option]"
  exit 255
fi

Dest=$1
Command=$2
Options=
if [ $# -gt 2 ] ; then
  for i in `seq 3 $#`
  do
    tmpval1=`eval echo \$\{$i\}`
    Options="${Options} ${tmpval1}"
  done
fi

# 実行結果を記述するログ
resultlog="/tmp/${CMDNAME}_${Dest}_${Command}.log"
# 秘密鍵(ここではuserの)
KYL="/home/user/.ssh/id_rsa"

# RET1：接続先での実行結果と戻り値
RET1=`ssh -n -T -i ${KYL} ${Dest} "sudo ${Command} ${Options}; echo return_code=\\$?"`
# RET2：ssh接続の戻り値(ssh通信の正常・異常を判定するために使う)
RET2=$?

# 接続先の実行結果の戻り値を抽出（制御文字を削除し、戻り値だけ抽出）
echo "${RET1}" > ${resultlog}
RET1=`/bin/grep return_code= ${resultlog} | /usr/bin/cut -d = -f2`
RET1=`echo ${RET1} | sed -e 's/[^0-9]//g'`

# 判定
if [ ${RET2} -ne 0 ]; then
  echo "${CMDNAME} : ssh connection failed (${Dest})"
  exit 1
elif [ "${RET1}" != "0" ]; then
  echo "${CMDNAME} : ssh command error at ${Dest} (command:${Command})"
  exit 2
fi
echo "${CMDNAME} : Succeed"
exit 0

Rのインストール（Ubuntu）

今さらながら、Rを自宅マシン（Ubuntu 12.04）にインストールした。
そのときのメモ。
ちなみに、以下のページを参考にした。
Rのインストール

1．sources.listにパッケージを取得するサイトを追加

$ sudo gedit /etc/apt/sources.list

以下をsources.listに加える。

deb http://cran.ma.imperial.ac.uk/bin/linux/ubuntu precise/

他のサイトを追加したい場合は、CRAN Mirrors。

2．Ubuntu レポジトリの公開鍵を入手
以下を実行。

$ gpg --keyserver keyserver.ubuntu.com --recv-key E084DAB9
$ gpg -a --export E084DAB9 | sudo apt-key add -

3．最新のパッケージリストを取得
以下を実行。

$ sudo apt-get update

以下のようなメッセージが出てうまくかなかった場合は、1で追加したサイトを変更する。

W: http://cran.md.tsukuba.ac.jp/bin/linux/ubuntu/gutsy/Packages の取得に失敗しました 404 Not Found
W: http://cran.md.tsukuba.ac.jp/bin/linux/ubuntu/feisty/Packages の取得に失敗しました 404 Not Found
W: http://cran.md.tsukuba.ac.jp/bin/linux/ubuntu/dapper/Packages の取得に失敗しました 404 Not Found

4．Rのインストール
以下を実行。

$ sudo apt-get install r-base

5．Rの実行

$ R

で実行すると、

R version 2.15.3 (2013-03-01) -- "Security Blanket"
Copyright (C) 2013 The R Foundation for Statistical Computing
ISBN 3-900051-07-0
Platform: i686-pc-linux-gnu (32-bit)

Rは、自由なソフトウェアであり、「完全に無保証」です。
一定の条件に従えば、自由にこれを再配布することができます。
配布条件の詳細に関しては、'license()'あるいは'licence()'と入力してください。

Rは多くの貢献者による共同プロジェクトです。
詳しくは'contributors()'と入力してください。
また、RやRのパッケージを出版物で引用する際の形式については
'citation()'と入力してください。

'demo()'と入力すればデモをみることができます。
'help()'とすればオンラインヘルプが出ます。
'help.start()'でHTMLブラウザによるヘルプがみられます。
'q()'と入力すればRを終了します。

>

上記のようなメッセージが出てRを実行できる。

6．パッケージのインストール
以下を実行し、CRANミラーサイトを選択する。
（以下を実行しなくても、install.packagesを実行すると最初に選択することになる。）

chooseCRANmirror()

以下を実行してパッケージをインストール（以下はkernlabをインストールする例）。

install.packages("kernlab")