<![CDATA[Серый форум — HTA: Запуск hta из памяти]]> https://forum.script-coding.com/viewtopic.php?id=9756 Sat, 19 Jul 2014 12:48:04 +0000 PunBB <![CDATA[Re: HTA: Запуск hta из памяти]]> https://forum.script-coding.com/viewtopic.php?pid=84907#p84907 Спасибо.

]]> Sat, 19 Jul 2014 12:48:04 +0000 https://forum.script-coding.com/viewtopic.php?pid=84907#p84907 <![CDATA[Re: HTA: Запуск hta из памяти]]> https://forum.script-coding.com/viewtopic.php?pid=84579#p84579 windwolf, есть замечательная тема WSH: создание окна, а также трансляция WScript в HTA. Почитайте ее. Все там написано, что Вам нужно.

]]> Sun, 06 Jul 2014 18:33:09 +0000 https://forum.script-coding.com/viewtopic.php?pid=84579#p84579 <![CDATA[Re: HTA: Запуск hta из памяти]]> https://forum.script-coding.com/viewtopic.php?pid=84577#p84577 Попробовал порассуждать на досуге и попытался встроить в код генерируемого окна сообщение на VbsScript - не получилось.

"<script language='VBScript'>"&_
"MsgBox 'Открылось окно'"&_
"</script>"&_

Попробовал вывести все в поток MsgBox ProgStdOut - не получилось.

MsgBox ProgStdOut

Вопрос в чем ошибка ?

<html>
    <head>
        <title>Моё HTA-приложение</title>
            <hta:application
                id = "oHTA"
                ApplicationName = "MyTestApplication"
                Border = "Dialog"
                BorderStyle = "Complex"
                Icon = "C:\Program Files\Windows NT\hypertrm.exe"
                InnerBorder = "No"
                MaximizeButton = "No"
                MinimizeButton = "No"
                Scroll = "No"
                Selection = "No"
                ShowInTaskBar = "No"
                SingleInstance = "Yes"
                Version = "1.3"
            />
        <script language="javascript">
            var WINDOW_WIDTH = 800
            var WINDOW_HEIGHT = 600
            window.resizeTo(WINDOW_WIDTH, WINDOW_HEIGHT);
            window.moveTo((window.screen.width - WINDOW_WIDTH) / 2, (window.screen.height - WINDOW_HEIGHT) / 2);
        </script>
        
        <script language="VBScript">

            Sub SendOperatory_onclick()
                Dim sHtmlCode
                sHtmlCode = "about:"&_
                            "<html>"&_
                                "<head>"&_
                                    "<title>Test</title>"&_
                                    "<script language='VBScript'>"&_
                                        "MsgBox 'Открылось окно'"&_
                                    "</script>"&_
                                "</head>"&_
                                "<body>"&_
                                    "<b>Test</b>"&_
                                "</body>"&_
                            "</html>"

                'CreateObject("WScript.Shell").Run "mshta.exe """ & sHtmlCode & """"
                
                Dim WshShell
                Set WshShell = CreateObject("WScript.Shell")
                Set ProgStdOut = WshShell.Exec("mshta.exe """ & sHtmlCode & """").Stdout.ReadAll

                MsgBox ProgStdOut

            End Sub

        </script>
    </head>
    <body>

        <input type="button" value="Отправить" id="SendOperatory">
        
    </body>

</html>
]]> Sun, 06 Jul 2014 17:20:58 +0000 https://forum.script-coding.com/viewtopic.php?pid=84577#p84577 <![CDATA[Re: HTA: Запуск hta из памяти]]> https://forum.script-coding.com/viewtopic.php?pid=84442#p84442 Интересно в принципе можем считывать код возврата, а вот полученные значения в результате генерации кода можно получить заполненный массив или переменную с набранным текстом от пользователя ?
У меня предположение может можно будет использовать varReturn = window.ShowModalDialog () или с использованием set WshExec_0 = WshShell.Exec(ProcessClients) ?

]]> Wed, 02 Jul 2014 19:20:44 +0000 https://forum.script-coding.com/viewtopic.php?pid=84442#p84442 <![CDATA[Re: HTA: Запуск hta из памяти]]> https://forum.script-coding.com/viewtopic.php?pid=84416#p84416 Я до «about:»'а не дозрел .

]]> Wed, 02 Jul 2014 06:26:38 +0000 https://forum.script-coding.com/viewtopic.php?pid=84416#p84416 <![CDATA[Re: HTA: Запуск hta из памяти]]> https://forum.script-coding.com/viewtopic.php?pid=84414#p84414 Либо так, если из VBScript-а


Option Explicit

Dim sHtmlCode
sHtmlCode = "about:"&_
            "<html>"&_
                "<head>"&_
                    "<title>Test</title>"&_
                "</head>"&_
                "<body>"&_
                    "<b>Test</b>"&_
                "</body>"&_
            "</html>"

CreateObject("WScript.Shell").Run "mshta.exe """ & sHtmlCode & """"
]]> Wed, 02 Jul 2014 05:42:01 +0000 https://forum.script-coding.com/viewtopic.php?pid=84414#p84414 <![CDATA[Re: HTA: Запуск hta из памяти]]> https://forum.script-coding.com/viewtopic.php?pid=84412#p84412 Из командного файла:

set hta_code=^<html^>^<head^>^<title^>Заголовок^</title^>^</head^>^<body^>^<i^>Привет!^</i^>^</body^>^</html^>
mshta.exe vbscript:CreateObject("WScript.Shell").ExpandEnvironmentStrings("%%hta_code%%")
]]> Wed, 02 Jul 2014 03:51:19 +0000 https://forum.script-coding.com/viewtopic.php?pid=84412#p84412 <![CDATA[HTA: Запуск hta из памяти]]> https://forum.script-coding.com/viewtopic.php?pid=84401#p84401 Возник вопрос возможно ли сформировать в переменной код HTA и потом произвести запуск этого кода как обычную hta. Или сформировать скрипт в переменной и потом произвести его запуск.

Соответственной не в файл, а в память.

Вопрос творческий.

]]> Tue, 01 Jul 2014 19:43:10 +0000 https://forum.script-coding.com/viewtopic.php?pid=84401#p84401