用ie来调电脑本地应用程序

前端代码如下：

     方法一：

　　　<script type="text/vbscript">
                Sub run(strpath)
                Dim wsh
                Set wsh = CreateObject("wscript.shell")
                wsh.exec strpath
                Set wsh = nothing
                End sub
        </script>

 

       <a href='javascript:run("D:/Program Files (x86)/Tencent/QQ/Bin/QQScLauncher.exe")' style="width: 100px; height: 30px; display: block;">打开QQ</a>

    方法二：

  <script language="JavaScript">   
  function Run(strPath)   
   {      
  exe.value=strPath;      
  try      
  {      
   var objShell=new ActiveXObject("wscript.shell");      
   objShell.Run(strPath);    
   objShell=null;      
  }   
  catch(e)   
  {   
   alert(e) ;     
  }      
  }   
</script>        
 
请输入要运行的程序：<br/><input   name=exe   type=text   size=20   value="regedit">   
  <BUTTON   class="button"   οnclick="Run(exe.value)">decide</BUTTON>   
  <BUTTON   class="button"   οnclick=exe.value="";>input</BUTTON><br/>      
  <BUTTON   class="button"   οnclick="Run('notepad')">记事本</BUTTON><br/>      
  <BUTTON   class="button"   οnclick="Run('mspaint')">mspaint</BUTTON><br/>      
  <BUTTON   class="button"   οnclick="Run('calc')">calc</BUTTON><br/>      
  <BUTTON   class="button"   οnclick="Run('cmd')">cmd</BUTTON><br/>      
  <BUTTON   class="button"   οnclick="Run('Regedit')">Regedit</BUTTON><br/>      
  <BUTTON   class="button"   οnclick="Run('Msconfig')">Msconfig</BUTTON><br/>       
  <BUTTON   class="button"   οnclick="Run('IEXPLORE.EXE')">IE</BUTTON><br/>        
  <BUTTON   class="button"   οnclick="Run('file:///D:/Program Files (x86)/Tencent/QQ/Bin/QQScLauncher.exe')">运行QQ</BUTTON><br/>    //此处调用本地的QQ路径出错

 

 

上述代码写完之后还需对IE进行设置

 

打开如下

这里面的选项全部调整为   启用  

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

转载于:https://www.cnblogs.com/zhsf/p/5956546.html