})();\r
\r
console.log( 'HTML5? ' + X_UA_ATagWrapDiv ); */\r
-\r
-var X_Script_VBS_ENABLED = X_UA[ 'Windows' ] && !X_UA[ 'WinCE' ] && !X_UA[ 'WinPhone' ] && X_UA[ 'IE' ] < 11,\r
- // 構文のサポート instanceof, in(for-in ではない), try-catch. JS version 1.5以上\r
- X_Script_gte15 = !( X_UA[ 'IE' ] < 5.5 ) && ( new Function( 'f,a', 'try{return f.apply({},a)}catch(e){}' ) );\r
-\r
-/**\r
- * js バージョン間の際を吸収\r
- * @namespace X.Script\r
- * @alias X.Script\r
- * @type {object}\r
- */\r
-X[ 'Script' ] = {\r
- 'tryCatch' : X_Script_try\r
-};\r
-\r
-if( X_Script_VBS_ENABLED ){\r
- X_Script_gte15 || document.write( '<script type=text/vbscript>' +\r
- [\r
- 'Function vbs_testAXO(v)',\r
- 'On Error Resume Next',\r
- 'Set ax = CreateObject(v)',\r
- 'If Err.Number Then',\r
- 'ax = 1',\r
- 'End If',\r
- 'Err.Clear',\r
- 'vbs_testAXO = ax',\r
- 'End Function' /*,\r
- \r
- 'Function vbs_try(jsFunc,a1,a2,a3,a4)',\r
- 'On Error Resume Next',\r
- 'Set rs = jsFunc(a1,a2,a3,a4)',\r
- 'If Err.Number != 0 Then',\r
- 'rs = 0',\r
- 'End If',\r
- 'Err.Clear',\r
- 'vbs_try = rs',\r
- 'End Function'\r
- \r
- // elementID .SRC = v\r
- 'Function vbs_setValue(id,k,v)',\r
- 'On Error Resume Next',\r
- 'Set rs = 1',\r
- 'Document.all[id][k]=v',\r
- 'If Err.Number != 0 Then',\r
- 'rs = 0',\r
- 'End If',\r
- 'Err.Clear',\r
- 'vbs_try = rs',\r
- 'End Function'\r
-\r
- * \r
- * \r
- * */\r
- ].join( '\n' ) + '</script>' );\r
-\r
- // TODO Object のメンバを辿る vba\r
- // byte Array を扱う vba\r
-};\r
-\r
-function X_Script_try( func, args ){\r
- if( !X_Script_gte15 ){\r
- //return func.apply( {}, args );\r
- return;\r
- };\r
- return X_Script_gte15( func, args || [] );\r
-};\r
-\r
-function X_Script_createActiveXObjectSafty( name ){\r
- if( !X_Script_gte15 ){\r
- if( X_Script_VBS_ENABLED ){\r
- // console.log( window[ 'vbs_testAXO' ]( name ) + ' ' + name );\r
- return !window[ 'vbs_testAXO' ]( name ) && X_Script_createActiveXObject( name );\r
- };\r
- return X_Script_createActiveXObject( name );\r
- };\r
- \r
- return X_Script_try( X_Script_createActiveXObject, [ name ] );\r
-};\r
-\r
-// TODO GeckoActiveX\r
-function X_Script_createActiveXObject( name ){\r
- return new ActiveXObject( name );\r
-};\r
-\r
-/*\r
- * http://archiva.jp/web/html-css/ie6_background_flickr.html\r
- * hover時の背景画像ちらつきに対処する\r
- * この問題はIE6固有の問題であり、他のモダンブラウザやIE5等では発現しない。\r
- */\r
-if( X_UA[ 'IE6' ] && // error @ NN7.2\r
- !X_Script_try( function(){ document.execCommand( 'BackgroundImageCache', false, true ); return 1; } ) ){\r
- /**\r
- * ie6 のみで実行する document.execCommand( 'BackgroundImageCache', false, true ) の失敗。\r
- * bonus: hotfix for IE6 SP1 (bug KB823727)\r
- * multipleIEs IE6 standalone 版では不可, IE5.5 は可,,,\r
- * @alias X.UA.ieExeComError */\r
- X_UA[ 'ieExeComError' ] = true;\r
-};\r
-\r