سؤالي عن برنامج messanger حيث يعمل البرنامج بشكل جيد الا انه يقوم بفصل عشوائي للمستخدمين بحيث لا يعرف المستخدم انه تم فصله عن server علما ان عدد الconnections لا يزيد عن 20 . اللغة المستخدمة vb.net
server application (سؤال عن ماسينجر عدد الــ Connection لا يزيد عن العشرين و يفصل الــ client بشكل عشوائي)
السلام عليكم ...
ممكن وضع نسخة من الكود أو إرفاق المشروع , و ما هي المشكلة التي تريد حلها ... يرجى التوضيح حتى تجد المساعدة من الأعضاء .اقتباسحيث يعمل البرنامج بشكل جيد
لا إله إلا الله ... محمد رسول الله
لو كانت مشاركتي مفيدة و تريد تشجيعي على المزيد من العطاء , فضلا قم بتقييم المشاركة
المعرًف القديم : houssam11350_11350
من مواضيعي : ArabGenCode : مولد كود و إجراءات مخزنة و واجهات لجداول سيكوال سيرفر
سؤالي هو ما هي الاسباب المحتملة ليقوم ال server بعمل disconnect لل clients هل هو خلل في الكود او ان امكانيات الجهاز CPU RAM....
السلام عليكم ...
يرجى التوضيح ... ما هو اسم الماسينجر الذي تتحدث عنه؟؟ , هل السورس كود موجود ... ؟؟؟ ممكن ارساله ..
ربما هو مبرمج كي يعمل بهذه الطريقة ...
لا إله إلا الله ... محمد رسول الله
لو كانت مشاركتي مفيدة و تريد تشجيعي على المزيد من العطاء , فضلا قم بتقييم المشاركة
المعرًف القديم : houssam11350_11350
من مواضيعي : ArabGenCode : مولد كود و إجراءات مخزنة و واجهات لجداول سيكوال سيرفر
وعليكم السلام انابرمجت المسنجر server &client باستخدام sockets واعطي server listen(1000)
يقوم المستخدم بتسجيل دخول ويظهر للمستخدمين الاخرين ويظهر جميع المستخدمين الموجودين عنده حيث اقوم في توزيع المستخدمين على مجموعات كل حسب صلاحياته وامكان المستخدم عمل شات مع مستخدم او مع مجموعة ينتمي اليها انا مش شايفة المشكلة في الكود لانه لما يكون المستخدمين 5-6 ما يظهر مشكلة اما لما يزيد عدد المستخدمين تظهر المشكلة
السلام عليكم ...
ربما هناك مشكلة في الكود ...
لا إله إلا الله ... محمد رسول الله
لو كانت مشاركتي مفيدة و تريد تشجيعي على المزيد من العطاء , فضلا قم بتقييم المشاركة
المعرًف القديم : houssam11350_11350
من مواضيعي : ArabGenCode : مولد كود و إجراءات مخزنة و واجهات لجداول سيكوال سيرفر
السلام عليكم سارفق الكود الذي يقوم بعمل الاتصال والارسال والاستقبال
Private mclient_socket As Socket
Dim mclientSocket As client_socket
Public Event ConnectionAccepted()
Function Connect(ByVal HostName As String, ByVal Port As Integer) As Boolean
If mclient_socket Is Nothing Then
mclient_socket = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
End If
mclient_socket.Connect(HostName, Port)
mclientSocket = New client_socket(mclient_socket, Me)
RaiseEvent ConnectionAccepted()
''''''''''mTimer.Start()
Try
IPAddress.Parse(HostName)
Catch ex As Exception
End Try
End Function
Function Send(ByVal Message As String) As Boolean
If Not mclient_socket Is Nothing Then
If mclient_socket.Connected = False Then
ClosedConnectionException = New ConnectionError("The Connection Has Been Closed")
Throw ClosedConnectionException
End If
Else
ClosedConnectionException = New ConnectionError("The Connection Has Been Closed")
Throw ClosedConnectionException
End If
' Dim strMessage As String = "Message|" + Message
Try
mclient_socket.Send(System.Text.Encoding.UTF8.GetBytes(Message))
RaiseEvent SendingFinished()
Catch ex As Exception
End Try
End Function
Friend Function BeginRecieveing() As Boolean
While True
Try
If mclient_socket Is Nothing Then
Exit While
Else
If mclient_socket.Connected Then
Array.Clear(buffer, 0, buffer.Length)
mclient_socket.Receive(buffer)
Dim str As String = System.Text.Encoding.UTF8.GetString(buffer)
Dim is_empty As Boolean = True
For Each element As Byte In buffer
If element = 0 Then
Else
is_empty = False
Exit For
End If
Next
If is_empty Then
RaiseEvent Dissconnected(Me)
Else
RaiseEvent FinishReciving(System.Text.Encoding.UTF8.GetString(buffer), Me)
End If
'If str.Length <> 0 Then
'Else
' End If
End If
End If
Catch ex As Exception
Exit While
End Try
''''' ProcessData()
End While
End Function