|
脚本的主要任务是检查安装环境是否符合要求并给出相应的提示，启动主安装程序（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>
（编辑：核心网）
【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!
|
