Нужно заставить работать EbExecuteLine! Срочно! Горю! Help!

[LCD]

Всем привет!

В vba6.dll есть замечательная недокументированная функция EbExecuteLine, позволяющая выполнять строку как программный код.
Проблема в том, что в VB6 IDE она работает прекрасно, а в exe-шнике дает ошибку. Подозреваю, что программа не находит vba6.dll.

В инете достаточно примеров по EbExecuteLine, но все скромно умалчивают про эту проблему.

Пробовал подкладывать ее (в смысле dll) в разные злачные места, регистрировать! Прочитал половину MSDN! Все бестолку, везде посылают в длительное пешее эротическое путешествие.

Можно ли заставить функцию полноценно работать?! Буду очень признателен за небольшой пример на мое мыло alex@artplast.ru или ссылку.

[RayShade]

Проще использовать Script Control. В него можно записать код и исполнить его.



Пример:

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

Dim obj As ScriptControl
Dim m As Module
Set obj = New ScriptControl
obj.Language = "VBScript"
Set m = obj.Modules.Add("NewModule")
m.AddCode ("function test(): test =1:end function")
msgbox "Result is: " & m.Run("test")
Set m = Nothing
Set obj = Nothing


[LCD]

Я знаю про ScriptControl, но в данном случае он мне не совсем подходит. Хотя я и помню про него, так, про запас.

Нужно заставить работать именно EbExecuteLine!

[ArtemV]

Я знаю про ScriptControl, но в данном случае он мне не совсем подходит. Хотя я и помню про него, так, про запас.

Нужно заставить работать именно EbExecuteLine!

А в форуме искать пробовал, где-то про это уже было, вроде на форуме в VBNet?

[GoGosha]

А ты не пробовал Fusion`ом сжимать?