VBScript/HTA 응용 프로그램 - 한 번에 여러 프로그램 실행 사용자가

그래서 여기에 소년과 소녀에 대한 궁금한 점이 있습니다. - 우선이 모든 것을 완성하는 멍청이입니다. 너무 시작해서 너무 열심히하지 마십시오. 나를. 내가 그들 중 하나를 검사 할 때VBScript/HTA 응용 프로그램 - 한 번에 여러 프로그램 실행 사용자가

> <html> <head> 
> 
> <script type="text/vbscript"> 
> 
> Dim objShell Sub Button1_OnClick() 
> 
> if box2.checked AND box1.checked then 
> 
> Set objShell = CreateObject("WScript.Shell") 
> objShell.Run("""%programfiles(x86)%\Mozilla Firefox\firefox.exe""") 
> Set objShell = Nothing 
> 
> Set objShell = CreateObject("WScript.Shell") objShell.Run("cmd.exe") 
> Set objShell = Nothing 
> 
> elseif box1.checked then 
> 
> Set objShell = CreateObject("WScript.Shell") objShell.Run("cmd.exe") 
> Set objShell = Nothing 
> 
> Elseif box2.checked then 
> 
> Set objShell = CreateObject("WScript.Shell") 
> objShell.Run("""%programfiles(x86)%\Mozilla Firefox\firefox.exe""") 
> Set objShell = Nothing 
> 
> 
> End If End Sub 
> 
> 
> </script> </head> <body> <font face=Calibri> Check the program you 
> would like to run! <br> Available programs to run for now: <br> <input 
> type="checkbox" name="box1">CMD <br> <input type="checkbox" 
> name="box2">Mozilla <br> <i>Choose which program(s) you'd like to run. 
> It is possible to run multiple programs at one time!</i></font><br> 
> <input type="button" name="btn1" onclick="Button1_OnClick" 
> value="Submit"><br> <div id="error"></div> 
> 
> 
> 
> </body> </html>

이, 완벽하게는 내가 두 프로그램을 검사 할 때, 둘 다 실행하도록되어로 작동 : 나는 .HTA 응용 프로그램을 만들기 위해, 내가 쓴 코드의 무리가 , 하나만 실행됩니다. 하지만 그 목록에 50 가지 프로그램이 있다면 어떨까요? 각 프로그램의 조합에 대해 if/else/elseif 문을 쓰는 것보다 이것을 작성하는 간단한 방법이 있다고 생각하십니까? 위에서 언급했듯이, 이것에 대한 완전한 멍청한 놈입니다. 어쩌면 나는 아직 쉬운 방법을 발견하지 못했을 것입니다. 그러나 그것은 또한 내가 묻는 이유입니다.

출처

2014-01-30 Nae

목적에 맞게 요소 특성을 사용할 수 있습니다.
모든 확인란을 반복하고 사용자 정의 속성에 저장된 경로를 사용하여 프로세스를 시작합니다. 끝난.

<html> 
<head> 
    <script type="text/vbscript"> 
     Dim objShell 
     Set objShell = CreateObject("WScript.Shell") 

     Sub StartProcesses 
      Dim Checkbox 
      For Each Checkbox In Document.getElementsByName("process") 
       If Checkbox.Checked Then 
        objShell.Run """" & Checkbox.getAttribute("path") & """" 
       End If 
      Next 
     End Sub 
    </script> 
</head> 
<body> 
    <font face=Calibri> 
     Check the program you would like to run! <br> 
     Available programs to run for now: <br> 
     <div id="ProcessList"> 
      <input type="checkbox" name="process" path="cmd.exe">CMD <br> 
      <input type="checkbox" name="process" path="iexplore.exe">Internet Explorer <br> 
      <input type="checkbox" name="process" path="%programfiles(x86)%\Mozilla Firefox\firefox.exe">Firefox <br> 
      <input type="checkbox" name="process" path="calc.exe">Calculator <br> 
      <input type="checkbox" name="process" path="notepad.exe">Notepad <br> 
     </div> 
     <i>Choose which program(s) you'd like to run. It is possible to run multiple programs at one time!</i> 
    </font><br> 
    <input type="button" onclick="StartProcesses" value="Submit"><br> 
    <div id="error"></div> 
</body> 
</html>

출처

2014-01-31 13:59:37

어떻게 체크 박스 중 어느 것도 확인되지 않은 상태에서 경고를 표시하는있는 MsgBox를 추가? – WatskeBart

@WatskeBart는 https://gist.github.com/anonymous/e53b5fa495736ea6ba1dfa7dc32370b0 –

에서 확인했습니다. 고마워요. – WatskeBart

VBScript/HTA 응용 프로그램 - 한 번에 여러 프로그램 실행 사용자가

답변

관련 문제