Any Declaration bei Visual Studio.net 2003 geht nicht.

[forsterm]

Hallo,

ich möchte mit folgendem Code

Private Declare Function NetMessageBufferSend Lib "netapi32.dll" (ByRef lpServerName As Any, ByRef lpMsgName As Byte, ByRef lpFromName As Any, ByRef lpBuf As Byte, ByVal lnBufLen As Integer) As Integer
Private Const NERR_Success As Integer = 0

Public Function SendMsg(ByRef SendTo As String, ByRef Message As String) As Integer

Dim WrittenTo() As Byte ' enthält den Empfänger der Nachricht

Dim MSGBuffer() As Byte ' enthält die zu sendende Nachricht

WrittenTo = System.Text.UnicodeEncoding.Unicode.GetBytes(SendTo & vbNullChar)

MSGBuffer = System.Text.UnicodeEncoding.Unicode.GetBytes(Message & vbNullChar)

SendMsg = (NetMessageBufferSend(0, WrittenTo(0), 0, MSGBuffer(0), UBound(MSGBuffer)) = NERR_Success)

End Function

Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click

Dim Result As Boolean

Result = SendMsg(Text1.Text, Text2.Text)

If Result Then

MsgBox("Die Nachricht wurde verschickt.")

Else

MsgBox("Die Nachricht konnte nicht verschickt werden.")

End If

End Sub

Nachrichten über's Netzwerk verschicken, nur leider funktioniert das mit der Any declaration nicht!

Wer kann helfen?

 

[M Musiol]

Hallo!

Ich empfehle folgenden Link:

Die Liste dort ist sehr umpfangreich, ich hoffe, das hilft.

http://www.activevb.de/rubriken/apikatalog/deklarationen/netmessagebuffersend.html

Viel Erfolg!

MM