IRC Server Stats mit VB.NET (LIB)

  • VB.NET
  • .NET 4.5

SSL ist deaktiviert! Aktivieren Sie SSL für diese Sitzung, um eine sichere Verbindung herzustellen.

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, 9 mal heruntergeladen, zuletzt: )

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

    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 .