منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : موضوع مش لاقى ليه اجابة نهائى ارجو الحل؟
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
اولا

عند تشغيل البرنامج بينزل الملفات فى مكان فى النسخة تمام

وبعد كده البرنامج بيشتغل لوكل هوست وبورت




ثانيا


[صورة مرفقة: 14895852990451.png]







ثالثا
عند تشغيل البرنامج بينشاء بورت هنا
[صورة مرفقة: 148958533871171.png]


طيب حد يقولى الطريقة حتى ازاى
السلام عليكم

اخ مصطفى السؤال غير واضح

ابدا بالكود وارفقه لكي تتضح الصورة اكثر للجميع

يعطيك العافية
(15-03-17, 05:46 PM)abulayth كتب : [ -> ]السلام عليكم

اخ مصطفى السؤال غير واضح

ابدا بالكود وارفقه لكي تتضح الصورة اكثر للجميع

يعطيك العافية
تمام

المشروع اهو تمام
الملف مضغوط اول ما البرنامج يشتغل بيفك الضغط عن الملف وبينقل الفولدر الى برتشن الE تمام بس بعد كدة عايز اتصل بالملفات دى داخل البرنامج فقط وشكرااااااا

الكود الخاص بالفك والنقل المجلد
كود :
       Dim Dir As String = My.Computer.FileSystem.SpecialDirectories.Temp
       Dim Filename As String = Dir + "ak.zip"
       IO.File.WriteAllBytes(Filename, My.Resources.ak)
       Dim zipFile As String = "ak.zip"
       Dim targetDirectory As String = "E:\"

       Using zip As Ionic.Zip.ZipFile = Ionic.Zip.ZipFile.Read(zipFile)
           zip.Password = "1995"
           zip.ExtractAll(targetDirectory, Ionic.Zip.ExtractExistingFileAction.DoNotOverwrite)
       End Using

       Console.WriteLine("Zip file has been successfully extracted.")
       Console.Read()


ثانيا الاتصال بالملف من المجلد ازاى بقي ؟
كود :
       WebBrowser1.Navigate("رابط الملف هنا")


الروابط الى هيتم الاتصال بيها داخل البرنامج الى عليها سهم المجلد موجود فى برتشن ال E المجلد اسمو aK
هو الموضوع ده ممكن يكون tcp client او Http Server بس مش عارف بصراحة الموضوع مهم جداااااا