我需要为自动运行 CD 创建一个启动器，该启动器创建使用 VBScript 从 CD 上打开文件(pdf、视频等)的按钮。
我在 .HTA 中有以下代码
shell = new ActiveXObject("WScript.Shell").Run('My eBooks\Triniscene Link Me Campaign.pdf',1,false);
按钮是
<a href="javascript:void(0)" id="link_id">pdf 1</a>
但是，单击链接后，Internet Explorer 将打开而不是文件(它不会显示 pdf)
我希望能够使用系统具有的任何默认应用程序触发文件的打开
最佳答案
使用 Vbscript 尝试此 HTA:
<html>
<head>
<HTA:APPLICATION
APPLICATIONNAME="Run Some Files"
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>Run Some Files</title>
<SCRIPT LANGUAGE="VBScript">
'************************************************************************************
Option Explicit
Sub window_onload()
CenterWindow 400,360
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
'************************************************************************************
Function DblQuote(Str)
DblQuote = Chr(34) & Str & Chr(34)
End Function
'************************************************************************************
Sub Run(MyFile)
Dim ws,return
Set ws = CreateObject("wscript.Shell")
On Error Resume Next
return = ws.run(DblQuote(MyFile),False)
If Err <> 0 Then
MsgBox "An unknown error occurred",VbCritical,"An unknown error occurred"
End If
End Sub
'************************************************************************************
</script>
</head>
<BODY text=white bgcolor="DarkOrange" TOPMARGIN="1" LEFTMARGIN="1">
<p>In Links List :</p>
<ol>
<li><a href="#" onClick="Call Run('My eBooks\Triniscene Link Me Campaign.pdf')"> Triniscene Link Me Campaign 1</a></li>
<br><br>
<li><a href="#" onClick="Call Run('My eBooks\MyPDF File 2.pdf')"> Triniscene Link Me Campaign 2</a></li>
</ol>
<p>In Buttons List :</p>
<center><button onclick="Call Run('My eBooks\Triniscene Link Me Campaign.pdf')"> Triniscene Link Me Campaign 1</button>
<br><br>
<center><button onclick="Call Run('My eBooks\MyPDF File 2.pdf')"> Triniscene Link Me Campaign 2</button>
</body>
</html>
关于vbscript - 使用 .HTA 和 VBScript 打开 CD 上的文件，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/27842389/