[أبو عمر]

يعني اذا حابب برنامجك
وفق شرط معين
مثلا اختلاف الاصدارات
مضي وقت على الاصدار الخ....

كود :

[code]
   'لجعل الماوس تبان على البرنامج مشغول بعملية
        Me.Cursor = Cursors.WaitCursor
        Application.DoEvents()

        Try
            ' تعمل مستضيف 
            Dim web_client As WebClient = New WebClient

            'تحميل الملف.
            web_client.DownloadFile("http://xxx/xx.zip", _
                "c:/zzz.zip")

            MessageBox.Show("تم تحميل الملف")
        Catch ex As Exception
            MessageBox.Show(ex.Message, "فشل تحميل الملف", _
                MessageBoxButtons.OK, _
                    MessageBoxIcon.Exclamation)
        End Try

        Me.Cursor = Cursors.Default

[/code]

[Amir_Alzubidy]

رائع جدا يا حبذا لو كان على ال vb6
ونطور الكود اكثر بحيث انه النسخة ترفع الى حقل في قاعدة البيانات sql ويتم استخراجها
جزاك الله خير اخوي ابو عمر وبارك الله فيك

[أبو عمر]

(06-09-15, 02:39 PM)Amir_alzubidy كتب : رائع جدا يا حبذا لو كان على ال vb6
ونطور الكود اكثر بحيث انه النسخة ترفع الى حقل في قاعدة البيانات sql ويتم استخراجها
جزاك الله خير اخوي ابو عمر وبارك الله فيك

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