過去ログ

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　Ｐａｇｅ      85
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　　　通常モードに戻る　　┃　　ＩＮＤＥＸ　　┃　　≪前へ　　│　　次へ≫　　　
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　▼マクロ？  bal 04/2/3(火) 14:55
　　　┗Re:マクロ？  sim 04/2/4(水) 0:54
　　　　　　┗Re:マクロ？  bal 04/2/4(水) 1:14

　───────────────────────────────────────
　■題名 ： マクロ？
　■名前 ： bal
　■日付 ： 04/2/3(火) 14:55
　-------------------------------------------------------------------------
   
特定のキー操作を再現するマクロのようなスクリプトを書くことはできないでしょうか？


				  

　───────────────────────────────────────
　■題名 ： Re:マクロ？
　■名前 ： sim
　■日付 ： 04/2/4(水) 0:54
　-------------------------------------------------------------------------
   
▼balさん：

>特定のキー操作を再現するマクロのようなスクリプトを書くことはできないでしょうか？



WSHのWshShellオブジェクトにあるSendKeysメソッドを使えば

アクティブなアプリケーションにキー入力を送ることができます。

たとえば、メニューの

表示→ブラウザセキュリティ→スクリプトの実行

を切り替えるものだと次のように書けます。



//$NOPOPUP

//SendKeysでスクリプトの実行を切り替える



var bugweb = new ActiveXObject("BugWeb.BugBrowserAPI");

if (bugweb == null){

　　　　WScript.Echo("BugBrowser Object Error.");

　　　　WScript.Quit();

}



var wshShell = WScript.CreateObject("WScript.Shell");



bugweb.ForegroundWindow();

wshShell.SendKeys("%v");

WScript.Sleep(500);

wshShell.SendKeys("b");

WScript.Sleep(500);

wshShell.SendKeys("s");



wshShell = null;

bugweb = null;


				  

　───────────────────────────────────────
　■題名 ： Re:マクロ？
　■名前 ： bal
　■日付 ： 04/2/4(水) 1:14
　-------------------------------------------------------------------------
   
どうもありがとうございました。m(__)m

目的を達成することができました。



▼simさん：

>WSHのWshShellオブジェクトにあるSendKeysメソッドを使えば

>アクティブなアプリケーションにキー入力を送ることができます。

>たとえば、メニューの

>表示→ブラウザセキュリティ→スクリプトの実行

>を切り替えるものだと次のように書けます。

>

>//$NOPOPUP

>//SendKeysでスクリプトの実行を切り替える

>

>var bugweb = new ActiveXObject("BugWeb.BugBrowserAPI");

>if (bugweb == null){

>　　　　WScript.Echo("BugBrowser Object Error.");

>　　　　WScript.Quit();

>}

>

>var wshShell = WScript.CreateObject("WScript.Shell");

>

>bugweb.ForegroundWindow();

>wshShell.SendKeys("%v");

>WScript.Sleep(500);

>wshShell.SendKeys("b");

>WScript.Sleep(500);

>wshShell.SendKeys("s");

>

>wshShell = null;

>bugweb = null;


				  
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　　　通常モードに戻る　　┃　　ＩＮＤＥＸ　　┃　　≪前へ　　│　　次へ≫　　　
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　Ｐａｇｅ      85