VBS: Указатель на переменную

Может быть  Vladimir думал вызвать функцию из dll.

А функция секретная? Что-то я сомневаюсь, что Вы её через rundll сможете вызвать. Так вызываются функции, специально под это приспособленные. Ваша такая?

Ну, раз имя её не называете.

Имя ФУНКЦИИ.
Впрочем, уже не надо. Я подумал, что это функция WinAPI. Уже не раз бывали вопросы про rundll, где люди не понимали особенностей вызываемых через неё функций. Думали, что любую можно вызвать. Поэтому я и поинтересовался, что за функция. Не буду больше Вас беспокоить вопросами, желаю успеха.

chessman
Ну так это ведь не соответствует условиям.

Лично у меня это Г. отсутствует ввиду абсолютной ненужности.
Это я к тому, что не стоит рассчитывать на его наличие.

На всякий случай и здесь поздравлю всех с праздником.

DWX изначально разрабатывался для решения подобных задач, так что должно взлететь.

Немного вопрос изучил...

1) Можно перенести основной функционал приложения в VBA, и получить адрес можно используя функцию VarPtr() - тогда всё легко и красиво. А также вызвать DLL напрямую, без лишнего гемора.
    а) Также можно создать обёртку в модуле VBA над VarPtr - но есть большое НО, переменные передаются по значению (Используя метод oExcel.Run() или oExcel.Evaluate() - где oExcel, тип Excel.Application), и возвращается адрес копии.
    б) Хуже ещё, даже если передастся как-то по ссылке, то VarPtr считает адрес из адресного пространства Excel а не WScript - и того чего нужно по адресу мы не найдём.
    в) Ещё хуже что передают данные с типом Variant... И даже если мы получим адрес, то это будет адрес на Variant, и такой тип передавать в DLL (уверен что она не ждёт этот тип) нельзя.

2) Используя DynWrapperX, попробовал так:

Dim oDWR, vTest, vTest2, vPnt
Set oDWR = CreateObject("DynamicWrapperX")

oDWR.Register "msvbvm60", "VarPtr", "i=w", "r=l"
oDWR.Register "kernel32", "RtlMoveMemory", "i=lll"

'Получение указателя на строку
vTest = "Привет!"
vPnt = oDWR.VarPtr(vTest)

'Проверка, чтение из памяти строки
Call oDWR.RtlMoveMemory(vTest2, (vPnt), 16)

MsgBox vTest2

Чтение не удаётся, неверно я типы объявляю... Ещё над этим думаю. Второй параметр надо передать по значению. Адрес на переменную получаю, но это тип Variant. Ещё встречный вопрос... Данные передаваться будут в DLL какими типами? В DWX встроен метод StrPtr - который возвращает адрес на строку. Если нужно передать число, то можно выделить буфер строковой достаточный, туда засунуть число "правильно" и передать правильно адрес на начало числа, тогда функция верно его считает и все будут довольны.

Если есть вариант сделать на VBA, то основной функционал я бы лучше возложил на нём.

Тут надо учесть, что Rundll передаёт параметры в вызываемую функцию в виде строки. Из своей командной строки Rundll вырезает часть, предназначенную для функции, и передаёт её ей в третьем параметре. Потом функция должна распарсить эту строку на отдельные элементы. Так что числа должны передаваться в строковом виде.

Вот пример функции, вызываемой через Rundll:

VOID CALLBACK InstallHinfSection(
  __in  HWND hwnd,
  __in  HINSTANCE ModuleHandle,
  __in  PCTSTR CmdLineBuffer,
  __in  INT nCmdShow
);

Parameters
hwnd [in] 
The parent window handle. Typically hwnd is Null.

ModuleHandle [in] 
Reserved and should be Null.

CmdLineBuffer [in] 
Pointer to buffer containing the command line. You should use a null-terminated string.

nCmdShow [in] 
Reserved and should be zero.

Return Value
This function does not return a value.