-if( X_UA.IE < 7 ){ // error @ NN7.2\r
- // bonus: hotfix for IE6 SP1 (bug KB823727)\r
- // multipleIEs IE6 standalone 版では不可, IE5.5 は可,,,\r
- X_UA.IE4 || X_UA.MacIE ?\r
- document.execCommand && document.execCommand( 'BackgroundImageCache', false, true ) :\r
- (function(){\r
- X_UA.IE_EXECOM_ERROR = eval( 'var a=1;try{document.execCommand&&document.execCommand("BackgroundImageCache",!1,!0)}catch(e){a=0}!a' );\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