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

投稿日: Oct 29, 2012 5:41:11 PM

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

エラー処理追加

try{

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

     ie=s;

     Result=ie.LocationURL;

     break;

     }

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

ie_Navigate_Create

Let(er=

iiil_Create( "" ) & iiil_Create( "JScript" );

""

) &

Let(visible=

     Case (

     visible = 1 ; "true" ;

     visible = 0 ; "false" ;

     IsEmpty ( visible )  ; "false" ;

     visible = "true" ; "true" ;

     visible = "false"  ; "false" ;

     "true" )

;

""

) &

iiil_Exe( "

Target=null;

Result='';

ie=null;

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);

          try{

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

               ie=s;

               break;

               }

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

     }

     sw = null;

     she = null;

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

if ( ie  ) {

}else{

ie = new ActiveXObject('InternetExplorer.Application');

}

ie.visible = " & visible & ";

ie.navigate2( '" & url  & "');

")

ie_Set_ie

//ieを探して見つかったら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);

try{

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

     ie=s;

     Result=ie.LocationURL;

     break;

     }

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

}

sw=null;

she=null;

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

Result;

")