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 :
Button zum Senden
Dazu eine Textbox für den Chat , Textbox für Texteingabe und die ListBox für die userliste
*Topic verschoben*
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
- Imports TechLifeForum
- Private Sub Start()
- client1.Connect("#Lobby")
- End Sub
- client1 = New IrcClient("IP", 6667)
- client1.Nick = txt_loginname.Text // usernick
- Dim t As New Threading.Thread(AddressOf Start)
- t.IsBackground = True
- t.Start()
- rtbWindow.AppendText("<" & client1.Nick & "> " & "Connected to Chat!" & Environment.NewLine)
Button zum Senden
Dazu eine Textbox für den Chat , Textbox für Texteingabe und die ListBox für die userliste
VB.NET-Quellcode
- Private Delegate Sub _ChannelMessage(ByVal user As String, ByVal message As String)
- Private Sub ChannelMessage(ByVal user As String, ByVal message As String) Handles client1.ChannelMessage
- If InvokeRequired Then
- Invoke(New _ChannelMessage(AddressOf ChannelMessage), New Object() {user, message})
- Exit Sub
- End If
- rtbWindow.AppendText("<" & user & ">: " & message & Environment.NewLine)
- rtbWindow.ScrollToCaret()
- End Sub
- Private Delegate Sub _UpdateUsers(ByVal users As String())
- Private Sub UpdateUsers(ByVal users As String()) Handles client1.UpdateUsers
- If InvokeRequired Then
- Invoke(New _UpdateUsers(AddressOf UpdateUsers), DirectCast(users, Object))
- Exit Sub
- End If
- For Each s As String In users
- If Not lstNames.Items.Contains(s) Then
- lstNames.Items.Add(s)
- 'ListView1.Items.Add(s).SubItems.Add("test")
- End If
- Next
- End Sub
*Topic verschoben*
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()