| 代碼如下 |
複製代碼 |
<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> |
檢測代碼：
| 代碼如下 |
複製代碼 |
if (detectUnityWebPlayer()) {//新檢查unity是否安裝 added by shanmao 2014 – 3 -29
alert(‘測試檢測已安裝111′)
}else{
setTimeout(“check_unity_down()”,1000);
alert(‘測試檢測未安裝222′)
} |
另：
自動安裝unity webplayer 代碼：unityObject.enableAutoInstall(true);
