.HTA 및 VBScript를 사용하여 CD에 파일 열기

VBScript를 사용하여 CD에서 파일 (pdfs, 비디오 등)을 여는 버튼을 만드는 자동 실행 CD 실행 프로그램을 만들어야합니다..HTA 및 VBScript를 사용하여 CD에 파일 열기

내가 .HTA에 다음 코드

shell = new ActiveXObject("WScript.Shell").Run('My eBooks\Triniscene Link Me Campaign.pdf',1,false);

을하고 버튼 그러나 Internet Explorer가 대신 파일로 열리는 링크를 클릭에

<a href="javascript:void(0)" id="link_id">pdf 1</a>

입니다 (이것은 이벤트가 표시되지 않습니다 pdf)

시스템의 기본 응용 프로그램이 무엇이든간에 파일 열기를 트리거 할 수있게하려고합니다.

출처

2015-01-08 Kendall

JavaScript 코드 만있는 것 같습니다. JS에서 당신은 백 슬래시를 이스케이프 처리해야합니다 :'\\\', 그리고 경로를 공백이 포함 된 경우 이중 따옴표를 포함하십시오. 또한 상대 경로를 사용할 때 작업 디렉토리가 올바르게 설정되었는지 확인해야합니다. 그냥 호기심에, IE에서 열린 페이지의 주소는 무엇입니까? – Teemu

@Teemu 열린 주소는 "javascript : void (0)"입니다. 나는 약간의 조사를하고 있었고 HTA가 windows 8과 호환되는지 궁금해했다. ...? – Kendall

열린 페이지가 "비어 있습니다". 호기심에서 HTA 파일은 IE10과 11과 호환됩니까? – Kendall

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>

출처

2015-01-09 14:46:16 Hackoo

.HTA 및 VBScript를 사용하여 CD에 파일 열기

답변

관련 문제