Страница 1 из 1
wdx ActiveX
Добавлено: Пт янв 29, 2010 01:22
Lev
В развитие обсуждения
Использование wdx-плагинов в скриптах решил попробовать написать свой ActiveX для работы с контентными плагинами.
Сейчас в утилитке всего полторы функции, но лишь бы начало было положено.
При обновлениях будет редактироваться ссылка в первом посте темы.
tc_wdx1.0.rar
Поехали!
Добавлено: Пн янв 16, 2012 15:45
Lev
Пример получения информации о шрифте с помощью AKFontInfo.wdx
пути поправить на свои
Код: Выделить всё
On Error Resume Next
Set wdx = CreateObject("tc_wdx.wdx")
If Err.Number <> 0 Then
WScript.Echo "Please install TC_wdx!"
WScript.Quit 1
End If
On Error GoTo 0
wdxPluginPath="c:\WINCMD\Content_wdx\AKFontInfo\AKFontInfo.wdx"
FilePath="c:\windows\fonts\arial.PFM"
f = wdx.Fields(wdxPluginPath,FilePath)
For i = 0 To Ubound(f)-1
s=s & f(i,0) & " = " & cstr(f(i,1)) & vbCrLf
Next
MsgBox s,,FilePath
Добавлено: Пн янв 16, 2012 16:23
Flasher
Lev
А ты не мог бы как-то поподробней расписать все методы, свойства и т.п.? Ведь даже readme нет. В SCP тоже проблемы с этим.
Добавлено: Пн янв 16, 2012 17:28
Lev
Я надеялся, что выложенная версия станет затравкой для разговора о желаемых методах, свойствах и т.п., но т.к. за год было 0 вопросов-ответов + выловил глючок с некоторыми wdx-плагинами, то забросил на время.
Из методов свойств в выложенной версии, кажись только Fields и About. Проще код примера откомментировать.
Код: Выделить всё
On Error Resume Next
'создаём экземпляр ActiveX
Set wdx = CreateObject("tc_wdx.wdx")
'проверка на существование (зарегистрированность)
If Err.Number <> 0 Then
WScript.Echo "Please install TC_wdx!"
WScript.Quit 1
End If
On Error GoTo 0
'задаём путь к wdx плагину, чьи поля мы хотим получать
wdxPluginPath="c:\WINCMD\Content_wdx\exeinfo\exeinfo.wdx"
'задаём путь к файлу из которого получаем поля
'в данном случае я плагином exeinfo.wdx получаю поля из него же самого
FilePath=wdxPluginPath
'wdx.Fields - поля плагина
f = wdx.Fields(wdxPluginPath,FilePath)
For i = 0 To Ubound(f)-1
'f(i,0) - название поля
'f(i,1) - полученное значение поля
s=s & f(i,0) & " = " & f(i,1) & vbCrLf
Next
MsgBox s
'About он и есть About
wdx.About
позже в невыложенной эксперементировал с
wdx.RegisteredPlugins - список зарегистрированных в тотале плагинов
wdx.PluginFields(wdxPluginPath) - названия полей плагинов и их типы
помнится, с плагинами возвращающими даты, ошибки у меня пока
Добавлено: Вт янв 17, 2012 21:27
Flasher
Lev
Без регистрации работать из под юзера не будет?
Добавлено: Вт янв 17, 2012 22:42
Lev
А бывают ActiveX работающие без регистрации?
Добавлено: Вт янв 17, 2012 23:15
Flasher
Бывает авторегистрация из-под юзера.