Печать

[Viktor1703 [?]]

На оф.форуме нашёл пример как можно написать свой ActiveX компонент без компиляции и создания dll, но ни один пример так и не заработал, чуть - чуть погуглив, пришлось почитать о WSC скриптах, в принципе ни чего сложного нет, можно брать готовый шаблон и добавлять свои функции, вот пример самого компонента:

Код: [Выделить]

<?xml version="1.0" encoding="windows-1251" standalone="yes"?>

<?component error="true" debug="true"?>

<package>

<!--
=====================================AutoIt.Msg===================================
-->

<component id="Example">

<registration progid="AutoIt.Msg" classid="{96AE6C76-AC01-4C05-9A4B-56E46CF1076C}"/>

<public>
    <property name="Version"><get/></property>
    <property name="LastErrorInfo"><get/></property>
    <property name="LastErrorMethod"><get/></property>
    <property name="LastErrorReason"><get/></property>
    <property name="LastErrorNumber"><get/></property>
    <property name="LastErrorDescription"><get/></property>
    <property name="LastErrorSource"><get/></property>
    <event name="OnError"/>
   
    <method name="MsgCom"><parameter name="MsgCom"/></method>
</public>

<resource id="ver">1.21</resource>

<script language="VBScript"><![CDATA[

' информация о последней произошедшей ошибке
LastErrorInfo = ""
LastErrorMethod = ""
LastErrorReason = ""
LastErrorNumber = ""
LastErrorDescription = ""
LastErrorSource = ""

Sub ClearLastError()
    LastErrorInfo = ""
    LastErrorMethod = ""
    LastErrorReason = ""
    LastErrorNumber = ""
    LastErrorDescription = ""
    LastErrorSource = ""
End Sub

Sub fireError(strInfo, strMethod, strReason)
    LastErrorInfo = strInfo
    LastErrorMethod = strMethod
    LastErrorReason = strReason
    LastErrorNumber = Err.Number
    LastErrorDescription = Err.Description
    LastErrorSource = Err.Source
    Err.Clear
    fireEvent("onError")
End Sub

Function get_LastErrorInfo()
    get_LastErrorInfo = LastErrorInfo
End Function
Function get_LastErrorMethod()
    get_LastErrorMethod = LastErrorMethod
End Function
Function get_LastErrorReason()
    get_LastErrorReason = LastErrorReason
End Function
Function get_LastErrorNumber()
    get_LastErrorNumber = LastErrorNumber
End Function
Function get_LastErrorDescription()
    get_LastErrorDescription = LastErrorDescription
End Function
Function get_LastErrorSource()
    get_LastErrorSource = LastErrorSource
End Function
Function get_Version()
    get_Version = GetResource("ver")
End Function

Function MsgCom(Index, Title, Text)
    MsgCom = MsgBox (Text, Index, Title)
End Function

]]></script>

</component>

<!--
=====================================AutoIt.Msg===================================
-->

</package>


В данном примере вызывается функция MsgCom и возвращает значение выполнения функции, в случае ошибки вызова компонента предусмотрены функции выше, они вернут код ошибки в AutoIt скрипт, для того чтоб зарегистрировать компонент, достаточно нажать ПКМ на файл и выбрать "Подключить", после этого можно писать AutoIt код:

Код: AutoIt [Выделить]

$oAutoIt = ObjCreate('AutoIt.Msg')
$Ret = $oAutoIt.MsgCom (64, 'AutoIt.Msg', 'Example')
MsgBox(0, 'Return', 'Return code = ' & $Ret)
 

P.S. Тестировалось на XP, отрабатывает отлично, прозьба протестировать на других системах.

[XpycT [?]]

Viktor1703
У меня выпадает с ошибкой

Все разобрался

[Viktor1703 [?]]

XpycT, у Вас XP, 7/Vista ?

[XpycT [?]]

Win XP SP3

[Viktor1703 [?]]

Значит на XP гарантировано работает, хотелось бы чтоб и на 7/Vista так же работало

[WSWR [?]]

На Win7 работает вроде

[Александр [?]]

Код: [Выделить]

---------------------------
AutoIt Error
---------------------------
Line 2  (File "C:\Users\111111\Desktop\AutoIt.Msg.exe"):


Error: Variable must be of type "Object".windows 7
мож я что не так понял?

[WSWR [?]]

У меня работает даже и не через Autoit, а при вызове из другой программы.

Viktor1703
Где можно почитать про добавление своих функций в такой компонент?

[Viktor1703 [?]]

Александр, а Вы компонент зарегистрировали в системе?

чтоб зарегистрировать компонент, достаточно нажать ПКМ на файл и выбрать "Подключить", после этого можно писать AutoIt код

скачайте архив прикреплённый к первому посту, разархивируйте файлы в какую нибудь папку, далее нажмите правой кнопкой мыши на файл AutoIt.Msg.wsc, выберите 'Подключить', а потом запускайте AutoIt скрипт, если XP, то должно работать без ошибок, на счёт 7/Vista - не знаю, но WSWR говорит что вроде работает


Добавлено: Февраль 13, 2012, 15:39:26

Где можно почитать про добавление своих функций в такой компонент?

Да в принципе везде в нэте море инфы, эти функции VBS скрипта, нужно просто изучить VBS и можно писать функции в компонент. Могу предложить форум где обсуждают VBS/JS/HTA/WSH

Посмотрите пример компонента, чтоб добавить функцию нужно сначала объявить метод между тегами <public></public>:

Пример из компонента:

Код: [Выделить]

<method name="MsgCom"><parameter name="MsgCom"/></method>
Ниже неё или вместо неё ставим свой метод:

Код: [Выделить]

<method name="Название функции"><parameter name="Название функции"/></method>
И соответственно изменить или добавить функцию

Код: [Выделить]

Function Название функции()
    ; Код
End Function

[Александр [?]]

ага. сработало..просто поосторожничал ..подключать 

[Viktor1703 [?]]

Александр, я тоже сначала не хотел, а потом всё таки подключил на свой страх и риск, но к моему большому удивлению после запуска AutoIt скрипта, всё сработало 

[CreatoR [?]]

Viktor1703  [?]

можно брать готовый шаблон и добавлять свои функции

Функции на VBS? А смысл?

Вот если бы их можно было писать на AutoIt.
Но для этого уже есть AutoItX3.

[DarWiM [?]]

Расскажите, что это дает? Как работает?

[WSWR [?]]

CreatoR

Но для этого уже есть AutoItX3.

На первый взгляд, у AutoItX3 бедноват функционал, например, как с его помощью хотя бы вывести сообщение MsgBox?

У меня есть приложение, которое поддерживает вызов функций только по COM, и эти компоненты мне будут очень полезны.

[Viktor1703 [?]]

Это для общего развития, например мне было очень  интересно, если бы можно было такое на AutoIt....

DarWiM, ну что тут рассказать, это обычный компонент (Windows Script Component) позволяет создавать функции и регистрировать их в системе, а вызывать с помощью создания этого объекта в коде, то есть вызов будет происходить не как DllCall(), но возможности VBS не такие расширенные как у AutoIt, ещё раз повторю, это для общего развития, я не предлогаю использовать это как часть AutoIt кода, а всего лишь привожу пример как можно сделать, я например не знал о таком способе, и очень удивился когда узнал, ну и естественно попробывал  , но я так думаю что здесь можно писать не только VBS функции но и других скриптовых языков которые не нуждаются в компиляции и создании исполняющего файла.


Добавлено: Февраль 13, 2012, 17:03:14WSWR, могу дать Obfuscator для VBS кода.

• script_ru
• Nazgul666
• InnI
• Александр
• Serafim
• Pavel
• MockeR
• madmasles
• dwerf
• britanec74
• GenoTIP
• sl131
• eropov
• SummerLeaf
• nowost
• Kaster
• toter
• Nurgazy
• scanfail
• vnebe
• Nelsy
• Khaibit
• illja
• ---Zak---
• CredoC
• centaur
• chydik
• Yashied
• Yurmurk
• asdf8
• urihome