Javascript 从HTA应用程序打开程序
我正在尝试创建一个HTA应用程序，它可以在计算机上本地打开程序（exe、bat等） 这将在用户无法访问桌面等的信息亭PC上使用 但是，在找到一个有效的脚本时，会遇到一些问题 现在我正在使用以下脚本：Javascript 从HTA应用程序打开程序,javascript,vbscript,internet-explorer-9,hta,Javascript,Vbscript,Internet Explorer 9,Hta,我正在尝试创建一个HTA应用程序，它可以在计算机上本地打开程序（exe、bat等） 这将在用户无法访问桌面等的信息亭PC上使用 但是，在找到一个有效的脚本时，会遇到一些问题 现在我正在使用以下脚本： <script type="text/javascript"> function runApp(which) { WshShell = new ActiveXObject("WScript.Shell"); WshShell.Run (which,1,true);
<script type="text/javascript">
function runApp(which) {
WshShell = new ActiveXObject("WScript.Shell");
WshShell.Run (which,1,true);
}
</script>
函数runApp（which）{
WshShell=newActiveXObject（“WScript.Shell”）；
Run（其中，1，true）；
}
<a
href="javascript:window.location.href=window.location.href"
onclick="runApp('file://C:/Tools/program.exe');parent.playSound('assets/sounds/startsound.mp3');"
onmouseover="playSound('assets/sounds/hover.wav');"
unselectable="on"
style="cursor: hand; display: block;">Start Program
</a>
<!DOCTYPE html>
<html>
<head>
<meta http-equiv="X-UA-Compatible" content="IE=9">
<HTA:APPLICATION
APPLICATIONNAME="Open link with chrome browser"
BORDER="THIN"
BORDERSTYLE="NORMAL"
ICON="Explorer.exe"
INNERBORDER="NO"
MAXIMIZEBUTTON="NO"
MINIMIZEBUTTON="NO"
SCROLL="NO"
SELECTION="NO"
SINGLEINSTANCE="YES"/>
<META HTTP-EQUIV="MSThemeCompatible" CONTENT="YES">
<title>Test HTA</title>
<SCRIPT LANGUAGE="VBScript">
'************************************************************************************
Option Explicit
Function Executer(StrCmd)
Dim ws,MyCmd,Resultat
Set ws = CreateObject("wscript.Shell")
MyCmd = "CMD /C " & StrCmd & " "
Resultat = ws.run(MyCmd,0,True)
Executer = Resultat
End Function
'************************************************************************************
Sub window_onload()
CenterWindow 400,320
End Sub
'************************************************************************************
Sub CenterWindow(x,y)
Dim iLeft,itop
window.resizeTo x,y
iLeft = window.screen.availWidth/2 - x/2
itop = window.screen.availHeight/2 - y/2
window.moveTo ileft,itop
End Sub
'************************************************************************************
</script>
</head>
<p>Links :</p>
<ol>
<li><a href="#" onClick="Call Executer('Start C:\ScriptExe.exe')">EXE test</a></li>
<li><a href="#" onClick="Call Executer('Start C:\Tools\Bats\menu.bat')">Bat test</a></li>
<li><a href="#" onClick="Call Executer('Start chrome.exe www.google.com chrome --app=https://www.google.com/')">Chrome App Test</a></li>
</ol>
<BODY>
</body>
</html>
测试HTA
'************************************************************************************
选项显式
函数执行器（StrCmd）
Dim ws、MyCmd、Resultat
设置ws=CreateObject（“wscript.Shell”）
MyCmd=“CMD/C”和StrCmd&“
Resultat=ws.run（MyCmd，0，True）
Executer=Resultat
端函数
'************************************************************************************
子窗口_onload（）
中心窗口400320
端接头
'************************************************************************************
副中心窗口（x，y）
伊托普
window.resizeTo x，y
iLeft=window.screen.availWidth/2-x/2
itop=window.screen.availHeight/2-y/2
window.moveTo ileft，itop
端接头
'************************************************************************************
链接：
<meta http-equiv="X-UA-Compatible" content="IE=9">
<li><a href="#" onClick="Call Executer('Start C:\ScriptExe.exe')">EXE test</a></li>
有谁能告诉我，为什么IE=9内容标签无法使用此功能？请参考以下示例代码，使用HTA启动应用程序：
<html>
<head>
<title>Application Executer</title>
<HTA:APPLICATION ID="oMyApp"
APPLICATIONNAME="Application Executer"
BORDER="no"
CAPTION="no"
SHOWINTASKBAR="yes"
SINGLEINSTANCE="yes"
SYSMENU="yes"
SCROLL="no"
WINDOWSTATE="normal">
<script type="text/javascript" language="javascript">
function RunFile() {
WshShell = new ActiveXObject("WScript.Shell");
WshShell.Run("c:/windows/system32/notepad.exe", 1, false);
}
</script>
</head>
<body>
<input type="button" value="Run Notepad" onclick="RunFile();"/>
</body>
</html>
应用程序执行器
函数RunFile（）{
WshShell=newActiveXObject（“WScript.Shell”）；
运行（“c:/windows/system32/notepad.exe”，1，false）；
}
您是否尝试过使用
IE=8或IE=10或IE=Edge