اليوم جايبلكم شرح اشون تسوون برنامج FTP بالفيجول بيسك
نضيف Microsoft Winsock
و نضيف الاكواد التالية :
زر الاتصال : Command 1
نضيف Microsoft Winsock
و نضيف الاكواد التالية :
زر الاتصال : Command 1
كود:
Private Sub Command1_Click()
host = Text1.Text 'الهوست اللي هو مربع النص الاول بمعنى العنوان او رقم الاي بي
Port = Text2.Text 'بورت الاف تي بي وهو مربع النص الثاني
Winsock1.Connect host, Port 'الاتصال بالهوست نيم والبورت
Label4.Caption = "متصل" 'الحالة تظهر في الليبل
Command1.Enabled = False 'ابطال زر الامر الاتصال عند الاتصال
Command3.Enabled = True 'تمكين زر قطع الاتصال
End Subزر قطع الاتصال : Command 3
كود:
Private Sub Command3_Click()
Winsock1.Close 'اغلاق الوينسوك
Command1.Enabled = True 'تمكين زر الاتصال
Command3.Enabled = False 'ابطال زر قطع الاتصال
Label4.Caption = "قطع الاتصال "
Text4.Text = "" 'مسح الامر في التكست الرابع
End Subزر ارسال الاوامر : Command 2
كود:
Private Sub Command2_Click()
Winsock1.SendData Text3.Text & vbCrLf 'ارسال الاوامر من التكست الثالث
Text3.Text = "" ' عند ارسال البيانات يتم مسح التكست الثالث
End Subاكواد الونسوك :
كود:
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State <> sckClosed Then Winsock1.Close
Winsock1.Accept requestID 'استقبال البيانات من الوينسوك
End Subكود:
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Winsock1.GetData Data, vbString, bytesTotal 'استدعاء البيانات
Text4.Text = Data 'عند استدعاء البيانات ستظهر في هذا التكست
End Subكود:
Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
MsgBox "خطا في الاتصال"
End Sub
Private Sub Command1_Click()
host = Text1.Text 'الهوست اللي هو مربع النص الاول بمعنى العنوان او رقم الاي بي
Port = Text2.Text 'بورت الاف تي بي وهو مربع النص الثاني
Winsock1.Connect host, Port 'الاتصال بالهوست نيم والبورت
Label4.Caption = "متصل" 'الحالة تظهر في الليبل
Command1.Enabled = False 'ابطال زر الامر الاتصال عند الاتصال
Command3.Enabled = True 'تمكين زر قطع الاتصال
End Subزر قطع الاتصال : Command 3
كود:
Private Sub Command3_Click()
Winsock1.Close 'اغلاق الوينسوك
Command1.Enabled = True 'تمكين زر الاتصال
Command3.Enabled = False 'ابطال زر قطع الاتصال
Label4.Caption = "قطع الاتصال "
Text4.Text = "" 'مسح الامر في التكست الرابع
End Subزر ارسال الاوامر : Command 2
كود:
Private Sub Command2_Click()
Winsock1.SendData Text3.Text & vbCrLf 'ارسال الاوامر من التكست الثالث
Text3.Text = "" ' عند ارسال البيانات يتم مسح التكست الثالث
End Subاكواد الونسوك :
كود:
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State <> sckClosed Then Winsock1.Close
Winsock1.Accept requestID 'استقبال البيانات من الوينسوك
End Subكود:
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Winsock1.GetData Data, vbString, bytesTotal 'استدعاء البيانات
Text4.Text = Data 'عند استدعاء البيانات ستظهر في هذا التكست
End Subكود:
Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
MsgBox "خطا في الاتصال"
End Sub