一、检测并提示安装

1.瑞星在线查毒:
<object classid="clsid:E4E2F180-CB8B-4DE9-ACBB-DA745D3BA153"   codebase="http://download.rising.com.cn/register/pcver/autoupgradepad/pcver2006new/OL2006.cab#version=18,0,0,7" height="265" id="Killonline1" width="430" VIEWASTEXT>
<param NAME="BackColor" VALUE="#ECECEC">
<param NAME="ForeColor" VALUE="#000000">
</object>

2.江民在线查毒：
<OBJECT id="KvScanOnline1" codeBase="http://online.jiangmin.com/KvDown.cab#version=1,0,2,0" height="89" width="281" classid="clsid:EF6205C1-3F17-4829-BCB5-1336ED89E356" VIEWASTEXT>
<PARAM NAME="_Version" VALUE="65536">
<PARAM NAME="_ExtentX" VALUE="7435">
<PARAM NAME="_ExtentY" VALUE="2355">
<PARAM NAME="_StockProps" VALUE="0">
<PARAM NAME="BKColor" VALUE="">
<PARAM NAME="TextColor" VALUE="">
<PARAM NAME="DownPath" VALUE="">
</OBJECT>

3.Flash:
<object id="ultrashim" classid="clsid:8FFBE65D-2C9C-4669-84BD-5829DC0B603C" codebase="http://fpdownload.macromedia.com/get/shockwave/cabs/flash/ultrashim.cab#version=1,0,0,17"  width="558" height="168">
<param name="quality" value="high" />
<param name="menu" value="0" />
<param name="bgcolor" value="#ffffff" />
<param name=FlashVars value="loc=en_US&required_version=9,0,16,0" />
</object>

4.Java Runtime Environment:
<object classid="clsid:8AD9C840-044E-11D1-B3E9-00805F499D93" codebase="http://java.sun.com/update/1.5.0/jinstall-1_5_0_06-windows-i586.cab#Version=5,0,60,5" width="0" height="0">
<param name="type" value="application/x-java-applet;version=1.5">
<param name="code" value="com.sun.java.Main" >
<param name="codebase" value="/applet" >
<param name="archive" value="download.jar" >
<param name="scriptable" value="false">
<param name="success" value="http://java.com:80/zh_CN/download/installed.jsp">
<param name="bgcolor" value="ffffff">
</object>

5.铁通影视播放插件:
<OBJECT codeBase="plugin/PowerPlr.ocx#version=3,2,0,0" type="application/x-oleobject" height="100%" standby="Loading PowerPlayer components..." width="100%" classid="clsid:2354A44B-3CEB-4829-9940-545B03103538" name="player" VIEWASTEXT>
<PARAM NAME="FileName" VALUE="001590041000262004010025700396002650040900275004530031000434003140043900307003920023200370002530041800302004340027200410002850041000302004150028300380002180034100228003350022500336002200033600224003230022000323002180033000246003380027800362002800037100261003360019600297002110029300209002960020600286002050028100203002840020000279001980027400197002690019500270001920026000190002530018900249001870024500185002480018200238001810023500179002340017700231001740022200173002300018400238002240027200217002720022500254001910021200224002540022300187001510018500147001743585828345352950016500141351342156838587229130016021183326023691600152002000021700204001990012700141001280013500125001360012000136001240012300120001230011800116001130012300179001700017100537">
<PARAM NAME="FlashFile" VALUE="http://fzmv.sefun.net/flash/movie.swf">
<PARAM NAME="TestFile" VALUE="">
<PARAM NAME="FileInfo" VALUE="(西游记) -- 第1集">
<PARAM NAME="AdList" VALUE="">
<PARAM NAME="MediaType" VALUE="1">
</OBJECT>

二、插件检测

1.检测是否安装Quicktime：
<script language="Javascript">
//声明变量存放浏览器是否安装了Quicktime
var haveqt = false;
//弹出窗口函数
function openWindow(theURL,winName,features) {
  var windowprops = "fullscreen,scrollbars"
  popup = window.open(theURL,'remote',windowprops);
  }
//判断浏览器是否安装了Quicktime
if (navigator.plugins) {
  for (i=0; i < navigator.plugins.length; i++ ) {
     if (navigator.plugins[i].name.indexOf("QuickTime") >= 0)
         { haveqt = true; }
       }
}
//提示安装
if (haveqt)
    {document.write('');}
    else
window.open("提示安装页面" ,'newwindow', 'height=250, width=400, top=0, left=0, toolbar=no, menubar=no, scrollbars=no, resizable=no,location=no, status=no');
</script>  

2.检测是否安装JAVA虚拟机：
直接在<applet></applet>间加入文字说明，可用HTML语法，例如下边红色部分：
<applet code="a3d.ImageRenderApplet.class" codebase="." name="apv" width="660" height="399"
align="left" archive="pics/apvp.zip" id="apv">
  <param name="pan" value="10" />
  <param name="file" value="mhdpic/1.jpg" />
  <param name="quality" value="2" />
  <param name="inits" value="viewer:startAutoPan()" />
  <param name="bar_width" value="320" />
  <param name="bar_height" value="5" />
  <param name="barcolor" value="ff6600" />
  <param name="shotspot0"   value=" x0 Y100 l0.5 q i'pics/panel1/left.gif' u'viewer:panLeft()'" />
  <param name="shotspot1"   value=" x24 Y100 l0.5 q i'pics/panel1/start.gif'  u'viewer:reverseAutoPan()'" />
  <param name="shotspot2"   value=" x48 Y100 l0.5 q i'pics/panel1/right.gif' u'viewer:panRight()' " />
  <param name="shotspot3"  value=" x72 Y100 l0.5 q i'pics/panel1/stop.gif' u'viewer:stopAutoPan()' " />
  <param name="shotspot4"  value=" x96 Y100 l0.5 q i'pics/panel1/plus.gif' u'viewer:startAutoPan(0,0,0.96)' " />
  <param name="shotspot5"  value=" x120 Y100 l0.5 q i'pics/panel1/minus.gif' u'viewer:startAutoPan(0,0,1.04)' " />
  <param name="shotspot6"  value=" x144 Y100 l0.8 q i'pics/panel1/zs.gif' u'http://www.toptrust.com.cn' " />
  <param name="barcolor" value="c6c6c6" />
  <param name="regkey" value="9701100121011101000000000" />
    您的机子未安装JAVA虚拟机，为了便于您的观看，请点击<a href="soft/msjavx86.exe"><font color=red>这里</font></a>下载
</applet>

3.雅虎产品
'----------------------------------------
' 判断是否安装了 yLive
'----------------------------------------
Function HasAutolive()
    On error resume Next
    dim auto
    set auto = CreateObject("YALive.Live")
    If IsObject(auto) then
        HasAutolive = true
    else
        HasAutolive = false
    end if
    set auto = nothing
End Function

'----------------------------------------
' 判断是否安装了 Autolive
'----------------------------------------
Function HasOldAutolive()
    On error resume Next
    dim auto
    set auto = CreateObject("Autolive.live")
    If IsObject(auto) then
        HasOldAutolive = true
    else
        HasOldAutolive = false
    end if
    set auto = nothing
End Function

'----------------------------------------
' 判断是否安装了 Assist
'----------------------------------------
Function HasAssist()
    On error resume Next
    dim tass
    Set tass = CreateObject("YAssist.EasyAssist")
    If IsObject(tass) then
        HasAssist = true
    else
        HasAssist = false
    end if
    Set tass = nothing
End Function

'----------------------------------------
' 判断是否安装了 Cns
'----------------------------------------
Function HasCns()
    On error resume Next
    dim tass
    Set tass = CreateObject("CnsHelper.CH")
    If IsObject(tass) then
        HasCns = true
    else
        HasCns = false
    end if
    Set tass = nothing
End Function

上一篇: Visual Basic 的数据库编程
下一篇: 鲜为人知的安装卸载绝技:巧用Rundll32
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags:
最新日志: