Čast scriptu:
Kód: Vybrat vše
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
client = New TcpClient(TextBox1.Text, 55555)
Dim writer As New StreamWriter(client.GetStream())
writer.Write("[" & TimeString & "] " & My.Settings.Prezdivka & " : " & RichTextBox2.Text)
writer.Flush()
RichTextBox2.Clear()
Button1 je tlačítko pro odeslat.
RichTextBox1 je políčko pro zobrazení zprávy.
RichTextBox2 je políčko pro vložení zprávy.
Prezdivka je přezdívka, kterou si nastavíte při spuštění chatu.
Díky