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

编程技术  /  houtizong 发布于 3年前   94

在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   onclick="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 onclick="javascript:Run();" href="#">供销系统</a>
   &nbsp;&nbsp;
<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>