1 Тема от The gray Cardinal

  • The gray Cardinal
  • Разработчик
  • Неактивен

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

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.

Предложения в русском языке начинаются с большой буквы и заканчиваются точкой.
В названии ветки всегда должен быть указан язык программирования или среда исполнения скрипта, если это возможно.