2012-11-10 84 views
0

好的,所以我創建了一個簡單的程序,當你點擊鏈接時打開另一個.HTA文件。例如:從另一個HTA文件打開HTA文件

Sub RunProgram 
    Const NORMAL_WINDOW = 1 
    Set objShell = CreateObject("Shell.Application") 
    objShell.ShellExecute "explorer.exe", "Virus_Support.hta", , , NORMAL_WINDOW 
End Sub 

再後來就......

<body> 
<button onclick="RunProgram">Run Program</button> <p> 
</body> 

但是,它返回一個 '變量未定義:objShell' 的錯誤。我試圖從SupportMain.hta文件中打開virus_support.hta ...而不是IE或任何瀏覽器。

+0

其實衛生技術評估是由mshta.exe運行。嘗試'mshta.exe'而不是'explorer.exe'。我認爲'Virus_Support.hta'還需要完整路徑。順便說一句,你在做什麼,支持病毒聽起來可疑=)。 – Teemu

+0

感謝您的回覆。 – jay

+0

我看到......)。你有沒有讓你的代碼使用'mshta.exe'? – Teemu

回答

0

試試這個:

Sub RunProgram 
    Set objShell = CreateObject("WScript.shell") 
    objShell.run("Virus_Support.hta") 
End Sub