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

在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>