VBScript: вызов API-функции GetSystemTime через DynamicWrapperX

2008-11-02T11:20:56Z

DynamicWrapperX.
Для возвращаемой структуры придётся использовать строку, а API-функции передать указатель на неё. Члены структуры можно задать как смещения от её начала.

wYear = 0
wMonth = 2
wDayOfWeek = 4
wDay = 6
wHour = 8
wMinute = 10
wSecond = 12
wMilliseconds = 14

Set DX = CreateObject("DynamicWrapperX")

DX.Register "kernel32", "GetSystemTime", "i=p"  ' Функция получит указатель.

mySysTime = Space(8) ' Буфер под структуру, 8 * 2 = 16 байт.

DX.GetSystemTime mySysTime

' Считывание полей структуры в переменные.

aYear = DX.NumGet(mySysTime, wYear, "t")
aMonth = DX.NumGet(mySysTime, wMonth, "t")
aDay = DX.NumGet(mySysTime, wDay, "t")

MsgBox aDay & "." & aMonth & "." & aYear

Автор примера - YMP.

Серый форум — VBScript: вызов API-функции GetSystemTime через DynamicWrapperX

VBScript: вызов API-функции GetSystemTime через DynamicWrapperX