Hi !

hab alles so gemacht wie dort steht, gefällt mir auch so sehr gut.
Aber: was muss ich mit Application machen? habe MessageBox mit MsgBox ersetzt. Klappt auch aber
mit was muss ich Application ersetzen oder muss ich deklariern?

Danke!

Lass MessageBox da stehen, MsgBox ist veraltet.
Application kannst du eig. auch da stehen lassen, kommen bei dir Fehler?

Hallo

Danke für die erklären ich hab da jetzt nur eine frage kann man auch ein Privat chat draus machen also user(x) mit user(y)

es mußte praktisch in client hinzugefügt werden send an: user(y)

und der server muß es es dann an user(y) senden und anderes herrum auch

nur die frage ist wie geht sowas

gruß

DeMa

musst dir ein eigenes Protokoll o.ä. machen...

Oder du machst die Möglichkeit z.B. das in den Client zu schreiben : "/User1 Hi"

Dann testet der Server so, ob es den User1 gibt und sendet ihm das dann:


Schon hast du deinen Privat Chat im Multi Chat...

Wenn du es nur ein Einzelchat werden soll, dann Geht das noch einfacher, das kannst du dann selber testen : P

mfG NIbel

Hey, super Code.

Habe schon ein bisschen dazu geschrieben...

Nun will ich aber noch folgendes reinbauen und benötige ein bisschen Hilfe.

- Moderatorrechte

Mit den Moderatorrechten sollen sich Nachrichten für ALLE löschen lassen und es soll eine IP bann Funktion drinne sein. D.h wenn eine bestimmte IP Adresse coneccten will, dass er einfach nicht in den Chat kommt.

- Smileys

Es sollen Smiley´s gesendet und empfangen werden.

- Schriftarten

Es sollen verschiedene Schriftarten d.h Schriftfarben ect. gesendet und empfangen werden.

- Online User

Es soll eine Liste mit allen Online Usern da sein.



Hoffe das mir da jemand ein bisschen helfen kann.

mfG.
Ich

Samus Aran schrieb:

Lass MessageBox da stehen, MsgBox ist veraltet.
Application kannst du eig. auch da stehen lassen, kommen bei dir Fehler?

hää??? ich weiß das hört sich jetzt komisch an -.- aber jetzt nichmehr -.-
komisch... egal
danke trotzdem

habe den ersten quellcode in so ein konsolenanwendungmodul reingesteckt und den anderen dann in Windows Form Anwendung.
wenn ich jetzt starte kommt natürlich die konsolenanwendung mit
"Der Server läuft!"
Und dann nichts...

hab schon bei MyProjekt -> Startobjekte verändert aber wenn ich auf Form1 Stelle kommen zwar beide aber:

konsolenanwendung: kein text

Form1: name eintragen geht
dann drück ich ok und ich seh die form1 nur halber und bekomme eine messagebox mit "verbindung zum server nicht möglich"

was nicht verwunderlich ist da ja auch nicht das ok in der konsolenanwendung gegeben wurde

wisst ihr warum? hab ich was falsch gemacht? :pinch: danke schonmal

wens interessiert bei mir kam die ganze zeit das ich Application nicht deklariert habe

Werewolve schrieb:

Um eine User-online-Liste zu erstellen musst du diese Veränderungen vornehmen:

Am Client:

1) eine Listbox1 zur Form hinzufügen
2) Die "AddItem" Sub so verändern:

VB.NET-Quellcode

1. Public Sub AddItem(ByVal s As String)
2. Dim userlist As String()
3. If s.StartsWith("/u ") Then
4. userlist = s.Remove(0, 3).Split(",")
5. ListBox1.Items.Clear()
6. ListBox1.Items.AddRange(userlist)
7. Else
8. RichTextBox1.Text = RichTextBox1.Text & s & vbCrLf
9. End If
10. End Sub

Man könnte es auch in die "Listen()" sub eingaben nur so geht man den Delegates aus dem Weg.


Am Server:


1) Erstellst diese Sub:

VB.NET-Quellcode

1. Public Sub Userlist()
2. Dim users As String = ""
3. For Each Connections In list
4. users = users & Connections.nick.ToString & ","
5. SendToAllClients("/u " & users)
6. Next
7. End Sub

2) Dann schreibst du in die "Main()" Sub hinter:

VB.NET-Quellcode

1. list.Add(c)

das

VB.NET-Quellcode

1. Userlist()

Das wars. Sollte funktionieren!

Ist nicht das Sauberste aber funktioniert bei mir!


MFG
Werewolve

Guten Tag!
Hab jetzt alles soweit gemacht!
Nur die Listbox in Listview umgeändert jetzt sieht der Code so aus:


Aber jetzt kommt der Fehler:


Wäre nett wenn du mir helfen könntest!
/e: Mit Listbox hat es funktioniert!

MFG

verwende AddRange(bzw. durchlaufe userlist, was ja ein String-Array darstellt, mit einer Schleife, damit du auch noch die ForeColor festlegen kannst...)

Fehler:

(bzw. durchlaufe userlist, was ja ein String-Array darstellt, mit einer Schleife, damit du auch noch die ForeColor festlegen kannst...)

wenn ich etwas in Klammernschreibe, ist nicht unbedingt unwichtig...also verwende eine Schleife:

Hi, habe jetzt im Clienten hinzugefügt, dass man auch andere Schriftarten benutzen kann.

Ich benutze dazu diesen Code:

Hier wird der Text Fett geschrieben! =D

Jetzt habe ich 2 Schwirigkeiten und hoffe auf eure Hilfe.

Wenn ich den Text absende, wird er nicht mit der neuen Schrift gesendet, sondern sendet den Text nur mit der Standartschrift!

Ich denke, dass ich i.was im Server, also in der Konsolenanwendung ändern muss.

Kann mir jemand helfen?

mfG.
Ich

Er sendets schon richtig, aber es kommt drauf an, was der Empfänger als Font hat

Normalerweise sollte doch dann in der ListBox1 die Schriftfarbe ect. genauso angezeigt werdenm wie ich sie gesendet habe.
Ist aber nicht so!

Jeder der im Chat ist, soll in der ListBox1 (wo die Nachrichten angezeigt werden) die Schrift sehen, die der Absender verwendet hat.

Wie geht das?

mfG.
Ich

//Edit:
Und wenn ich jetzt etwas senden will, wird es weder im Server noch im CLient angezeigt..

Man kann in ner ListBox afaik die Schriftart einzelner Einträge nicht ändern...
Geht das nicht mit ner RichTextBox?

in ner RichTextBox geht es, in ner TextBox geht es nur mit OwnerDraw und GDI+

Heißt das ich die TextBox rausnehmen muss und eine RichTextBox rein?

Oder die ListBox rausnehmen und stattdessen eine RichTextBox rein?

Oder beides? xD

Gibt es auch einen Code um nur an einen Clienten zu senden?

MFG

Private Sub SendToAllClients(ByVal s As String)
For Each c As Connection In list ' an alle clients weitersenden.
Try
c.streamw.WriteLine(s)
c.streamw.Flush()
Catch
End Try
Next
End Sub

wie du hier sehen kannst werden alle clienten in einer Schleife durchlaufen und bei jedem einzelnen ein Text gesendet. Stattdessen kannst du natürlich einen einzelnen Clienten verwenden