View previous topic :: View next topic |
Author |
Message |
Lev
![](images/avatars/39627962044ca40a2d05ec.gif)
Joined: 02 Mar 2005 Posts: 392
|
(Separately) Posted: Fri Jan 29, 2010 02:22 Post subject: wdx ActiveX |
|
|
В развитие обсуждения Использование wdx-плагинов в скриптах решил попробовать написать свой ActiveX для работы с контентными плагинами.
Сейчас в утилитке всего полторы функции, но лишь бы начало было положено.
При обновлениях будет редактироваться ссылка в первом посте темы.
tc_wdx1.0.rar
Поехали! |
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
Lev
![](images/avatars/39627962044ca40a2d05ec.gif)
Joined: 02 Mar 2005 Posts: 392
|
(Separately) Posted: Mon Jan 16, 2012 15:45 Post subject: |
|
|
Пример получения информации о шрифте с помощью AKFontInfo.wdx
пути поправить на свои
Code: | 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 |
|
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
Flasher
![](images/avatars/11897631144e285f14b2775.jpg)
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Mon Jan 16, 2012 16:23 Post subject: |
|
|
Lev
А ты не мог бы как-то поподробней расписать все методы, свойства и т.п.? Ведь даже readme нет. В SCP тоже проблемы с этим. |
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
Lev
![](images/avatars/39627962044ca40a2d05ec.gif)
Joined: 02 Mar 2005 Posts: 392
|
(Separately) Posted: Mon Jan 16, 2012 17:28 Post subject: |
|
|
Я надеялся, что выложенная версия станет затравкой для разговора о желаемых методах, свойствах и т.п., но т.к. за год было 0 вопросов-ответов + выловил глючок с некоторыми wdx-плагинами, то забросил на время.
Из методов свойств в выложенной версии, кажись только Fields и About. Проще код примера откомментировать.
Code: | 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) - названия полей плагинов и их типы
помнится, с плагинами возвращающими даты, ошибки у меня пока |
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
Flasher
![](images/avatars/11897631144e285f14b2775.jpg)
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Tue Jan 17, 2012 21:27 Post subject: |
|
|
Lev
Без регистрации работать из под юзера не будет? |
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
Lev
![](images/avatars/39627962044ca40a2d05ec.gif)
Joined: 02 Mar 2005 Posts: 392
|
(Separately) Posted: Tue Jan 17, 2012 22:42 Post subject: |
|
|
А бывают ActiveX работающие без регистрации? |
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
Flasher
![](images/avatars/11897631144e285f14b2775.jpg)
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Tue Jan 17, 2012 23:15 Post subject: |
|
|
Бывает авторегистрация из-под юзера. |
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
|