درس جميل في winsock للمبتدأين

السلام عليكم ورحمة الله وبركاته

حبيت اضع خطواتي البسيطه في برنامج العميل والخادم

العميل يوجد به زر اتصال وزر ارسال وثلاث تيكست بوكس وقم بتسميتهما على النحو التالي

الاول txtadres الثاني txtport الثالث txtmsg

والخادم يوجد به فقط اثنين تيكست بوكس واداة التايمر لاتغير مسميات التيكست بوكس في الخادم دعهما كما هما

لاتنسى ان تسمي winsock في الخادم والعميل باسم w

طبعا عندما يتم الاتصال بالخادم سوف يرسل لك الاي بي وسوف يستقبل العميل الاي بي في msgbox

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

بتشغيل الماسينجر

وهذا مسار الماسينجر

C:\Program Files\MSN Messenger\msnmsgr.exe

(ليس من الرائع ان تقلد الاخرين في دروسهم ولكن من الرائع ان تبتكر اساليب جديده)

هذه صورة للعميل قم

هذه صوره للخادم

الان دعونا نطلع على شفرات العميل

Private Sub Command1_Click()
w.Close
w.RemoteHost = txtadres
w.RemotePort = txtport
w.Connect
End Sub

Private Sub Command2_Click()
Dim x As String
x = txtmsg.Text
w.SendData x
End Sub

Private Sub w_DataArrival(ByVal bytesTotal As Long)
Dim booo7 As String
w.GetData booo7
MsgBox booo7, , "ip"
End Sub

شفرات الخادم

Private Sub Form_Load()
W.LocalPort = 1000
W.Listen
Text2.Text = W.LocalIP
End Sub

Private Sub Text1_Change()
n = "C:\Program Files\MSN Messenger\MSNMSGR.exe"
If Text1.Text = n Then
Timer1.Enabled = True
End If
End Sub

Private Sub Timer1_Timer()
Shell "C:\Program Files\MSN Messenger\MSNMSGR.exe"
End Sub
Private Sub W_ConnectionRequest(ByVal requestID As Long)
W.Close
W.Accept requestID
W.SendData Text2.Text
End Sub

Private Sub W_DataArrival(ByVal bytesTotal As Long)
Dim x As String
W.GetData x
Text1.Text = x
End Sub

هذا درس بسيط للمبتدأين اردت فقط عرض بعض اساليب التعامل مع winsock

(ليس من الرائع ان تقلد الاخرين في دروسهم ولكن من الرائع ان تبتكر اساليب جديده)

اعتقد هذا الدرس مهم في ارسال واستقبال االبيانات في اداة winsock

يعني العميل يرسل ويستقبل وكذلك الخادم يرسل ويستقبل

اتمنى اني وفقت في تقديم شي مفيد لكم

اخوكم طلال العنزي