七隈達磨のブログ -17ページ目

七隈達磨のブログ

パソコンを使ってて気になった事の解決法や色んな備忘録。
間違ってたら教えてください。
あくまで個人レベルなので参考程度に。実施して何か起きても責任は取れません(笑)

windowsで画面キャプチャーを自動で取得するために
まずは取得用のスクリプトを作成。

参考にしたサイト

■主に言語とシステム開発に関して
http://d.hatena.ne.jp/language_and_engineering/20081121/1227203100

■うずしお製作所
http://uzushio.269g.net/article/17564509.html





ソースファイル

■capture.js

//名  称:capcap.js
//機  能:コマンドで画面をキャプチャしてJPGで保存する
//参考文献
//
// http://uzushio.269g.net/article/17564509.html
// http://d.hatena.ne.jp/language_and_engineering/20081121/1227203100
//

var excel = WScript.CreateObject("Excel.Application");
excel.ExecuteExcel4Macro( "CALL(\"user32\",\"keybd_event\",\"JJJJJ\",44,121,1,0)" );
excel.ExecuteExcel4Macro( "CALL(\"user32\",\"keybd_event\",\"JJJJJ\",44,121,3,0)" );

var ws = WScript.CreateObject("WScript.Shell");
ws.SendKeys( "% n" );

//var picname = "snapshot.jpg"; //ここでファイル名を指定する
var picname = "clip" + (new Date()).getTime() + ".jpg";

var out = WScript.CreateObject("ADODB.Stream");
out.Type = 1;
out.Open();
out.SaveToFile( picname, 2 );
out.Close();

var mspaint = ws.Run("mspaint.exe " + picname, 3);
WScript.Sleep( 1000*5 ); //mspaintが起動するまでの待ち時間
var ret = ws.AppActivate( mspaint );

ws.SendKeys( "^v" ); //クリップボードのイメージをペースト
ws.SendKeys( "^s" ); //上書き保存するけど、未圧縮のJPG
ws.SendKeys( "%f" ); //ファイル名を指定して保存
ws.SendKeys( "%v" ); //ファイル名を指定して保存
ws.SendKeys( "%j" ); //ファイル名を指定して保存(JPGを選ぶ)
WScript.Sleep( 1000*2 ); //SaveAsのWindowsが表示されるまでの待ち
ws.SendKeys( "%s" ); //保存(S)を選択
ws.SendKeys( "%y" ); //上書き保存するかでYes(Y)を選択
ws.SendKeys( "%{F4}" ); //mspaintを終了する


■呼び出すbatファイル(cap.bat)
cscript //nologo capture.js

■batをサイレントで実行するためのvbsファイル(call_silent.vbs)
CreateObject("WScript.Shell").Run "cap.bat",0
ONT(OpticalNetworkTerminal:光加入者線終端装置)
⇒ATM-PONシステムは、OLT(Optical Line Terminal:光伝送路線端装置)と構成
ONU(OpticalNetworkUnit;光回線終端装置)
⇒STM-PONシステムは、SLT(Subscriber Line Terminal:光加入者線端局装置)と構成


日立評論デジタルアーカイブ(1999年9月号)
http://hitachirev-pdfsearch.himdx.net/cgi-bin/rev/search/jp/index.cgi?rm=pageview&url=http%3a%2f%2fwww.hitachihyoron.com%2fjp%2fpdf%2f1999%2f09%2f1999_09_12.pdf&page=1

■高速マルチメディアサービスを経済的に実現するPON方式全光化アクセスシステム(PDF: 2,794kbyte)