Brauche Hilfe [MultiServer (TCP)]

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von gfcwfzkm.

    Brauche Hilfe [MultiServer (TCP)]

    Hallo liebes VBParadise Team und Gemeindschaft,

    ich suche vergebens nach einer Lösung.

    Zu meinem Problem:

    Der MultiServer und die Userlist funktioniert einwandfrei.
    Nun habe ich aber eine kleine Idee, ich möchte zu einem User eine Privat Nachricht schreiben. Sobald er Online kommt soll oben Rechts im Client stehen 1 Neue Nachricht z.B die kann er dann lesen und beantworten.

    Wie mache ich das? Bitte um eure Hilfe.


    MfG
    Kekzline

    Also, das es oben anzeigt, das er eine neue nachricht hat, hab ich nicht, aber er bekommt eine nachricht, die er immer lesen kann...

    Ich gib dir mal den code, hab ihn in 2 Formen für Senden und 2 Für den Nachrichten-eingang. ;)

    also, hier der code von der ersten Form für's senden:

    VB.NET-Quellcode

    1. Public Class Whisper
    2. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    3. Me.Close()
    4. Form1.Show()
    5. End Sub
    7. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    8. If Form1.TextBox5.Text = TextBox2.Text And TextBox3.Text = Form2.TextBox3.Text Then
    9. whispername = TextBox1.Text
    10. Form4.Show()
    11. Me.Close()
    12. username = Form2.TextBox3.Text
    13. Else
    14. MsgBox("Falsches Passwort oder Username!", MsgBoxStyle.Exclamation)
    15. End If
    16. End Sub
    17. End Class

    den code habe ich meinem FTP-Chat "entrissen" aber kannst ihn ja dann anpassen...
    Hier der eigentliche sender-code:

    VB.NET-Quellcode

    1. Public Class Form4
    3. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    4. Me.Close()
    5. Form1.Show()
    6. End Sub
    8. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    9. Dim client As New Net.WebClient
    10. client.Credentials = New Net.NetworkCredential("FTPanmeldename", "FTP-PW")
    11. Try
    12. client.UploadString("ftp://deineftpsite/" + whispername + ".txt", client.DownloadString("ftp://deineftp/" + whispername + ".txt") + "Time: " + TimeOfDay + " Username: " + username + ": " + TextBox1.Text + Environment.NewLine)
    13. Catch
    14. client.UploadString("ftp://deinFTPsite/" + whispername + ".txt", "")
    15. client.UploadString("ftp://deine ftp/" + whispername + ".txt", client.DownloadString("ftp://deine ftp/" + whispername + ".txt") + "Time: " + TimeOfDay + " Username: " + username + ": " + TextBox1.Text + Environment.NewLine)
    16. End Try
    17. End Sub
    18. End Class


    jetzt noch die 2 empfängerformen, hier die erste:

    VB.NET-Quellcode

    1. Public Class Form5
    3. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    4. Me.Close()
    5. Form1.Show()
    6. End Sub
    8. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    9. usernamelook = TextBox1.Text
    10. Me.Close()
    11. Form6.Show()
    12. End Sub
    13. End Class


    und nun des lesen:

    VB.NET-Quellcode

    1. Public Class Form6
    3. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    4. Me.Close()
    5. Form1.Show()
    6. End Sub
    8. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    9. Try
    11. Dim client As New Net.WebClient
    12. client.Credentials = New Net.NetworkCredential("ftpname", "ftppw")
    13. RichTextBox1.Text = client.DownloadString("ftp://deineftp/Chat/Fl%C3%BCstern/" & usernamelook & ".txt")
    14. Catch
    15. End Try
    16. End Sub
    18. Private Sub Form6_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    19. Try
    20. Dim client As New Net.WebClient
    21. client.Credentials = New Net.NetworkCredential("ftpname", "ftp-pw")
    22. RichTextBox1.Text = client.DownloadString("ftp://deineftp/Chat/Fl%C3%BCstern/" & usernamelook & ".txt")
    23. Catch
    24. End Try
    25. End Sub
    27. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    28. Whisper.Show()
    29. Me.Close()
    30. End Sub
    31. End Class


    Ach, für userlook habe ich unter module noch was gemacht...
    tja, ich glob, ich konnte dir helfen :thumbsup: