在html中利用WScript.Shell启用本地程序

[color=darkblue][size=medium]在html中利用WScript.Shell启用本地程序(2008-06-25 18:59:51)标签：wscript.shell 启动exe 启动本地程序 it 分类：Html&Javascript
－、系统设置
1、 cmd下执行
regsvr32 WSHom.Ocx 启用插件（一般的都已经启动，可以忽略）
2、ie中安全级别中将对没有标记为安全的ActiveX空间进行初始化或运行设置为启用或提示
二、js 代码，此种方法缺陷是不能设置当前目录.有些程序就没有办法正确运行
function Run(strPath) {
try {
var objShell = new ActiveXObject("Wscript.shell");
objShell.Run("notepad ");
objShell = null;
}
catch (e)
{
alert('找不到文件"'+strPath+'"(或它的组件之一)。请确定路径和文件名是否正确，而且所需的库文件均可用。');
}
}
三、vbs代码，解决了无法设置当前目录的问题
<script LANGUAGE="VBSCRIPT">
function vbfunction(strPath)
Set objShell = CreateObject("WScript.Shell")

objShell.CurrentDirectory = "G:/F2标准版3.0/"

此运行方法打开了cmd的窗口。此
//objShell.Run "cmd /c G:/F2标准版3.0/ffmapp.exe"

此种比较理想不打开窗口此
Set objWshScriptExec = objShell.Exec("G:/F2标准版3.0/ffmapp.exe")
end function
</script>

三、html代码
<BUTTON class=button οnclick="Run('IEXPLORE.EXE')">Run IE</BUTTON>

四、安装或卸载 wscript.shell
在cmd下运行：
regsvr32 WSHom.Ocx 安装
regsvr32 WSHom.Ocx /u 卸载
五、下面是精华了，我写的一段代码。
第一次进来的时候，选择exe文件并且用cookies记录选择的路径。以后可以直接运行了。
将下面代码复制到html文件中，直接运行即可。
<input type='file' id='file1' value='' style="display:none;" />
<a οnclick="javascript:Run();" href="#">供销系统</a>
  
<script type="text/javascript">
function Run() {
var p_file_path= getCookie('test_cookies_tds');
if(p_file_path==null || p_file_path=='undefined')
{
document.getElementById('file1').click();
p_file_path=document.getElementById('file1').value;
if(p_file_path!=null && p_file_path!='' && p_file_path!='undefined')
{
setCookie('test_cookies_tds',p_file_path);
RunExe(p_file_path);
}else{
alert('您没有选择要启动的程序,所以无法启动!');
}
}else{
RunExe(p_file_path);
}
}

function RunExe(strPath) {
try {
var file_path=strPath.replace(/\\/g,"/");
var dir_path=file_path.substring(0,file_path.lastIndexOf("/")+1);
runByVb(file_path,dir_path);
}
catch (e)
{
alert('找不到文件路径和文件名不正确或者您的浏览器没有启用此ActiveX控件!');
}
}

function setCookie(name,value)
{
var Days = 30000000;
var exp = new Date(); //new Date("December 31, 9998");
exp.setTime(exp.getTime() + Days*24*60*60*1000);
document.cookie = name + "="+ escape (value) + ";expires=" + exp.toGMTString();
}
function getCookie(sName)
{
// cookies are separated by semicolons
var aCookie = document.cookie.split("; ");
for (var i=0; i < aCookie.length; i++)
{
// a name/value pair (a crumb) is separated by an equal sign
var aCrumb = aCookie[i].split("=");
if (sName == aCrumb[0])
return unescape(aCrumb[1]);
}
// a cookie with the requested name does not exist
return null;
}
</script>
<script LANGUAGE="VBSCRIPT">
function runByVb(file_path,dir_path)
Set objShell = CreateObject("WScript.Shell")
objShell.CurrentDirectory = dir_path
Set objWshScriptExec = objShell.Exec(file_path)
end function
</script>[/size][/color]