Printable View
سلام و درود
کلاینت با این خطای
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)
مواجه میشود فایروال رو در سیستم کلاینت خاموش کردم اما درست نشد:متفکر:
وقتی برنامه سرور و کلاینت در یک سیستم اجرا شوند ارسال و دریافت دارند
کسی راه حلی داره؟
سلامنقل قول:
نوشته شده توسط zero01
باید Port اتصال رو به فایروال معرفی کنی
مثل اتصال به وب اپلیکشن IIS در شبکه
https://www.aparat.com/v/c904ue8
مرسی مهندسنقل قول:
نوشته شده توسط ROSTAM2
بعد من تو نرم‌افزار کلاینتم متغیر ای‌پی رو گذاشتم از خود سیستم بگیره
یعنی ممکنه بجای اینکه سیستم کلاینت به سرور ارسال کنه داره به هاست خودش ارسال میکنه🤔
باید ای‌پی و پورت سرور رو بهش بدم یعنی؟
من تا الآن با Telnet کار نکردم: (فقط ی نمونه TCP Client/Server برای ارسال صدا از کلاینت ب سرور دانلود کردم ک اونم وقت نکردم کدشو بررسی کنم)نقل قول:
نوشته شده توسط zero01
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
ایده های جالبی دارین آ مهندسنقل قول:
نوشته شده توسط ROSTAM2
کلاینت: دوتا فرم مجزا دارم سرور هم همین طور
ولی سرور من فقط یک دستور رو اجرا میکنه یعنی برای هر فرم باید یک پورت مجزا تعریف کنم:متفکر:
یعنی اگه خلاصه بگم سرور چطوری تشخیص میده که کدام دستور برای کدام قسمت کلاینت هست؟ ( از هم تفکیک و اجرا کنه)
بر طبق IP هر کلاینتنقل قول:
نوشته شده توسط zero01
کدوم قسمت کلاینت منظور چیه؟!
ضمیمه 155825
مثلا یک کلاینت فقط داریم با یک ای‌پی ثابت.مشکل من قسمت listener سرور هست وقتی که دستور کلاینت دریافت میکنه
که چجوری باید بفهمه ساب/فانکشن یک رو احرا کنه یا دو یا . . .تو مرحله تک‌بعدی گیر کردم
یعنی کدام دستور کلاینت برای کدام قسمت سرور هست
و بالعکس
این بسته به دستوراتیه که خودت برای برنامه های کلاینت و سرور می نویسینقل قول:
نوشته شده توسط zero01
شبیه دستورات CommandLine در PowerShell یا Command Prompt
برای هر دستور یک کد یا اسم یکتا در نظر بگیرید.
میتونید یک پروژه ایجاد کنید و این کدها و کلا داده های مشترک رو در اون قرار بدید و پروژه های کلاینت و سرور ازش استفاده کنند.
استاد ظاهرا باید یه آموزش ارتباط گیری کلاینت و سرور ببینم فعلا از SQL بصورت موقت به Access کوچ کردم خیلی دلچسب نیست
تا الان توانستم این قسمت رو اجرا کنم ( درپست بعدی کد رو میذارم)
ضمیمه 155827
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
کلاینت:
ضمیمه 155828
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 دوم داشته باشم لیستنر سرور یا کلاینت رو چجوری بنویسم
متغیر های باتن یک و دو رو اسم های جدا دادم اما باز این لیستنر بی وفا فقط کدهای باتن یک رو میخونه:لبخند: ( مشکل من همینه فقط)
سلام.
همونطور که Mahmoud.Afrad فرمودن روش استاندارد اینه که شما برای هر دستوری ک میخواید اجرا کنید یک شناسه یکتا مشخص کنید.
مثلا اگر دستور message برای کلاینت ارسال شد ، کلاینت تشخیص میده که باید تابع Message() رو اجرا کنه.
روش کار اتصال TCP/IP اینجور هست که شما یک اتصال ایجاد میکنید بین سرور و کلاینت و بعد دادده ها رو ردوبدل میکنید.
بهتره از داده های نشانه گذاری شده استفاده کنید مثل JSON یا XML
یا اینکه اگر دوست دارید میتونید اتصال رو برقرار کنید داده هارو بفرستید و بعد قطع اتصال کنید.
یک لایبرری خوب هست که میتونید ازش استفاده کنید. برای افرادی که از VB6 مهاجرت میکنن به دات نت که Winsock رو برای دات نت پیاده کرده.
https://www.codeproject.com/Articles/11422/Winsock-NET