دخول

**crazykinko** · 13-07-22, 01:22 PM

السلام عليكم

اريد عمل برنامج يكون التحديث اوتوماتيكي

وتثبيته بعد التحديث تلقائي

لو تكرمت

فضلا وليس امرا

**asmarsou** · 13-07-22, 03:06 PM

(13-07-22, 01:22 PM)crazykinko كتب :
السلام عليكم

اريد عمل برنامج يكون التحديث اوتوماتيكي

وتثبيته بعد التحديث تلقائي

لو تكرمت

فضلا وليس امرا

و عليكم السلام ورحمة الله و بركاته
قد يوحي لك الموضوغ في الرابظ التالي بفكرة ما لم يكن بعينه ما تنشده
https://www.codeproject.com/Articles/115...-in-VB-NET

**crazykinko**

(13-07-22, 03:06 PM)asmarsou كتب : و عليكم السلام ورحمة الله و بركاته
قد يوحي لك الموضوغ في الرابظ التالي بفكرة ما لم يكن بعينه ما تنشده
https://www.codeproject.com/Articles/115...-in-VB-NET

بارك الله فيك لكنلم يشتغل لي اريد تديث تلقائي عبر dropbox وشكرا لك

كود :

Public Sub CheckForUpdates()

        Dim file As String = Application.StartupPath & "/version.txt"

        Dim MyVer As String = My.Application.Info.Version.ToString

        If My.Computer.FileSystem.FileExists(file) Then

            My.Computer.FileSystem.DeleteFile(file)

        End If

        'CHANGE SITE WITH YOUR OWN! Example Dropbox 'WARNING IF YOU SHARE YOUR DROPBOX LINK YOU GET THIS :

        'https://www.dropbox.com/s/xxxxxxxxxxxx/version.txt?dl=0 'CHANGE ?dl=0 to ?dl=1!!!!!! OTHERWISE IT WONT WORK!

        Try

            My.Computer.Network.DownloadFile("https://www.dropbox.com/s/xxxxxxxxxxxx/version.txt?dl=1", file)

        Catch ex As Exception

            MsgBox(ex.Message + " Can''t Check for updates")

        End Try

        Dim LastVer As String = My.Computer.FileSystem.ReadAllText(file)

        If MyVer < LastVer Then

            MsgBox("Update Available")

            'CHANGE SITE WITH YOUR OWN! Example Dropbox again! 'WARNING IF YOU SHARE YOUR DROPBOX LINK YOU GET THIS :

            'https://www.dropbox.com/s/xxxxxxxxxxxx/program.exe?dl=0 'CHANGE ?dl=0 to ?dl=1!!!!!! OTHERWISE IT WONT WORK!

            Try

                My.Computer.Network.DownloadFile("https://www.dropbox.com/s/xxxxxxxxxxxx/program.exe?dl=1", Application.StartupPath + "/program.exe")

            Catch ex As Exception

                MsgBox(ex.Message + " Error Downloading update.")

            End Try

            Process.Start(Application.StartupPath + "/program.exe") 'It will run the update after downloading the file!

        Else

            MsgBox("Program is up to date")

        End If

    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

        'Simply add here CheckForUpdates()

        CheckForUpdates()

        'Now it wil check for updates when you click on the button.

    End Sub

    Private Sub Form1_loading(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

        CheckForUpdates()

    End Sub

اريد لو تكرمتم تعديل على هذا الكود
عند التحديث يقول لي البرنامج موجود في المجلد ولا استطيع التحديث

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

***سعود*** · 13-07-22, 10:43 PM

لا بد من استضافة ملفات رابطها يكون ثابت و ليس متغير او ياخذ برامترات تتغير من وقت لاخر مثل دروب و ون و غيرها ... هذا رايي.
و لي تجربة مع استضافة ftp لكنها مجانية و لم تستمر الا انها فعالة.
Forum_updater.zip
اكيد لن يعمل المثال معك الا بتعديلات ضرورية مثل اسم مستخدم الـ ftp و كذلك كلمة مرور الــ ftp واسماء الملفات البعيدة والمحلية.
تحتاج تفحص منك للمشروع قبل تشغيله.

دخول
إسم المستخدم
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة

المواضيع المحتمل أن تكون متشابهة .
الموضوع :		الكاتب	الردود :	المشاهدات :	آخر رد
	استخدام فونت جديد في البرنامج	Emam emam	5	88	14-04-24, 01:29 PM آخر رد: عبد العزيز البسكري
	مساعدة في حل سؤال بخصةص عرض الوقت	عبدالكريم برشدان	2	98	12-04-24, 03:05 PM آخر رد: عبدالكريم برشدان
	عدم القدرة على إغلاق البرنامج وظهور رسالة the operation could not be completed	صالح عبدالله	2	62	12-04-24, 06:03 AM آخر رد: صالح عبدالله
	[VB.NET] حفظ الفورم (Form) (البرنامج) بعد التغيير	visualist2015	8	6,460	12-04-24, 04:07 AM آخر رد: أبو جودة
	تغيير المسار الي مسار البرنامج في تقرير ميكروسوفت	atefkhalf2004	2	106	02-04-24, 05:05 PM آخر رد: atefkhalf2004
	[VB.NET] مساعدة في تقرير	mrfenix93	1	78	24-03-24, 10:29 PM آخر رد: mrfenix93
	مشكلة عند نقل البرنامج من فيجوال 2013 الى فيجوال 2017	strongriseman	5	155	12-03-24, 10:37 AM آخر رد: strongriseman
	مساعدة	jalaltech	1	107	07-03-24, 07:38 PM آخر رد: قناص المدينة
	[VB.NET] مساعدة فى كود فاتورة اللكترونية	asdfar1977	2	218	02-03-24, 02:00 AM آخر رد: asdfar1977
	مساعدة فى كود فاتورة الكترونية	asdfar1977	0	96	29-02-24, 07:14 PM آخر رد: asdfar1977