用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" onclick="Run(exe.value)">decide</BUTTON>
<BUTTON class="button" onclick=exe.value="";>input</BUTTON><br/>
<BUTTON class="button" onclick="Run('notepad')">记事本</BUTTON><br/>
<BUTTON class="button" onclick="Run('mspaint')">mspaint</BUTTON><br/>
<BUTTON class="button" onclick="Run('calc')">calc</BUTTON><br/>
<BUTTON class="button" onclick="Run('cmd')">cmd</BUTTON><br/>
<BUTTON class="button" onclick="Run('Regedit')">Regedit</BUTTON><br/>
<BUTTON class="button" onclick="Run('Msconfig')">Msconfig</BUTTON><br/>
<BUTTON class="button" onclick="Run('IEXPLORE.EXE')">IE</BUTTON><br/>
<BUTTON class="button" onclick="Run('file:///D:/Program Files (x86)/Tencent/QQ/Bin/QQScLauncher.exe')">运行QQ</BUTTON><br/> //此处调用本地的QQ路径出错
上述代码写完之后还需对IE进行设置
打开如下
这里面的选项全部调整为 启用