منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
موضوع مش لاقى ليه اجابة نهائى ارجو الحل؟ - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : موضوع مش لاقى ليه اجابة نهائى ارجو الحل؟ (/showthread.php?tid=19633)

موضوع مش لاقى ليه اجابة نهائى ارجو الحل؟ - MOSTAFA.KAMEL - 13-03-17

اولا

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

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




ثانيا


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







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




RE: موضوع مش لاقى ليه اجابة نهائى ارجو الحل؟ - MOSTAFA.KAMEL - 15-03-17

طيب حد يقولى الطريقة حتى ازاى

RE: موضوع مش لاقى ليه اجابة نهائى ارجو الحل؟ - abulayth - 15-03-17

السلام عليكم

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

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

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

RE: موضوع مش لاقى ليه اجابة نهائى ارجو الحل؟ - MOSTAFA.KAMEL - 15-03-17

(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


RE: موضوع مش لاقى ليه اجابة نهائى ارجو الحل؟ - MOSTAFA.KAMEL - 15-03-17

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