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 & "');
")