用HTML应用启动CD

发布时间：2020-02-16 22:54:10 所属栏目：MsSql教程来源：站长网

导读：副标题#e# 用HTML应用启动CD：本文介绍一种用HTML应用来启动CD的方法。HTML应用即HTML Application，也称为HTA应用，这是一种从IE 5.0开始出现的应用形式。HTML应用与普通HTML页面不同，它能够读写文件系统和注册表，由于它在本地运行，所以能够调用各种CO

　　脚本的主要任务是检查安装环境是否符合要求并给出相应的提示，启动主安装程序（setup.exe）或执行安装任务（复制文件，访问注册表写入相关信息等），当setup.exe返回时报告安装结果。如下所示：

<BODY BACKGROUND="WinBack.gif">


<DIV ID="mainClientArea" STYLE="position: absolute; top: 30px; left: 170px; width: 400px; FONT-SIZE: 10pt;">欢迎使用
<P>
<B>系统检查：</B>
<DIV ID="msAccessDetect" STYLE="position: relative; top: 15px" ></DIV>
<HR STYLE="position: absolute; top: 150; left: 0px;" />
<DIV ID="Install" STYLE="position: absolute; top: 160px; left: 0px;" >
已检查所有的安装条件 <BR/>
<BUTTON ID="cmdInstall" STYLE="position: relative; top: 20; left: 140px">开始安装</BUTTON>
</DIV>
</P>
</DIV>
<SCRIPT LANGUAGE="VBScript">
' 下面的代码在启动时运行
Call Main

Sub Main
Dim wscript
Const HEIGHT = 600
Const WIDTH = 400

' 调整窗口大小和位置
window.resizeTo HEIGHT, WIDTH
window.moveTo (screen.width - HEIGHT) / 2, (screen.height - WIDTH) / 2
' 检查Access是否已经安装，略...
End Sub

Function CheckInstallResult (lngReturnValue)
' 根据指定的返回值确定要返回的文字信息
select case lngReturnValue
case 0:
CheckInstallResult = "安装成功。"
' 其他检查条件 ...
case else
CheckInstallResult = "安装程序返回错误代码" & lngReturnValue & ". "
end select
End Function
</SCRIPT>

<SCRIPT FOR="cmdInstall" EVENT="onclick" LANGUAGE="VBScript">
Dim objShell
Dim lngReturn

on error resume next
set objShell = CreateObject( "WScript.Shell" )
　 ' 调用主安装程序
　 lngReturn = objShell.Run ("setup.exe", 4, 1)
　 if Err.number <> 0 then
Install.innerText = "错误: " & Err.Description & Err.number
else
Install.innerText = CheckInstallResult(lngReturn)
end if
　 set objShell = Nothing
</SCRIPT>
</BODY>

（编辑：PHP编程网 - 黄冈站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!

3/3

首页