Помогите написать мелкую програмку на HTA


  • Добрый час господа.

    В своё время на флешке носил портабельный софт, а чтоб не париться и не бегать по папкам создал в корне HTA скрипт для запуска всего нужного. Проблема в том что флешка умерла, вытащить данные с неё частично удалось кроме скрипта конечно :) , а создать его заново не умею, уже перегуглил всё что можно, а найти не могу.

    Помогите примерчиком кода, знаю что есть варианты работы с VBS и Javascript вот 2-й мне тогда подошёл.
    Что нужно:

    • Произвольное окно (высоту ширину если что допру как выровнять)
    • Кнопка с надписью для запуска проги, лежат проги примерно в \Portable{имя папки}{прога.exe}, помню точно, что путь можно было указывать относительный, не привязываясь к букве носителя, ну чтоб работало на любом компе, и имелась проблемка с обработкой пробелов в пути, просто переименовывал файлы и обходил её.

    Заранее спасибо.



  • Не ожидал что получу так много ответов за месяц, но всё таки, все молодцы. Вклад просто бесценный...

    Наконец-то я смог уговорить товарища Гугла, и он дал мне ответ на поставленную задачу.
    Код для запуска exe файла из 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>
    

    Ещё раз благодарю всех за помощь.



  • да пожалуйста! заходите еще ...
    вдруг понадобиться машину отремонтировать или экибану составить, спрашивайте...


4
Сообщения
1764
Просмотры
Войдите чтобы оставить сообщение

Внутренняя ошибка.

Упс! Похоже, что-то пошло не так!