Multiserver (TCP)

teddygun300 · 9. September 2011, 20:10

zn-gong schrieb:

Warum mieten, bei united hoster habe ich mir einen test server für solche dinge geholt, nach zwei tagen mus man dan halt verlängern oder neuen holen

moin ;D

kannst du mir nen link geben wo man die testserver mieten kann

ich habe bei united-hoster.com/ leider nix gefunden

Greez Elias

teddygun300 · 18. September 2011, 19:54

moin

mit diesem code hier kann ich eine nachricht manuel über die console versenden.

VB.NET-Quellcode

Sub sendmanual()
For Each Connection In list
Dim name As String
Dim nachricht As String
Console.WriteLine("Name Eingeben")
name = Console.ReadLine()
Console.WriteLine("nachricht Eingeben")
nachricht = "Admin: " & Console.ReadLine
Sendtoperson(nachricht, name)
Next
End Sub

meine frage jetzt ist: wo kann ich den code einfügen sodass der rest vom server ohne pause oder so fortgesetzt wird.
ich weis das ist eine blöde frage aber ich weis wirklich nicht weiter ;(

gfcwfzkm · 18. September 2011, 20:04

Ganz normal einbauen, dann in der Sub Main einen neuen Thread starten, also mit MultiThreading.

So, meine Frage:
Wie kann ich die Max.-Anzahl beim Server festlegen? Also das z.B. nur 25 Clienten sich connecten können, und keiner mehr...
Hab selber die list() optionen gekuckt, und nix gefunden...

mfg

teddygun300 · 20. September 2011, 20:16

ich habe das jetzt so (vergeblich) versucht

VB.NET-Quellcode

Dim b As New Threading.Thread(AddressOf sendmanual)
b.Start()

und daS habe ich überall in sub MAIN()
reingemacht.
leider klappt das nicht.
gibt es nicht irgendein code,das die console IMMER einen sub ausführt und die anderen subs darunter nicht leiden(ausfallen oä)
ich würde nähmlich gerne admin befehle IN der console haben.
also dass man IMMER in die console was reinschreiben kann und das dabei die anderen subs einfach weiterlaufen.

weis jemand ne lösung ?
GreeZ

gfcwfzkm · 20. September 2011, 20:41

Poste mal deinen Main() Code..

Eigentlich sollte es funzen... (bei mir funzt's...)

teddygun300 · 20. September 2011, 20:53

so mein Main() code ist vom orginal eigentlich unverändert, nur das ich da eine kleine( sinnlose) spielerrei und pw abfrage reingemacht habe.

dürfte eigentlich nicht interessant sein aber ich postees trozem mal ;D

Spoiler anzeigen

VB.NET-Quellcode

Sub Main()1: Console.WriteLine("Type in Password")
If Console.ReadLine = "lol" ThenConsole.WriteLine("Password Right")
Console.WriteLine("Server Starts Now!")System.Threading.Thread.Sleep(1000)
Console.Clear()Console.WriteLine("______________________________________________________")
Console.WriteLine("________________Server is Starting____________________")Console.WriteLine("______________________________________________________")
Console.WriteLine("______________________0 %_____________________________")Console.WriteLine("______________________________________________________")
System.Threading.Thread.Sleep(500)Console.Clear()
Console.WriteLine("______________________________________________________")Console.WriteLine("________________Server is Starting____________________")
Console.WriteLine("______________________________________________________")Console.WriteLine("______________________10 %____________________________")
Console.WriteLine("______________________________________________________")System.Threading.Thread.Sleep(500)
Console.Clear()Console.WriteLine("______________________________________________________")
Console.WriteLine("________________Server is Starting____________________")Console.WriteLine("______________________________________________________")
Console.WriteLine("______________________20 %____________________________")Console.WriteLine("______________________________________________________")
System.Threading.Thread.Sleep(500)Console.Clear()
Console.WriteLine("______________________________________________________")Console.WriteLine("________________Server is Starting____________________")
Console.WriteLine("______________________________________________________")Console.WriteLine("______________________30 %____________________________")
Console.WriteLine("______________________________________________________")System.Threading.Thread.Sleep(500)
Console.Clear()Console.WriteLine("______________________________________________________")
Console.WriteLine("________________Server is Starting____________________")Console.WriteLine("______________________________________________________")
Console.WriteLine("______________________40 %____________________________")Console.WriteLine("______________________________________________________")
System.Threading.Thread.Sleep(500)Console.Clear()
Console.WriteLine("______________________________________________________")Console.WriteLine("________________Server is Starting____________________")
Console.WriteLine("______________________________________________________")Console.WriteLine("______________________50 %____________________________")
Console.WriteLine("______________________________________________________")System.Threading.Thread.Sleep(500)
Console.Clear()Console.WriteLine("______________________________________________________")
Console.WriteLine("________________Server is Starting____________________")Console.WriteLine("______________________________________________________")
Console.WriteLine("______________________60 %____________________________")Console.WriteLine("______________________________________________________")
System.Threading.Thread.Sleep(500)Console.Clear()
Console.WriteLine("______________________________________________________")Console.WriteLine("________________Server is Starting____________________")
Console.WriteLine("______________________________________________________")Console.WriteLine("______________________70 %____________________________")
Console.WriteLine("______________________________________________________")System.Threading.Thread.Sleep(500)
Console.Clear()Console.WriteLine("______________________________________________________")
Console.WriteLine("________________Server is Starting____________________")Console.WriteLine("______________________________________________________")
Console.WriteLine("______________________80 %____________________________")Console.WriteLine("______________________________________________________")
System.Threading.Thread.Sleep(500)Console.Clear()
Console.WriteLine("______________________________________________________")Console.WriteLine("________________Server is Starting____________________")
Console.WriteLine("______________________________________________________")Console.WriteLine("______________________90 %____________________________")
Console.WriteLine("______________________________________________________")System.Threading.Thread.Sleep(500)
Console.Clear()Console.WriteLine("______________________________________________________")
Console.WriteLine("________________Server is Starting____________________")Console.WriteLine("______________________________________________________")
Console.WriteLine("______________________100 %___________________________")Console.WriteLine("______________________________________________________")
System.Threading.Thread.Sleep(500)Console.Clear()
Else
' Console.Clear()Console.WriteLine("______________________________________________________")
Console.WriteLine("Wrong Password")GoTo 1
　End If
hier der eigentliche Main() teil der (soweit ich es beurteilen kann) eher mit meinem problem zu tun hat

VB.NET-Quellcode

Console.WriteLine("╔══════════════════════════════════════════════════════════╗")
Console.WriteLine("║ TeddyGun300 Chat Server by vb-paradise.de [BETA] ║")
Console.WriteLine("╚══════════════════════════════════════════════════════════╝" & vbNewLine)
server = New TcpListener(ipendpoint)
server.Start()
While True ' wir warten auf eine neue verbindung...
Dim b As New Threading.Thread(AddressOf sendmanual)
b.Start()
client = server.AcceptTcpClient
Dim c As New Connection ' und erstellen für die neue verbindung eine neue connection...
c.stream = client.GetStreamc.streamr = New StreamReader(c.stream)
c.streamw = New StreamWriter(c.stream)
c.nick = c.streamr.ReadLine ' falls das mit dem nick nicht gewünscht, auch diese zeile entfernen.
list.Add(c) ' und fügen sie der liste der clients hinzu.Console.WriteLine(c.nick & " has joined.")
' falls alle anderen das auch lesen sollen können, an alle clients weiterleiten. siehe SendToAllClients
Dim t As New Threading.Thread(AddressOf ListenToConnection)
t.Start(c)
End While
　
End Sub

der code zum aufrufen ist NICHT in dem code drin,da es nicht geklappt hat.
kannst du mir sagen wo ich das(fals der code überhaupt richtig ist ) einfügen muss ?

VB.NET-Quellcode

Dim b As New Threading.Thread(AddressOf sendmanual)
b.Start()

habe mal ein paar der "formfehler" gekillt.

die fehler im ersten expander einfach ignorieren da dieser eh code (99%sicher) nicht zur fehleranaylse meines problems beiträgt.

nochmal Greez

gfcwfzkm · 20. September 2011, 21:31

Seltsam...

Sollte eigentlich funzen...

Ist alles in der (AddressOf ...) richtig?
Ist die Sub selber richtig?

Schreib mal bei der Sub sendmanual am anfang: Console.WriteLine("Funktioniert doch...")

So sieht man eigentlich am besten ob es funzt...

mfg

vincyyy · 20. September 2011, 23:49

Hi Forum,

wie kann ich es einrichten, das wenn eine neue Nachricht geschribene wird, das per NotifyInfo Ballon oder so angezeigt wird. (Bei minimierter Anwendung) ?

Gz

teddygun300 · 23. September 2011, 23:58

vincyyy schrieb:

Hi Forum,

wie kann ich es einrichten, das wenn eine neue Nachricht geschribene wird, das per NotifyInfo Ballon oder so angezeigt wird. (Bei minimierter Anwendung) ?

Gz

listbox1.count

einfach wenn die form Visible = false ist checken ob sich listbox1.count verändert.

GreeZ

OhManIchAnfänger · 2. Oktober 2011, 17:44

Auch von mir eine herzliches Dankeschön. Der TCP ist genau dass, was ich suchte.

Leider gibt es bei mir einen Fehler beim starten?

Client Zeile 52 bei "streamw.WriteLine(TextBox1.Text)" Fehlerhinweis "Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt." => new verwenden.

Leider werde ich daraus nicht ganz schlau...

Könnte ihr mir etwas weiterhelfen?

link275 · 3. Oktober 2011, 09:36

VB.NET-Quellcode

Dim streamw As StreamWriter = New StreamWriter("Datei")

Und System.IO importieren, dann sollte es doch gehen, oder?

link275

CrashWriter · 4. Oktober 2011, 11:28

hallo,
erstmals supa, danke

hat jemand das problem, dass das programm nicht richtig beendet, wenn man den server in einer windows form macht?

wenn ich auf Pause drücke nach dem beenden der windows form, sehe ich dass er in dieser schleife hängen bleibt, und auf verbindungen wartet:

VB.NET-Quellcode

While True ' wir warten auf eine neue verbindung...
client = server.AcceptTcpClient ' da bleibt er hängen!!!! obwohl schon client.closed ist .....
Dim c As New Connection ' und erstellen für die neue verbindung eine neue connection...
c.stream = client.GetStream
c.streamr = New StreamReader(c.stream)
c.streamw = New StreamWriter(c.stream)
c.nick = c.streamr.ReadLine ' falls das mit dem nick nicht gewünscht, auch diese zeile entfernen.
list.Add(c) ' und fügen sie der liste der clients hinzu.
Console.WriteLine(c.nick & " has joined.")
' falls alle anderen das auch lesen sollen können, an alle clients weiterleiten. siehe SendToAllClients
Dim t As New Threading.Thread(AddressOf ListenToConnection)
t.Start(c)
End While

Lg
CrashWriter

ErfinderDesRades · 4. Oktober 2011, 12:59

jo, der code sieht strukturell fehlerhaft aus - probierma VersuchsChat

jvbsl · 5. Oktober 2011, 18:15

da ist nichts Fehlerhaft, wurde nur nicht für eine GUI gemacht...

Für eine GUI musst du einfach das in einen extra Thread packen und als Bedingung für die Schleife eine boolesche Variable, welche du beim beenden einfach auf False setzt...

ErfinderDesRades · 5. Oktober 2011, 18:35

VB.NET-Quellcode

While True ' wir warten auf eine neue verbindung...
client = server.AcceptTcpClient ' da bleibt er hängen!!!! obwohl schon client.closed ist .....

Ich sehe keine Ausstiegsmöglichkeit aus dieser Schleife, das tätichschon als fehlerhaft aussehend bezeichnen.

jvbsl · 5. Oktober 2011, 18:55

dann hassu nicht verstanden, denn er bleibt da hängen, wenn der server offen ist, hört aber auf hängen zu bleiben wenn der geschlossen wird, nur die endlosschleife bleibt...
Und wenn client.closed ist, heißt das ja nicht, dass er keine neuen Clienten holen darf...

ErfinderDesRades · 5. Oktober 2011, 19:19

das versteh ich wirklich nicht: Wie kann man den Server schließen, wenn der Thread in genannter schleife hängt? Tatsächlich hängt der thread ja nicht in der Schleife, sondern in server.AcceptClient(), welches eine den Thread blockierende Funktion ist.

gibts da noch einen anneren Thread, von wo aus der Server quasi abgeschossen werden kann? (ich hab mich in den Gesamt-Code nicht eingearbeitet)

jvbsl · 5. Oktober 2011, 20:38

genau das war doch das Ziel, das beenden der Anwendung aus der GUI heraus, also die schöne schleife in einen extra Thread^^

gfcwfzkm · 9. Oktober 2011, 22:38

Kleine frage...

Ich möchte gerne die IP des Clienten sehen, wenn der Server die Verbindung annimmt...

Meine frage: wie mach ich das, damit dies in Console.WriteLine(clientip) gezeigt wird?

mfg

gfcwfzkm

jvbsl · 10. Oktober 2011, 18:14

guck dir dazu mal RemoteEndPoint an

Multiserver (TCP)

zn-gong schrieb:

Nachricht Manuel über console senden.

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Neue Nachricht meldung

vincyyy schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

73 Benutzer haben hier geschrieben