不兼容IE11
[code lang=”js”]
<script language=’VBScript’>
function detectUnityWebPlayerActiveX
on error resume next
dim tControl, res, ua, re, matches, major
res = 0
set tControl = CreateObject("UnityWebPlayer.UnityWebPlayer.1")
if IsObject(tControl) then
if tControl.GetPluginVersion() = "2.5.0f5" then
‘ 2.5.0f5 on Vista and later has an auto-update issue
‘ on Internet Explorer. Detect Vista (6.0 or later)
‘ and in that case treat it as not installed ‘
ua = Navigator.UserAgent
set re = new RegExp
re.Pattern = "Windows NT (\d+)\."
set matches = re.Execute(ua)
if matches.Count = 1 then
major = CInt(matches(0).SubMatches(0))
if major < 6 then
res = 1
end if
end if
else
res = 1
end if
end if
detectUnityWebPlayerActiveX = res
end function
</script>
<script language="javascript1.1" type="text/javascript">
function detectUnityWebPlayer () {
var tInstalled = false;
if (navigator.appVersion.indexOf("MSIE") != -1 &&
navigator.appVersion.toLowerCase().indexOf("win") != -1)
{
tInstalled = detectUnityWebPlayerActiveX();
}
else if (navigator.mimeTypes && navigator.mimeTypes["application/vnd.unity"])
{
if (navigator.mimeTypes["application/vnd.unity"].enabledPlugin &&
navigator.plugins && navigator.plugins["Unity Player"])
{
tInstalled = true;
}
}
return tInstalled;
}
</script>
[/code]
检测代码：
if (detectUnityWebPlayer()) {//新检查unity是否安装 added by shanmao 2014 – 3 -29
alert(‘测试检测已安装111’)
}else{
setTimeout(“check_unity_down()”,1000);
alert(‘测试检测未安装222’)
}
另：
自动安装unity webplayer 代码：unityObject.enableAutoInstall(true);