NetMessageBufferSend [хочу понять как работает]

[Bsplesk]

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

Private Declare Function NetMessageBufferSend Lib _
  "NETAPI32.DLL" (yServer As Any, yToName As Byte, _
  yFromName As Any, yMsg As Byte, ByVal lSize As Long) As Long
Private Const NERR_Success As Long = 0&
Public Function SendMessage(RcptToUser As String, _
   FromUser As String, BodyMessage As String) As Boolean

   Dim RcptTo() As Byte
   Dim From() As Byte
   Dim Body() As Byte

   RcptTo = RcptToUser & vbNullChar
   From = FromUser & vbNullChar
   Body = BodyMessage & vbNullChar

   If NetMessageBufferSend(ByVal 0&, RcptTo(0), ByVal 0&, _
        Body(0), UBound(Body)) = NERR_Success Then
     SendMessage = True
   End If
End Function
Private Sub Form_Load()
    Dim RetVal As Boolean
    RetVal = SendMessage("Utente", "FromUser", "BodyText")
End Sub

Вот есть такой примерчик. Не пойму как он работает
Хотелось бы узнать
о типе Any
и как в допустим RcptTo() [массив Byte как я понимаю] присваивается
RcptToUser [типа string].... и как точно
кому не в лом распишите по пунктикам код.
[/syntax]

[tyomitch]

Any -- это не тип, это указание "любой тип".
Строка в байтовый массив копируется побайтно (один символ -- пара байтов).
Сам код дурной (надо было передавать ByVal StrPtr, безо всякого копирования).

[Bsplesk]

Пасибо! , но почему "копируется побайтно (один символ -- пара байтов)", почему? типо посмотрел как изменяются переменные в Add Watch, но почему именно так, так и не понял Размерность массива устанавливается по кол-во символов [код ASCII символа+0].
Кто-нибуть может кинуть однозначный кусок кода, но по понятней
зарание благодарен

[Amed]

Bsplesk, 2 байта - код символа в юникоде