برنامجين للتراسل كالماسنجر في شبكة باستخدام Udp Client

يا اخي الكريم ليش ما تستخدم winsock2007 بدلاً من socket

والله winscok2007 سهله سهله سهله جدأً

ايضاً تدعم ارسال الملفات واستقبال الملفات

حملها من المرفقات

Winsock2007.rar

اذا اردت تحميل الملف الى المشروع حقك

اذهب الى التالي

في الفيجوال بيسك نت 2005

1.اضعط على tools

2.اختار choose toolbox items

3.اضغط على browser

ثم اذهب اختار الملف حق winsock 2007 واضغط اوكية

دروووووووس

الان انت تسوي الاتصل بين السرفر والخادم بس انا سوف اساعدك بل التفريق بين الرسائل string او file

Private Sub wskServer_DataArrival(ByVal sender As Object, ByVal e As Winsock2007.WinsockDataArrivalEventArgs) Handles wskServer.DataArrival	   
Dim obj As Object = wskServer.Get
If obj.GetType() Is GetType(String) Then
If obj.ToString.StartsWith("msg") Then
LineOfText = obj
aryTextFile = LineOfText.Split(",,,")
For i = 0 To UBound(aryTextFile)
TextBox1.Text = (aryTextFile(i))
Next i
msgbox(TextBox1.Text)
end if 

If obj.GetType() Is GetType(Winsock2007.WinsockFileData) Then
			Dim svf As Winsock2007.WinsockFileData = obj
			svf.SaveFile("D:/" & svf.FileName)
		End If

End sub

اذا تريد ترسل ملف

  wskServer.SendFile("d:/ammar.txt")

شوف هذا المشرووووووووووووووووووع يمكن تستفيد

المشروع ارجوك بل الدعاء

هذا الموقع الاصلي

زيارة موقعي

في امان الله

في الحقيقة المشروع اللي اعطيتني غاية في الروعه والف شكر لك

بس لحد الان ما عرفت كيف بسوي امر لاعادة التشغيل او لاغلاق البرنامج الاخر لحد الان

فيا ريت تساعدوني وياريت تكون المساعدات في الاصدار2003 من فيجوال بيسك دوت نت

لاني ما اعرف التعامل مع 2005بشكل جيد

ولكم جزيل الشكر

انت لازم يا الغالي تبرمج السرفر حقك تسوي هذا الشي ... يعني تقولها اذا وصلتكي معلومة تحتوي على close

طفي البرنامج

يعني

ضع هذا الكود في DataArrival

Dim obj As Object = wskServer.Get
If obj.GetType() Is GetType(String) Then
If obj.ToString.StartsWith("close") Then
end  '  لاغلاق البرنامج السرفر
end if

الان اذهب الى الخادم وارسل رسالة واكتب close وعندما السرفر تصله هذه الرسالة سوف يطفي البرنامج

اي خدمة انا موجوووووووووووووووووود