اتصال Telnet بین کلاینت و سرور

[zero01]

سلام و درود
کلاینت با این خطای
system.net.sockets.socketexception (0x80004005): no connection could be made because the target machine actively refused it 192.168.1.50:4578 at system.net.sockets.tcpclient.connect(string hostname, int32 port)
مواجه میشود فایروال رو در سیستم کلاینت خاموش کردم اما درست نشد
وقتی برنامه سرور و کلاینت در یک سیستم اجرا شوند ارسال و دریافت دارند
کسی راه حلی داره؟

[ROSTAM2]

سلام و درود
کلاینت با این خطای
system.net.sockets.socketexception (0x80004005): no connection could be made because the target machine actively refused it 192.168.1.50:4578 at system.net.sockets.tcpclient.connect(string hostname, int32 port)
مواجه میشود فایروال رو در سیستم کلاینت خاموش کردم اما درست نشد
وقتی برنامه سرور و کلاینت در یک سیستم اجرا شوند ارسال و دریافت دارند
کسی راه حلی داره؟

سلام
باید Port اتصال رو به فایروال معرفی کنی
مثل اتصال به وب اپلیکشن IIS در شبکه
https://www.aparat.com/v/c904ue8

[zero01]

سلام
باید Port اتصال رو به فایروال معرفی کنی
مثل اتصال به وب اپلیکشن IIS در شبکه
https://www.aparat.com/v/c904ue8

مرسی مهندس
بعد من تو نرم‌افزار کلاینتم متغیر ای‌پی رو گذاشتم از خود سیستم بگیره
یعنی ممکنه بجای اینکه سیستم کلاینت به سرور ارسال کنه داره به هاست خودش ارسال میکنه🤔
باید ای‌پی و پورت سرور رو بهش بدم یعنی؟

[ROSTAM2]

مرسی مهندس
بعد من تو نرم‌افزار کلاینتم متغیر ای‌پی رو گذاشتم از خود سیستم بگیره
یعنی ممکنه بجای اینکه سیستم کلاینت به سرور ارسال کنه داره به هاست خودش ارسال میکنه������
باید ای‌پی و پورت سرور رو بهش بدم یعنی؟

من تا الآن با Telnet کار نکردم: (فقط ی نمونه TCP Client/Server برای ارسال صدا از کلاینت ب سرور دانلود کردم ک اونم وقت نکردم کدشو بررسی کنم)

https://www.winsocketdotnetworkprogr...ication8c.html

Test telnet communication on remote computer using VB.net? - Stack Overflow

Use Sockets to send and receive data over TCP - .NET | Microsoft Learn

ارسال فایل:
Sending Files using TCP - CodeProject

[zero01]

من تا الآن با Telnet کار نکردم: (فقط ی نمونه TCP Client/Server برای ارسال صدا از کلاینت ب سرور دانلود کردم ک اونم وقت نکردم کدشو بررسی کنم)

https://www.winsocketdotnetworkprogr...ication8c.html

Test telnet communication on remote computer using VB.net? - Stack Overflow

Use Sockets to send and receive data over TCP - .NET | Microsoft Learn

ارسال فایل:
Sending Files using TCP - CodeProject

ایده های جالبی دارین‎ آ مهندس
کلاینت: دوتا فرم مجزا دارم سرور هم همین طور
ولی سرور من فقط یک دستور رو اجرا میکنه یعنی برای هر فرم باید یک پورت مجزا تعریف کنم

[zero01]

یعنی اگه خلاصه بگم سرور چطوری تشخیص میده که کدام دستور برای کدام قسمت کلاینت هست؟ ( از هم تفکیک و اجرا کنه)

[ROSTAM2]

یعنی اگه خلاصه بگم سرور چطوری تشخیص میده که کدام دستور برای کدام قسمت کلاینت هست؟ ( از هم تفکیک و اجرا کنه)

بر طبق IP هر کلاینت

کدوم قسمت کلاینت منظور چیه؟!

R.png

[zero01]

مثلا یک کلاینت فقط داریم با یک ای‌پی ثابت.مشکل من قسمت listener سرور هست وقتی که دستور کلاینت دریافت میکنه
که چجوری باید بفهمه ساب/فانکشن یک رو احرا کنه یا دو یا . . .تو مرحله تک‌بعدی گیر کردم������

[zero01]

یعنی کدام دستور کلاینت برای کدام قسمت سرور هست
و بالعکس

[ROSTAM2]

مثلا یک کلاینت فقط داریم با یک ای‌پی ثابت.مشکل من قسمت listener سرور هست وقتی که دستور کلاینت دریافت میکنه
که چجوری باید بفهمه ساب/فانکشن یک رو احرا کنه یا دو یا . . .تو مرحله تک‌بعدی گیر کردم������

این بسته به دستوراتیه که خودت برای برنامه های کلاینت و سرور می نویسی
شبیه دستورات CommandLine در PowerShell یا Command Prompt

[Mahmoud.Afrad]

برای هر دستور یک کد یا اسم یکتا در نظر بگیرید.


میتونید یک پروژه ایجاد کنید و این کدها و کلا داده های مشترک رو در اون قرار بدید و پروژه های کلاینت و سرور ازش استفاده کنند.

[zero01]

استاد ظاهرا باید یه آموزش ارتباط گیری کلاینت و سرور ببینم فعلا از SQL بصورت موقت به Access کوچ کردم خیلی دلچسب نیست
تا الان توانستم این قسمت رو اجرا کنم ( درپست بعدی کد رو میذارم)

[zero01]

error01.png

    Private Function Load_Bank(x As String) As String        Dim output_data As String = ""

        DS.Reset()

        con = New SqlConnection(strcon)

        con.Open()

        strsql = "select * from ConstructCivil where id=" & x & " "

        DA = New SqlDataAdapter(strsql, con)

        DA.Fill(DS, "ConstructCivil")

        con.Close()

        output_data &= DS.Tables("ConstructCivil").Rows(0).Item("TagType"  )

        output_data &= DS.Tables("ConstructCivil").Rows(0).Item("ID")

        Return (output_data)

    End Function

    Private Sub listen()

        While StartServer

            Dim cl1 As TcpClient

            cl1 = sr.AcceptTcpClient

            Dim ns1 As NetworkStream

            ns1 = cl1.GetStream

            Dim readbuffer(1024) As Byte

            Dim readcount As Int32

            Dim clientmess1 As String

            readcount = ns1.Read(readbuffer, 0, readbuffer.Length)

            clientmess1 = Encoding.UTF8.GetString(readbuffer, 0, readcount)

            Dim Temp1 As String = Load_Bank(clientmess1)

            Dim WriteBuffer(1024) As Byte

            WriteBuffer = Encoding.UTF8.GetBytes(Temp1)

            ns1.Write(WriteBuffer, 0, WriteBuffer.Length)

        End While

    End Sub

End Class

[zero01]

کلاینت:

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 دوم داشته باشم لیستنر سرور یا کلاینت رو چجوری بنویسم
متغیر های باتن یک و دو رو اسم های جدا دادم اما باز این لیستنر بی وفا فقط کدهای باتن یک رو میخونه ( مشکل من همینه فقط)