YAZSYS.COM, Pos, Pop, Point Of Sale إعلان لاصحاب المتاجر ... تحميل افضل واسرع واسهل نظام مبيعات ونقاط البيع انقر هنا
مشاريع برمجة متنوعة مفتوحة المصدر | مواضيع ودروس تعليمية
 
Search in Google
كود الإتصال في بروتوكول نقل البيانات وإرسال امر له
'في قسم التعاريف
Imports System.Net.Sockets
Imports System.Text
Imports System.Net
'الكود 
        Dim server As String = "ftp.microsoft.com"
        Dim port As Integer = 21
        Dim userName As String = "James"
        Dim controlSocket As Socket
        Try
            controlSocket = New _
            Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
            controlSocket.Connect(New IPEndPoint(Dns.Resolve(server).AddressList(0), port))
            If controlSocket.Connected Then
                Console.WriteLine("Connected. Waiting for reply...")
                Dim bytes(511) As Byte ' an array of 512 bytes
                Dim receivedByteCount As Integer
                ' receive the server's response on successful connect
                receivedByteCount = controlSocket.Receive(bytes)
                ' send the USER command
                Dim command As String
                command = "USER " & userName & ControlChars.CrLf
                controlSocket.Send(Encoding.ASCII.GetBytes(command), command.Length, 0)
            End If
        Catch
        End Try
 
 

 
 
 
برنامج مبيعات ونقاط البيع وجرد المستودعات ومحاسبة خارطة الموقع