IRC Server Stats mit VB.NET (LIB)

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von Piew-Keks.

    IRC Server Stats mit VB.NET (LIB)

    Guten Abend, zurzeit stehe ich vor einem seltsamen Problem.

    Ich habe eine alte Lib für IRC (zurzeit Unreal32) am laufen mit dem Stats Server.

    Sobald ich Connecte habe ich es so eingerichtet das der User den Chat nutzen kann das Funktioniert alles Super !!

    Nun das Problem, wenn ich den Stats Server Aktiviere Crasht meine Application einfach.

    Ich habe mal den IrcClient angehangen als .dll (Das Forum davon gibts leider nicht mehr)

    Ausgeführt wird folgend :

    VB.NET-Quellcode

    1. Imports TechLifeForum
    2. Private Sub Start()
    3. client1.Connect("#Lobby")
    4. End Sub
    5. client1 = New IrcClient("IP", 6667)
    6. client1.Nick = txt_loginname.Text // usernick
    7. Dim t As New Threading.Thread(AddressOf Start)
    8. t.IsBackground = True
    9. t.Start()
    10. rtbWindow.AppendText("<" & client1.Nick & "> " & "Connected to Chat!" & Environment.NewLine)


    Button zum Senden

    VB.NET-Quellcode

    1. client1.SendMessage(txtSend.Text)
    2. rtbWindow.AppendText("<" & client1.Nick & ">: " & txtSend.Text & Environment.NewLine)
    3. txtSend.Clear()
    4. txtSend.Focus()


    Dazu eine Textbox für den Chat , Textbox für Texteingabe und die ListBox für die userliste


    VB.NET-Quellcode

    1. Private Delegate Sub _ChannelMessage(ByVal user As String, ByVal message As String)
    2. Private Sub ChannelMessage(ByVal user As String, ByVal message As String) Handles client1.ChannelMessage
    3. If InvokeRequired Then
    4. Invoke(New _ChannelMessage(AddressOf ChannelMessage), New Object() {user, message})
    5. Exit Sub
    6. End If
    7. rtbWindow.AppendText("<" & user & ">: " & message & Environment.NewLine)
    8. rtbWindow.ScrollToCaret()
    9. End Sub
    10. Private Delegate Sub _UpdateUsers(ByVal users As String())
    11. Private Sub UpdateUsers(ByVal users As String()) Handles client1.UpdateUsers
    12. If InvokeRequired Then
    13. Invoke(New _UpdateUsers(AddressOf UpdateUsers), DirectCast(users, Object))
    14. Exit Sub
    15. End If
    16. For Each s As String In users
    17. If Not lstNames.Items.Contains(s) Then
    18. lstNames.Items.Add(s)
    19. 'ListView1.Items.Add(s).SubItems.Add("test")
    20. End If
    21. Next
    22. End Sub


    *Topic verschoben*
    Dateien
    • IrcClient.dll

      (12,8 kB, 88 mal heruntergeladen, zuletzt: )

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()

    Hallo

    ​Poste doch mal auch Infos wie die IP des Servers und vielleicht ein Beispielprojekt.
    So kann den Code niemand nachvollziehen.

    Grüße
    ​Sascha
    If _work = worktype.hard Then Me.Drink(Coffee)
    Seht euch auch meine Tutorialreihe <WPF Lernen/> an oder abonniert meinen YouTube Kanal.

    ## Bitte markiere einen Thread als "Erledigt" wenn deine Frage beantwortet wurde. ##

    Ich habe den fehler nur herausbekommen :

    Lösung :

    Da ich den Server mittels einen anderen Client gestartet habe und ich gesehn habe das der "StatsServer" ein CTP sendet und der Cient von mir aber nicht öffnen kann Crasht die Anwendung.

    CTPuserVersion wurde mit # auskommentiert .