ie_Navigate_Create修正

投稿日: Aug 24, 2012 4:18:38 PM

ie_Navigate_Create ( url ; visible )

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

変更後

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

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

ie=s;

break;

}

}

sw = null;

she = null;

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

if ( ie  ) {

}else{

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

}

ie.visible = " & visible & ";

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

")

変更前

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='';

var ie;

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'){

ie=s;

break;

}

}

if ( ie  ) {

}else{

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

}

ie.visible = " & visible & ";

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

")