如何使用 Messenger API

Question

我总觉得有问题，有没有高手有例程可以参考？或者来讨论讨论！

Answer 1

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 IfEnd FunctionPrivate Sub Form_Load()    Dim RetVal As Boolean
    RetVal = SendMessage("目的机器名", "源机器名", "消息")
End Sub

Answer 2

我说的不是消息，是基于 MSN Messenger 的那个 Messenger API。

Answer 3

我说的不是消息，是基于 MSN Messenger 的那个 Messenger API---------------------------------------------------------------去微软，那里有SDK。