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