کلاینت:
error01.jpg
Public Class UGCivil
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
' Dim myip = ipsabet ' آیپی سرور رو اینجا مینویسیم
' Dim myport As Int16
' Dim myip As IPAddress
' myip = Dns.Resolve(Dns.GetHostName).AddressList(0) 'اولین آدرس آیپی لیست رو یمذاره داخل متغیر
'myport = Convert.ToInt16(PortSabet)
Dim cl1 As New TcpClient 'design client
cl1.Connect(ipsabet.ToString, Portsabet)
Dim ns1 As NetworkStream
ns1 = cl1.GetStream 'get data from client and insert to ns
Dim WriteBuffer1(1024) As Byte
WriteBuffer1 = Encoding.UTF8.GetBytes(TextBox1.Text) ' برگشت به کلاینت
ns1.Write(WriteBuffer1, 0, WriteBuffer1.Length) ' برگشت به NS
Dim readbuffer1(1024) As Byte
Dim readcount1 As Int32 'count readbuffer
Dim servermess1 As String ' ذخیره دستور کلاینت
readcount1 = ns1.Read(readbuffer1, 0, readbuffer1.Length) ' طول رو میگیره و داخل ردکانت میذاره
servermess1 = Encoding.UTF8.GetString(readbuffer1, 0, readcount1) ' ترجمه و گرفتن و خواندن
RichTextBox1.Text = servermess1 & vbNewLine & RichTextBox1.Text ' آخرین پیام رو میذاره داخل ریچ تکست
End Sub
End Class
تا اتصال برقراره و همه چی اوکیه
ولی وقتی یه Button2 دوم داشته باشم لیستنر سرور یا کلاینت رو چجوری بنویسم
متغیر های باتن یک و دو رو اسم های جدا دادم اما باز این لیستنر بی وفا فقط کدهای باتن یک رو میخونه ( مشکل من همینه فقط)