.]]>"<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>
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 & """"set hta_code=^<html^>^<head^>^<title^>Заголовок^</title^>^</head^>^<body^>^<i^>Привет!^</i^>^</body^>^</html^>
mshta.exe vbscript:CreateObject("WScript.Shell").ExpandEnvironmentStrings("%%hta_code%%")
Соответственной не в файл, а в память.
Вопрос творческий.
]]>