[ابو خليل99]

(23-06-19, 07:17 PM)elgokr كتب :

يجب عليك متابعة الطرق هذه اخى الكريم

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

لكن بطرق خارج عن المصرح به فهو اختراق

ولا يسمح باتمام الامر بهذه الطريقة 

وتذكر الرابط الاخير الذى كتبته فى ردي السابق هو لـ .net

وهو بلغة الـ C# يمكنك العمل به او طرقح ما تريده وسيتم تحويل الكود لك بامر الله

تحياتى لك

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

بارك الله فيك اخي وجزاك كل الخير 

راح احاول واذا لم انجح راح احاول شراء استضافة ومحاولة انشاء مزامنة من خلال السيرفر الخاص بي 

وفي حالة اي استفسار سوف اقوم بطرحه باذن الله 

شكرا لك اخي لكريم

---

(23-06-19, 07:24 PM)ابو خليل99 كتب :

(23-06-19, 07:17 PM)elgokr كتب :

يجب عليك متابعة الطرق هذه اخى الكريم

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

لكن بطرق خارج عن المصرح به فهو اختراق

ولا يسمح باتمام الامر بهذه الطريقة 

وتذكر الرابط الاخير الذى كتبته فى ردي السابق هو لـ .net

وهو بلغة الـ C# يمكنك العمل به او طرقح ما تريده وسيتم تحويل الكود لك بامر الله

تحياتى لك

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

بارك الله فيك اخي وجزاك كل الخير 

راح احاول واذا لم انجح راح احاول شراء استضافة ومحاولة انشاء مزامنة من خلال السيرفر الخاص بي 


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

كود :

Imports WinSCP

Friend Class Example

   Public Shared Function Main() As Integer

       Try
           ' Setup session options
           Dim sessionOptions As New SessionOptions
           With sessionOptions
               .Protocol = Protocol.Sftp
               .HostName = "example.com"
               .UserName = "user"
               .Password = "mypassword"
               .SshHostKeyFingerprint = "ssh-rsa 2048 xxxxxxxxxxx...="
           End With

           Using session As New Session
               ' Connect
               session.Open(sessionOptions)

               ' Upload files
               Dim transferOptions As New TransferOptions
               transferOptions.TransferMode = TransferMode.Binary

               Dim transferResult As TransferOperationResult
               transferResult =
                   session.PutFiles("d:\toupload\*", "/home/user/", False, transferOptions)

               ' Throw on any error
               transferResult.Check()

               ' Print results
               For Each transfer In transferResult.Transfers
                   Console.WriteLine("Upload of {0} succeeded", transfer.FileName)
               Next
           End Using

           Return 0
       Catch e As Exception
           Console.WriteLine("Error: {0}", e)
           Return 1
       End Try

   End Function

End Class

قمت باضافة المكتبة من خلال هذا الرابط 

https://winscp.net/eng/docs/library#vbnet

ماذا يعني ايضا (Friend Class Example)

كلمة Friend  ماذا تعني ؟؟؟؟؟؟ 

هل يمكنك مساعدتي في تعديل هذا الكود اخي ؟؟؟