Win10下载站 - 最全面的操作系统下载网站

软件教程软件下载seo常用PPT下载

windows7旗舰版
当前位置:主页 > 网络技术教程 >

用HTML应用打开CD

发布时间:2023-12-16 来源:win7旗舰版 浏览量:

网络技术是从1990年代中期发展起来的新技术,它把互联网上分散的资源融为有机整体,实现资源的全面共享和有机协作,使人们能够透明地使用资源的整体能力并按需获取信息。资源包括高性能计算机、存储资源、数据资源、信息资源、知识资源、专家资源、大型数据库、网络、传感器等。 当前的互联网只限于信息共享,网络则被认为是互联网发展的第三阶段。

本文介绍一种用HTML应用来启动CD的方法。HTML应用即HTML Application,也称为HTA应用,这是一种从IE 5.0开始出现的应用形式。HTML应用与普通HTML页面不同,它能够读写文件系统和注册表,由于它在本地运行,所以能够调用各种COM组件——即使COM组件没有适当的安全标记也可以。HTML应用运行时不会显示出IE的工具条和菜单,所以它看起来不象Web页面,而是象一个“真正的”程序。一个设计专业、精美的CD启动器能够给用户留下良好的印象。启动程序可以为用户提供软件安装和光盘内容的说明,提供帮助,检查必要的第三方软件和对操作系统的要求,甚至还可以乘机向用户推荐你的其他产品,最重要的是,启动程序能够简化软件安装过程。Microsoft把支持CD“自动播放”作为兼容“Designed for Windows”标记的必备功能,软件易用性的重要程度由此可见一斑。一、CD的启动方式支持CD“自动播放”的启动器有多种实现方法,除了HTA,至少还包括:▲编写一个简单的Visual Basic程序。采用这种方式的主要问题在于,目标系统上必须有VB运行库。虽然可以用临时安装VB运行库的办法解决,但这种方法看起来比较笨拙。▲直接启动CD上软件的主安装程序(下面我们称之为setup.exe)。如果不想提供帮助信息、产品说明以及检查目标环境是否符合要求,直接启动setup.exe也是一种选择。▲使用商业启动程序。有不少商业的(以及共享的)产品能够创建CD启动器。采用这种方式与自己编写HTA一样有许多优点,但采用商业产品要求你花时间了解该产品,同时还要有一定的投资。如果采用HTML应用,你可以方便地运用HTML、脚本代码构造用户界面,运用COM组件扩展HTA的功能。▲使用HTML文件。HTML文件不能读写注册表,而且它在启动主安装程序时会引起安全警告。对于要求不高的场合,软件安装过程完全可以由HTA应用独立完成,不再需要主安装程序。二、AUTORUN.INF文件要让CD具有自动播放功能,CD的根目录下必须有一个AUTORUN.INF文件,内容如下:[autorun]OPEN=<要求运行的执行文件>ICON=<在Windows资源管理器中显示的图标>如果不想显示图标,可以忽略ICON这一项。Windows的自动播放功能不调用Win32 ShellExecute() API,因此在OPEN这一项中只能填.exe、.com或.bat文件。因为我们想用.hta文件,这是一个小麻烦。不过解决办法很简单,只需创建一个调用ShellExecute()的autorun.exe文件就可以了。autorun.exe是一个stub程序,它有一个命令行参数——要求运行的文件名字。例如,如果要求autorun.exe启动autorun.hta应用,在AUTORUN.INF文件中指定“OPEN=autorun.exe autorun.hta”即可。如果ShellExecute()函数返回错误,autorun.exe在资源管理器中打开CD根目录。下面就是AUTORUN.EXE的源代码,用VC ++ 6.0编译只有36K(可以使用其他任何Windows的C编译器):#include <windows.h>

int WINAPI WinMain( HINSTANCE hInstance,
HINSTANCE hPrevInstance,
LPSTR lpCmdLine, int nCmdShow )
{
HINSTANCE result;
// 启动命令行指定的文件
result = ShellExecute(NULL, "open", lpCmdLine, NULL, NULL, SW_SHOWNORMAL);

// 检查结果
if ((int)result <= 32)
{
// 运行HTA文件出现错误,可能是由于
// 该机器上没有IE 5或更高版本
// 打开资源管理器,显示CD内容
ShellExecute(NULL, "explore", "", NULL, NULL, SW_SHOWNORMAL);
return 1;
}
else
{
// 启动成功
return 0;
}
}三、常见的任务除了显示用户界面、与用户交互以外,CD启动器可能需要执行的任务还包括:1、启动一个Windows Installer的安装程序(MSI)。假设安装程序是setup.msi,用VBScript实现的代码如下:set msi = CreateObject( "WindowsInstaller.Installer" )msi.InstallProduct("setup.msi")set msi = nothing2、启动一个EXE文件。参见本文后面的例子。3、读取注册表内容。有时候需要检查目标机器上是否已经安装了必要的支持软件,这可以通过检查注册表中是否有相应的ProgID来实现。以Access 2002为例,它的ProgID是Access.Application.10。下面是检查目标系统上是否已经有Access 2002的VBScript代码:On Error Resume Next
set wscript = CreateObject("WScript.Shell")
if IsNull(wscript.regRead ( "HKCR\Access.Application.10\clsid\" )) then
msAccessDetect.InnerText = "不能找到Access 2002。你需要安装Access 2000才能运行本软件。"
else
msAccessDetect.InnerText = "已找到Access 2002。"
end if
set wscript = Nothing如果用户禁止运行脚本(在浏览器选项中选择了禁用脚本选项),会出现什么样的情形呢?我试验了一下,什么异常也没有出现。看来HTML应用忽略了Internet安全设置,因为HTML应用被视为“本地”应用,不受Internet安全设置的限制。四、应用实例图一是一个CD启动器的实例。窗口布局用HTML代码实现。主要包括:用背景图片把整个窗口分成左右两大区域,左边上方是待安装的软件名称(“工资软件 Access版”),左边下方是一个广告。右边是主显示区域,显示内容由VBScript脚本更新。


图一HTML应用的编写方式与编写HTML页面很相似,但扩展名要改为.hta。HTML应用允许通过HTA:Application标记控制应用的行为,这个标记必须在<HEAD>之内,例如,下面的HTA:Application声明了HTML应用的名称,关闭了最大化、最小化按钮,关闭了浏览器的滚动条:<HEAD>
<TITLE>欢迎</TITLE>
<HTA:APPLICATION APPLICATIONNAME="CD Launcher"
MAXIMIZEBUTTON="no" MINIMIZEBUTTON="no"
SINGLEINSTANCE="yes" SCROLL="no" />
</HEAD>脚本的主要任务是检查安装环境是否符合要求并给出相应的提示,启动主安装程序(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>

网络的神奇作用吸引着越来越多的用户加入其中,正因如此,网络的承受能力也面临着越来越严峻的考验―从硬件上、软件上、所用标准上......,各项技术都需要适时应势,对应发展,这正是网络迅速走向进步的催化剂。

关键词: 用HTML应用打开CD 
我要分享:

相关推荐

本站发布的ghost系统仅为个人学习测试使用,请在下载后24小时内删除,不得用于任何商业用途,否则后果自负,请支持购买微软正版软件!

如侵犯到您的权益,请及时通知我们,我们会及时处理。 手机站

Copyright @ 2018 win10下载站(http://www.win1064.cn) 版权所有  xml地图 邮箱: