<![CDATA[Серый форум — HTA: COM-сервер для HTA]]> https://forum.script-coding.com/viewtopic.php?id=6203 Fri, 06 Dec 2013 12:56:55 +0000 PunBB <![CDATA[Re: HTA: COM-сервер для HTA]]> https://forum.script-coding.com/viewtopic.php?pid=77875#p77875 2 Евген к сожалению

dab00 пишет:

Удалил кое-что из ненужного: работу с mswinsck.ocx

решил что к HTA это отношения не имеет, да и не у всех установлен этот компонент. С ним же можно и без обертки работать из скрипта, вот уважаемый Xameleon мастерил, Вы принимали участие в обсуждении.
Возвращать не собираюсь, причины рассказал, если нужно могу отправить Вам версию с сокетами с описанием свойств и  методов.
Так что мануал сейчас полный, не сомневайтесь.

]]> Fri, 06 Dec 2013 12:56:55 +0000 https://forum.script-coding.com/viewtopic.php?pid=77875#p77875 <![CDATA[Re: HTA: COM-сервер для HTA]]> https://forum.script-coding.com/viewtopic.php?pid=77873#p77873 dab00 пишет:

Добавил возможность обмена данными используя протокол TCP.

2 dab00 можно Вас попросить сделать полный мануал к Вашей библиотеке подобно как здесь а то там не описана данная возможность...:(

]]> Fri, 06 Dec 2013 11:18:58 +0000 https://forum.script-coding.com/viewtopic.php?pid=77873#p77873 <![CDATA[Re: HTA: COM-сервер для HTA]]> https://forum.script-coding.com/viewtopic.php?pid=77843#p77843 Всем привет. На днях случайно обнаружил этот проект у себя в архиве, решил реанимировать.
Удалил кое-что из ненужного: работу с mswinsck.ocx, куски кода для многопоточности - хотел реализовать когда-то, подредактировал код, в общем встречайте - DAHTACOM v1.5.

DAHTACOM - COM-сервер для HTA (HTML Application).
Позволяет приложению использовать недоступные для HTA возможности:
- получать дескриптор любого окна
- создавать, изменять, удалять иконку приложения в области уведомлений, а также всплывающую подсказку к ней
- загружать PNG-изображение с альфа каналом, "прикреплять" его к окну приложения, устанавливать позицию изображения поверх всех окон
- устанавливать прозрачность окна приложения, определенного цвета окна приложения
- устанавливать размер и позицию окна, в том числе позицию поверх всех окон

В настоящее время скачать можно здесь - прямая ссылка, может со временем измениться, но всегда можно будет найти ссылку здесь.
В архиве:
- файл библиотеки,
- пара тестовых HTML-приложений
- пара скриптов установки - bat и vbs
- HTML-файл справки с описанием свойств и методов COM-объекта
- каталог с изображениями, использованными в тестовых приложениях

Кроме того, выложил на Yuotube видео: DAHTACOM. Качаем, устанавливаем, тестируем

Ваши комментарии, коллеги.

]]> Thu, 05 Dec 2013 08:49:08 +0000 https://forum.script-coding.com/viewtopic.php?pid=77843#p77843 <![CDATA[Re: HTA: COM-сервер для HTA]]> https://forum.script-coding.com/viewtopic.php?pid=61006#p61006 Сорри, она утонула . Пишите на e-mail.

]]> Tue, 19 Jun 2012 16:15:27 +0000 https://forum.script-coding.com/viewtopic.php?pid=61006#p61006 <![CDATA[Re: HTA: COM-сервер для HTA]]> https://forum.script-coding.com/viewtopic.php?pid=60968#p60968

Очередное обновление компонента - DAHTACOM v1.4.

Архива нет, куда делся?

]]> Mon, 18 Jun 2012 13:01:38 +0000 https://forum.script-coding.com/viewtopic.php?pid=60968#p60968 <![CDATA[Re: HTA: COM-сервер для HTA]]> https://forum.script-coding.com/viewtopic.php?pid=55448#p55448 Осталось только сделать контекстное меню для трея и окна с иконками

]]> Sun, 08 Jan 2012 13:11:35 +0000 https://forum.script-coding.com/viewtopic.php?pid=55448#p55448 <![CDATA[Re: HTA: COM-сервер для HTA]]> https://forum.script-coding.com/viewtopic.php?pid=55441#p55441 dab00, круто, очень даже ничего;) О пополнении коллекции не стоит забывать.

]]> Sun, 08 Jan 2012 06:07:05 +0000 https://forum.script-coding.com/viewtopic.php?pid=55441#p55441 <![CDATA[Re: HTA: COM-сервер для HTA]]> https://forum.script-coding.com/viewtopic.php?pid=55353#p55353 Очередное обновление компонента - DAHTACOM v1.4.
Добавил возможность отображения  выплывающей подсказки в области уведомлений.
http://da440dil.narod.ru/dahtacom-images/DAHTACOM-v1.4-10.png

]]> Fri, 06 Jan 2012 15:18:18 +0000 https://forum.script-coding.com/viewtopic.php?pid=55353#p55353 <![CDATA[Re: HTA: COM-сервер для HTA]]> https://forum.script-coding.com/viewtopic.php?pid=55231#p55231 Полезная штука!

]]> Mon, 02 Jan 2012 07:15:55 +0000 https://forum.script-coding.com/viewtopic.php?pid=55231#p55231 <![CDATA[Re: HTA: COM-сервер для HTA]]> https://forum.script-coding.com/viewtopic.php?pid=52428#p52428 ДА! Спасибо за труд, это то что нужно.

]]> Thu, 13 Oct 2011 10:57:13 +0000 https://forum.script-coding.com/viewtopic.php?pid=52428#p52428 <![CDATA[Re: HTA: COM-сервер для HTA]]> https://forum.script-coding.com/viewtopic.php?pid=52413#p52413 Добавил возможность загрузки PNG-картинки, а также ее установки в качестве "корпуса" окна HTA - по наводке уважаемого Mat Skywalker .
Как и в предыдущих версиях нарисовал иллюстрацию использования:

http://da440dil.narod.ru/dahtacom-images/DAHTACOM-v1.3-1.png http://da440dil.narod.ru/dahtacom-images/DAHTACOM-v1.3-8.png

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

]]> Wed, 12 Oct 2011 19:37:12 +0000 https://forum.script-coding.com/viewtopic.php?pid=52413#p52413 <![CDATA[Re: HTA: COM-сервер для HTA]]> https://forum.script-coding.com/viewtopic.php?pid=52097#p52097 Добавил возможность обмена данными используя протокол TCP. Нарисовал иллюстрацию использования:
http://da440dil.narod.ru/other-images/DAHTACOM-v1.2-2.png http://da440dil.narod.ru/other-images/DAHTACOM-v1.2-3.png
Ничего особенного, через сокеты - используя mswinsck.ocx. Можно, конечно, и без либы, но, на мой взгляд, предусмотренные свойства и методы (описаны в хэлпе) позволят упростить использование компонента. Приглашаю попробовать: на народе или гугле.

]]> Sun, 02 Oct 2011 19:11:57 +0000 https://forum.script-coding.com/viewtopic.php?pid=52097#p52097 <![CDATA[Re: HTA: COM-сервер для HTA]]> https://forum.script-coding.com/viewtopic.php?pid=51767#p51767 Исправил ошибку с обновлением прозрачности.
Нарисовал иллюстрацию возможностей. Как художник я не очень , вижу так:
http://da440dil.narod.ru/other-images/DAHTACOM-v1.1-4.png
Прозрачное окно можно сделать и с помощью фильтров. Картинки в обоих углах - прозрачные png, загруженные с помощью фильтра AlphaImageLoader. А вот такое нарядное окно с закругленными углами без библиотеки не нарисуешь.
Что касается прозрачного png в качестве "корпуса" окна - пока никак, времени не было. У ActiveX с gdiplus какие-то заморочки, поэтому все непросто.
Скачать можно здесь.
Код HTA:

<html>
<head>
    <title>DAHTACOM</title>
      <HTA:APPLICATION 
        ID = "DAHTACOM"
        APPLICATIONNAME="DAHTACOM"  
        caption="false"
        INNERBORDER="no"
        SINGLEINSTANCE="yes"        
        SCROLL="no"
        ShowInTaskbar ="no"
        BORDER="none"
        SELECTION="no"
        Version = "1.1">
        </HTA:APPLICATION>
</head>

<style type="text/css">    
    
    body{        
        background-color:#ccccdd;    
        font:bold italic 12 sans-serif;        
    }
    
    a{
        border: none;
        text-decoration:none;        
        color:#fff;
    }
    aa{    text-align: center; }
    
    /* наружные блоки */
    
    #b1 {
        position: absolute;
        left: 15px;
        top: 15px;        
        width:400px;        
        z-index: 1;
    }    
    #b2 {
        position: absolute;
        left: 2px;
        top: 5px;        
        width:60px;            
        cursor:hand;
        z-index: 2;
    }    
    #b4 {
        position: absolute;
        left: 368px;
        top: 5px;        
        width:60px;            
        cursor:hand;
        z-index: 2;
    }    
    #b3 {
        position: absolute;
        left: 100px;
        top: 5px;        
        width: 250px;        
        text-align: center;        
        font:bold 16 sans-serif;
        z-index: 3;        
    }    
    
    /* внутренние блоки */
    
    #ib1, #ib2, #ib4 {
        padding:1px;
        text-align: center;    
        overflow: hidden;
        background-color: #4169e1;
    }
    
    #ib1 { height:274px; color:#fff; }
    
    #ib2, #ib4 { height:50px; }
    
    #glow {
        filter:progid:DXImageTransform.Microsoft.Glow(color=red,strength=5);
        width: 200px;        
    }
    #txt{
        width: 300px;
        text-align: left;
        padding-bottom:5px
    }
    
    /* элементы закругления */
    
    b { background-color: #4169e1; }

    #r1, #r2, #r3, #r4, #r5, #r6, #r7, #r8, #r9, #r10 {
        display: block;
        height: 1px;
        overflow: hidden;
        font-size:1px;
        background-color: #4169e1;        
    }

    #r10 { margin: 0 10px; }
    #r9 { margin: 0 9px; }
    #r8 { margin: 0 8px; }
    #r7 { margin: 0 7px; }
    #r6 { margin: 0 6px; }
    #r5 { margin: 0 5px; }
    #r4 { margin: 0 4px; }
    #r3 { margin: 0 3px; }
    #r2 { margin: 0 2px; }
    #r1 { margin: 0 1px; }    
    
</style>

<script language="VBScript">
    On Error Resume Next    
    
    Const LibName = "DAHTACOM.dll"
    Const NewIconName = "snowdrop-16x16-8.ico"
    Const IconName = "daffodil-16x16-8.ico"
    Const NewImgName = "snowdrop-64x64.png"
    Const ImgName = "daffodil-64x64.png"
    Const TipText = "Всплывающая подсказка"
    Const NewTipText = "Новая подсказка"
    Const ImgHelpName = "Help-64.png"
    Dim objDAHTA, wshShell, fso    
    
    Dim x0,y0
    Dim bH 'True - окно скрыто, False - нет
    Dim bI 'True - новые картинки, False - старые
    bH = False
    bI = False
    
    Set wshShell = CreateObject("WScript.Shell")
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    Sub Window_OnLoad()
        'размер подложки
        Window.ResizeTo 430, 314
        Window.MoveTo (Screen.Width \ 2) - 320, (Screen.Height \ 2) - 280
        
        'копируем библиотеку в католог Windows
        'если копирование не удастся - библиотека зарегистрируется из текущего каталога
        Set fso = CreateObject("Scripting.FileSystemObject")
        If fso.FileExists(wshShell.CurrentDirectory & "\" & LibName) Then
            fso.CopyFile wshShell.CurrentDirectory & "\" & LibName, _
                    fso.GetSpecialFolder(0) & "\" & LibName, True
        Else
            MsgBox "Не найден файл " & LibName,vbExclamation,"Ошибка"
            window.close
        End If
        
        'пытаемся зарегистрировать библиотеку
        intRet = RegLib(True)
        If intRet Then        
            Set objDAHTA = CreateObject("DAHTACOM.DAClass")
            'в случае регистрации библиотеки из текущего каталога - работы portable
            'иногда вылетает ошибка - экземпляр класса создается не с первого раза
            If Err.Number <> 0 Then window.close
            'инициализируем объект, чтобы он получил дескриптор окна HTA
            objDAHTA.Init document.title            
            'прозрачность
            objDAHTA.SetTransRGB 204,204,221            
            'картинка и иконка
            SetImg ImgName, IconName, TipText, True
            'картинка Help
            ib4.Style.Filter = "progid:DXImageTransform.Microsoft.AlphaImageLoader(src='" & _
                    ImgHelpName & "',sizingMethod='scale');"
            'обработчики событий
            SetEH            
        Else
            MsgBox "Не удалось зарегистрировать библиотеку " & LibName,vbExclamation,"Ошибка"
            window.close
        End If        
    End Sub
    
    Sub Window_OnUnload()
        objDAHTA.DelIcon 'удаляем иконку
        Set objDAHTA = Nothing
        Set fso = Nothing
        Set wshShell = Nothing
        window.close
    End Sub
    
    'регистрация библиотеки, True - регистрируем, False - разрегистрируем
    Function RegLib(bReg)
        Dim strReg
        If bReg Then 
            strReg = "regsvr32.exe /i /s "
        Else
            strReg = "regsvr32.exe u/ /i /s "
        End If        
        intRet = wshShell.Run(strReg & LibName)        
        If intRet = 0 Then 'если удалось зарегистрировать - True
            RegLib = True
        Else
            RegLib = False
        End If    
    End Function
    
    'устанавливаем обработчики событий
    Sub SetEH()
        Set b2OnClick = GetRef("OnClickIcon")
        b2.attachEvent "onclick", b2OnClick
        Set b2OnMouseUp = GetRef("OnMouseUpIcon")
        b2.attachEvent "onmouseup", b2OnMouseUp        
        
        Set b1OnMouseMove = GetRef("MouseMoveWnd")        
        document.attachEvent "onmousemove", b1OnMouseMove
        
        Set b1OnMouseDown = GetRef("MouseDownWnd")        
        document.attachEvent "onmousedown", b1OnMouseDown
        
        Set b4OnClick = GetRef("OnClickHelp")
        b4.attachEvent "onclick", b4OnClick        
        
    End Sub
    
    Sub OnClickHelp()
        If window.event.ctrlKey Then
            Window_OnUnload
        Else        
            window.showModelessDialog "DAHTACOM-HELP.hta",,"dialogHeight:400px; dialogWidth:600px; dialogLeft:10; dialogTop:10"
        End If
    End Sub        
    
    Sub OnClickIcon()
        Const BGColor = "#ccccdd"
        Const BlockColor = "#4169e1"        
        If Not bH Then    'если окно не скрыто
            glow.Filters.Item(0).Enabled = False
            glow.Style.color = BGColor
            With ib1.Style
                .backgroundColor = BGColor
                .color = BGColor
            End With
            For Each  b1ch In b1.childNodes        
                b1ch.Style.backgroundColor = BGColor
            Next
            'картинка Help
            For Each  b4ch In b4.childNodes        
                b4ch.Style.backgroundColor = BGColor
            Next
            ib4.Filters.Item(0).Enabled = False
            
            b3.Style.color = BGColor            
            bH = True
        Else
            glow.Filters.Item(0).Enabled = True
            glow.Style.color = "fff"
            With ib1.Style
                .backgroundColor = BlockColor
                .color = "fff"
            End With
            For Each  b1ch In b1.childNodes        
                b1ch.Style.backgroundColor = BlockColor
            Next
            'картинка Help
            For Each  b4ch In b4.childNodes        
                b4ch.Style.backgroundColor = BlockColor
            Next
            ib4.Filters.Item(0).Enabled = True
            
            b3.Style.color = "#000"    
            bH = False
        End If
    End Sub 
    
    Sub OnMouseUpIcon()
        If window.event.button = 2 Then
            If window.event.ctrlKey Then 'если нажата Ctrl
                If bI Then 'если картинки новые - ставим старые
                    SetImg ImgName, IconName, TipText, False
                    bI = False
                Else
                    SetImg NewImgName, NewIconName, NewTipText, False
                    bI = True
                End If
            Else
                If Not bH Then objDAHTA.HideWnd
            End If
        ElseIf window.event.button = 1 Then
            If window.event.ctrlKey Then Window_OnUnload
        End If
    End Sub
    
    'устанавливаем картинку и иконку
    Sub SetImg(sImg, sIcon, sTip, bMod)        
        ib2.Style.Filter = "progid:DXImageTransform.Microsoft.AlphaImageLoader(src='" & _
                sImg & "',sizingMethod='scale');"
        objDAHTA.AddIcon sIcon, sTip, bMod
    End Sub
    
    Sub MouseDownWnd()
        If window.event.button = 2 Then    'если нажата правая кнопка    
            x0=window.event.x
            y0=window.event.y            
        End If
    End Sub
    
    Function MouseMoveWnd()
        If window.event.button = 2 Then 'если нажата правая кнопка                    
            window.moveBy window.event.x-x0, window.event.y-y0            
        End If
    End Function    

</script>

<body>        
    <!-- Содержание -->
    <div id="b1">
        <b id="r10"></b><b id="r7"></b><b id="r5"></b><b id="r4"></b><b id="r3"></b><b id="r2"></b><b id="r2"></b><b id="r1"></b><b id="r1"></b><b id="r1"></b>
        <div id="ib1">
            <div id="glow">
                Иллюстрация возможностей COM-сервера
            </div>
            <div id="txt">
                Нажимаем иконку в левом верхнем углу:<br/>
                - ЛКМ - скрываем-отображаем основное окно<br/>
                - ПКМ - сворачиваем окно в трей<br/>
                - ЛКМ + Ctrl - завершаем работу приложения<br/>
                - ПКМ + Ctrl - меняем иконки<br/>
                Нажимаем иконку в трее:<br/>
                - ЛКМ - отображаем окно приложения<br/>
                - ПКМ - сворачиваем окно в трей<br/>
                - ЛКМ + Ctrl - позиция окна "поверх всех"<br/>
                - ПКМ + Ctrl - отменяем позицию "поверх всех"<br/>
                Нажимаем иконку в правом верхнем углу:<br/>
                - ЛКМ - помощь по использованию библиотеки<br/>
                - ЛКМ + Ctrl - завершаем работу приложения<br/>                
                Перемещение окна - правой кнопкой мыши<br/>                    
            </div>
            <div id="aa">
                <a href="http://da440dil.narod.ru/about.html">&copy;&nbsp;Designed by da440dil</a>
            </div>
        </div>
        <b id="r1"></b><b id="r1"></b><b id="r1"></b><b id="r2"></b><b id="r2"></b><b id="r3"></b><b id="r4"></b><b id="r5"></b><b id="r7"></b><b id="r10"></b>
    </div>
    <!-- Картинка слева -->
    <div id="b2">
        <b id="r10"></b><b id="r7"></b><b id="r5"></b><b id="r4"></b><b id="r3"></b><b id="r2"></b><b id="r2"></b><b id="r1"></b><b id="r1"></b><b id="r1"></b>
        <div id="ib2"></div>
        <b id="r1"></b><b id="r1"></b><b id="r1"></b><b id="r2"></b><b id="r2"></b><b id="r3"></b><b id="r4"></b><b id="r5"></b><b id="r7"></b><b id="r10"></b>
    </div>
    <!-- Картинка справа -->
    <div id="b4">
        <b id="r10"></b><b id="r7"></b><b id="r5"></b><b id="r4"></b><b id="r3"></b><b id="r2"></b><b id="r2"></b><b id="r1"></b><b id="r1"></b><b id="r1"></b>
        <div id="ib4"></div>
        <b id="r1"></b><b id="r1"></b><b id="r1"></b><b id="r2"></b><b id="r2"></b><b id="r3"></b><b id="r4"></b><b id="r5"></b><b id="r7"></b><b id="r10"></b>
    </div>
    <!-- Заголовок -->
    <div id="b3">
        DAHTACOM
    </div>
    
</body> 
</html>

Приглашаю всех попробовать. На мой взгляд некоторые приемы заслуживают внимания.

JSman пишет:

Эх, вспоминаю 2007, старый проектик

Реализация отдаленно напоминает Ваш "старый проектик"
p.s. Кто придумает как убрать фон картинки - тот молодец

]]> Fri, 23 Sep 2011 08:12:46 +0000 https://forum.script-coding.com/viewtopic.php?pid=51767#p51767 <![CDATA[Re: HTA: COM-сервер для HTA]]> https://forum.script-coding.com/viewtopic.php?pid=51505#p51505 Mat Skywalker пишет:

Хотелось бы задавать PNG файл с прозрачностью, чтобы он был "корпусом" окна.

ОК, сделаю PNG, уже знаю как . Думаю сегодня напишу.
p.s. Все оказалось сложнее. Дебажу - png окно отображается.  Собираю - окна не видно...
p.p.s По ходу vb6 также не дружит с gdiplus, решение еще более усложняется, на счет "сегодня" я явно погорячился

]]> Wed, 14 Sep 2011 12:00:46 +0000 https://forum.script-coding.com/viewtopic.php?pid=51505#p51505 <![CDATA[Re: HTA: COM-сервер для HTA]]> https://forum.script-coding.com/viewtopic.php?pid=51488#p51488 Mat Skywalker пишет:

Хотелось бы задавать PNG файл с прозрачностью, чтобы он был "корпусом" окна.

На счет PNG курил - хлопотно, но можно нативно сделать - кода очень много - на VB6 либу рисую, а он с PNG не дружит - однако есть код-конвертор. Но.
В моем понимании можно все сделать на CSS - закругленные окна и пр., рисуем "нарядное" окно-рамку, размещаем его на фасад, в середине делаем прямоугольник, делаем его прозрачным (метод такой есть), под него подсовываем второе окно...
Как то так представляю себе.

]]> Tue, 13 Sep 2011 14:47:57 +0000 https://forum.script-coding.com/viewtopic.php?pid=51488#p51488