WFMカスタム関数ファイル Ver.3.6(WFM.fp7)

投稿日: Nov 26, 2012 5:20:54 PM

WFMカスタム関数ファイル Ver.3.6(WFM.fp7)

try{.....}catch(e){/*エラー処理*/} を追加。

ie_SearchIE ( url )

iiil_Eval( "

Target=null;

Result='';

/*ie;*/

try{

var she = new ActiveXObject('Shell.Application');

var sw = she.Windows();

var max=sw.count;

for (i = 0; i < max; i++) {

var s=sw.item(i);

if(s.LocationURL.substr(0, 4)=='http'){

try{

if(s.LocationURL.match(/" & url & "/i)){

ie=s;

Result=ie.LocationURL;

break;

}

}catch(e){/*エラー処理*/}

}

}

sw=null;

she=null;

}catch(e){/*エラー処理*/}

Result;

")