1 Тема от wildwolf007 (изменено: wildwolf007, 2014-10-26 09:35:11)

  • wildwolf007
  • Участник
  • Неактивен

Тема: HTA+VBS: Показ SWF и картинок.

В конфигурационном файле перечислены пути с файлами, которые нужно показать в HTA:
D:\1\1.PNG
D:\1\2.JPG
D:\1\3.SWF

Скрипт будет написан на HTA.

В верхней области окна отображается картинка или флешка снизу кнопка "Ознакомлен". При нажатии кнопки окно закрывается и фиксируется о том, что пользователь с этим файлом ознакомлен и в дальнейшем данный файл не отображается.

За основу предполагаю взять:
Работа с SWF http://forum.script-coding.com/viewtopic.php?id=6095
Работа с изображениямиhttp://forum.script-coding.com/viewtopi … mp;login=1

Желательно использовать стандартные библиотеки, которые имеются в системе.

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

Если есть идея как это можно реализовать по другому буду благодарен.

2 Ответ от wildwolf007 (изменено: wildwolf007, 2014-10-26 23:15:10)

  • wildwolf007
  • Участник
  • Неактивен

Re: HTA+VBS: Показ SWF и картинок.

Предполагаю произвести запуск следующим образом:

Option Explicit

Dim sHtmlCode
sHtmlCode = "about:"&_
            "<html>"&_
                "<head>"&_
                    "<title>Test</title>"&_
                    "<script language=""vbscript"">"&_
                        "Sub acquaint_onclick()"&_
                            "MsgBox ""Ознакомлен"""&_
                        "End Sub"&_
                    "</script>"&_
                "</head>"&_
                "<body>"&_
                    "<b>Здесь будет изображение или флешка</b>"&_
                    "<br>"&_
                    "<br>"&_
                    "<input type=""button"" id=""acquaint"" value=""Ознакомлен"">"&_
                "</body>"&_
            "</html>"

CreateObject("WScript.Shell").Run "mshta.exe """ & sHtmlCode & """"

Или уже думаю может проще запускать HTA страницы в которых будет уже готовая страница с флешкой или картинкой и с необходимой кнопкой.

3 Ответ от wildwolf007

  • wildwolf007
  • Участник
  • Неактивен

Re: HTA+VBS: Показ SWF и картинок.

Вот еще накидал пару строк где вывел флешку на отдельный файл может так будет проще.


Option Explicit
CreateObject("WScript.Shell").Run "mshta.exe """ & "C:\1.hta" & """"

4 Ответ от Xameleon

  • Xameleon
  • Разработчик
  • Неактивен

Re: HTA+VBS: Показ SWF и картинок.

wildwolf007, а что мешает весь код сразу разместить в HTA ? Для чего нужен вызывающий внешний скрипт ?

Передумал переделывать мир. Пашет и так, ну и ладно. Сделаю лучше свой !

5 Ответ от wildwolf007

  • wildwolf007
  • Участник
  • Неактивен

Re: HTA+VBS: Показ SWF и картинок.

Здесь появляется проблема что делать с окном. Ведь не всегда нужно показывать содержимое этих картинок. Если пользователь уже видел эти картинки зачем они ему еще нужны появится новые посмотрит, ознакомится. А так будет белое окно только нервировать психику пользователя. Одно решение по поводу белого окна запуска hta убирать в далекие координаты, но мне не очень нравится это решение. Я уже скрипт написал генерация работает отлично и никаких белых лишних окон.