Nachrichten im Netzwerk verschicken kalppt net =(!

[apfelkorn]

Hallo!
Ich bin momentan an diesem Code am Coden und soweit fertig aber es klappt net was hab ich falsch gemacht?

Option Explicit

Private Declare Function NetMessageBufferSend Lib "netapi32.dll" (lpServerName As Any, _
																  lpMsgName As Byte, _
																  lpFromName As Any, _
																  lpBuf As Byte, _
																  ByVal InBufLen As Long _
																  ) As Long
Private Const NERRSuccess As Long = 0&
Public Function NachrchitSenden(SendTo As String, Message As String) As Long

	Dim WrittenTo() As Byte
	Dim MSGBuffer() As Byte
	
	WrittenTo = SendTo & vbNullChar
	MSGBuffer = Message & vbNullChar
	
	NachrichtSenden = (NetMessageBufferSend(ByVal 0&, WrittenTo(0), ByVal 0&, MSGBuffer(0), _
	UBound(MSGBuffer)) = NERRSuccess)
End Function


Private Sub lblAbbrechen_Click()
End
End Sub
 
Private Sub lblSenden_Click()
 Dim result
 result = NachrichtSenden(txtEmpfaenger, txtNachricht)
End Sub

Mfg Henny ;-)

 

[forsterm]

Hallo,

wenn's dich interessiert könntest du auch folgenden Code benutzen.

Erstelle dazu eine Klasse namens NetSend mit folgendem Code:

Imports System.runtime.InteropServices
 
Public Class NetSend
 
Public Function Sende(ByVal SendeAn As String, _
ByVal SendeNachricht As String) As Integer
Return NetMessageBufferSend(Nothing, SendeAn, Nothing, _
SendeNachricht, SendeNachricht.Length * 2 + 2)
End Function
 
<DllImportAttribute("Netapi32", CharSet:=CharSet.Unicode)> _
Public Shared Function NetMessageBufferSend(ByVal servername As String, _
ByVal msgname As String, ByVal fromname As String, ByVal buf As String, _
ByVal buflen As Integer) As Integer
End Function

End Class

und füge bei deiner Form dann noch zwei TextBoxen (TextBox1 und TextBox2)ein und einen Button (Button1)der folgenden Code beinhaltet hinzu:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'TextBox1 = der Empfänger
'TextBox2 = die Nachricht die versendet werden soll
Dim Message As New NetSend
Dim erg As Integer
erg = Message.Sende(Me.TextBox1.Text, Me.TextBox2.Text)
 
If erg = 0 Then
MessageBox.Show("Ihre Nachricht wurde erfolgreich versand.")
Else
MessageBox.Show("Ihre Nachricht konnte nicht versand werden.")
End If
 
End Sub

das war's auch schon.
Viel Spaß damit.

 

[apfelkorn]

Wie erstelle ich eine klasse?

 

[forsterm]

Wie erstelle ich eine klasse?

Bilder sagen mehr als 1000 Worte.