VBS + DLL???

[Nash]

Возникла задача средствами VBS подключить DLL и вызывать экспортируемые ею функции, но к сожалению не представляю как это сделать, и инфы. по этому поводу тоже не нашел...
Если у кого-нибудь есть подобный опыт или соображения помогите плиизз!

[GM]

Первое что лезит в голову это создать ActiveX оболочку DLL'ки, и потом CreateObject и т.д.
Или этот способ не подходит

[Nash]

Хотелось бы узнать можно ли работать напрямую с DLL без всяких "оберток"???
Но все равно спасибо за совет, надо обдумать насчет ActiveX...

[GM]

Хотелось бы узнать можно ли работать напрямую с DLL без всяких "оберток"???

Насколько я знаю в VBS не предосмотрена возможность работы с ДЛЛ, так что напрямую не получиться, прийдется юзать обертку, либо тот же ActiveX который дает возможность вызывать API ф-ции, типа

Код: Выделить всё

Dim API
...
API.CallFunction("user32.dll","BlockInput",true)


[tyomitch]

Хотелось бы узнать можно ли работать напрямую с DLL без всяких "оберток"???

Насколько я знаю в VBS не предосмотрена возможность работы с ДЛЛ, так что напрямую не получиться, прийдется юзать обертку, либо тот же ActiveX который дает возможность вызывать API ф-ции, типа

Код: Выделить всё

Dim API
...
API.CallFunction("user32.dll","BlockInput",true)


Да-да, у меня такая "универсальная обёртка" даже есть
Сделать её из кода GSerg-а либо Оловянникова (я делал из Оловянникова) - дело пяти минут.

[Nash]

Да-да, у меня такая "универсальная обёртка" даже есть
Сделать её из кода GSerg-а либо Оловянникова (я делал из Оловянникова) - дело пяти минут.

А где если не секрет код приведенных тобой людей посмотреть или если не жалко можешь свой кинуть???

[tyomitch]

Да-да, у меня такая "универсальная обёртка" даже есть
Сделать её из кода GSerg-а либо Оловянникова (я делал из Оловянникова) - дело пяти минут.

А где если не секрет код приведенных тобой людей посмотреть или если не жалко можешь свой кинуть???

Оловянников: http://vbrussian.com/Examples.asp?ID=46 и http://www.freevbcode.com/ShowCode.Asp?ID=1863
GSerg: http://vbstreets.ru/VB/Articles/66035.aspx

[Nash]

Да-да, у меня такая "универсальная обёртка" даже есть
Сделать её из кода GSerg-а либо Оловянникова (я делал из Оловянникова) - дело пяти минут.

А как же насчет минимального набора:
LoadLibrary
GetProcAddress
CallWindowProc

Как тогда из вызывать? Без этих функций же обертка не заработает.
Или я чего-то недопонял?

[GSerg]

Ничего не допонял
Сделай activex из приведённого кода.

[Nash]

Ну а тогда зачем извращаться с указателями, через ActiveX я любую API смогу вызвать напрямую, я то думал, что этот метод мне поможет прямо из VBS вызвать любую API
Видимо придется делать переходник через ActiveX...

[Nash]

Вообщем сделал я простейшую ActiveX dll :

Код: Выделить всё

Option Explicit

Private Declare Function MessageBox Lib "user32.dll" Alias "MessageBoxW" (ByVal hwnd As Long, ByRef lpText As Byte, ByRef lpCaption As Byte, ByVal wType As Long) As Long

Public Sub MyMsgBox()
    Dim MyText() As Byte
    Dim MyCaption() As Byte
   
    MyCaption = "Hi!" & vbNullChar
    MyText = "Hello World" & vbNullChar
               
    MessageBox 0, MyText(0), MyCaption(0), &H0&
End Sub


Скомпилил ее, получил MyMsg.dll

Сделал скрпт типа:

Код: Выделить всё

Option Explicit

Dim Msg

Set Msg=CreateObject("MyMsg.dll")
Msg.MyMsgBox

WScript.Quit


И нифига - вылетает ошибка при запуске скрипта:
"Невозможно создание объекта контейнером ActiveX: MyMsg.dll"

Может кто знает в чем моя ошибка???

[tyomitch]

Ну а тогда зачем извращаться с указателями, через ActiveX я любую API смогу вызвать напрямую, я то думал, что этот метод мне поможет прямо из VBS вызвать любую API
Видимо придется делать переходник через ActiveX...

Именно затем и нужны указатели, чтобы вызывать любую API. Если ты будешь вызывать "напрямую", то для каждой новой API придётся писать новую обёртку (или дописывать старую).

[tyomitch]

Код: Выделить всё

...
Set Msg=CreateObject("MyMsg.dll")
...


И нифига - вылетает ошибка при запуске скрипта:
"Невозможно создание объекта контейнером ActiveX: MyMsg.dll"

Может кто знает в чем моя ошибка???

В ДНК

Параметр CreateObject - не имя скомпилированного файла, а ProgID.

[Nash]

Параметр CreateObject - не имя скомпилированного файла, а ProgID

Спасиб, не досмотрел....

[Nash]

Именно затем и нужны указатели, чтобы вызывать любую API. Если ты будешь вызывать "напрямую", то для каждой новой API придётся писать новую обёртку (или дописывать старую).

Да оно то понятно, но все равно особых преимуществ не вижу, разве что таблица импорта не будет заполнена вызываемыми API, ну и позновательно для тех, кто не знал про принципы вызова API на низком уровне...

[tyomitch]

Именно затем и нужны указатели, чтобы вызывать любую API. Если ты будешь вызывать "напрямую", то для каждой новой API придётся писать новую обёртку (или дописывать старую).

Да оно то понятно, но все равно особых преимуществ не вижу, разве что таблица импорта не будет заполнена вызываемыми API, ну и позновательно для тех, кто не знал про принципы вызова API на низком уровне...

Преимущество - один раз написанная универсальная длл-ка, а не новая для каждой задачи.
Не хочешь - твоё дело.