تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تحديث الإصدار و حذف النسخة القديمة
#1
السلام عليكم 
أريد من البرنامج أن يحدث نفسه تلقائيا مع حذف النسخة القديمة 
مثال : التحديث في برنامج الإمبرطورية ! 
ساعدوني أرجوكم ..
الرد }}
تم الشكر بواسطة:
#2
تفضل اخى يمكنك متابعة هذا الموضوع


تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

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


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}
تم الشكر بواسطة:
#3
حدث خطأ أخي : 
هذا البرنامج : 
وهذا برنامج التحديث:


الملفات المرفقة صورة/صور
       
الرد }}
تم الشكر بواسطة:
#4
السبب هو انك تستخدم الرابط عام
وليس رابط مباشر للتحميل...

يجب ان يكون الرابط بهذا الشكل
PHP كود :
http://dl.dropbox.com/s/vzwmqh4l0md6m1z/v.txt?dl=0 

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

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

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


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}
تم الشكر بواسطة:
#5
والله أنك عبقري !!!!!!!!!!
لكن ظهر خطأ أخر هههه

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

أخي ..؟ ما رأيك في التصميم ؟


الملفات المرفقة صورة/صور
       
الرد }}
تم الشكر بواسطة: elgokr
#6
رائع جداً

باشر ولا تتوقف فى تطويره

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

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


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}
تم الشكر بواسطة:
#7
شكرا والله ساعدتني كثير و أتمنى إنك تساعدني أكثر Smile
الرد }}
تم الشكر بواسطة: elgokr
#8
ابشر

فى اى وقت اذا لديك اى سؤال او تواجه شئ
قم باضافتها هنا وسيقوم الكثير وليس انا فقط بالمساعدة

تحياتى لك
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

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


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


الملفات المرفقة
.rar   updater.rar (الحجم : 68.02 ك ب / التحميلات : 22)
.rar   WindowsApplication2.rar (الحجم : 129.06 ك ب / التحميلات : 23)
الرد }}
تم الشكر بواسطة:
#10
الاخطاء لديك فى المشروع هى التالى...

السطر الخاص بالكود التالى
كود :
Dim Process_() As Process = Process.GetProcessesByName("File") ' Name file your program

يجب ان يكون كلمة File هو اسم البرنامج المستخرج
يعنى انت ارفقت مشروع يتم استخرام البرنامج باسم
WindowsApplication2.exe

فكل ما عليك استبدال كلمة File الى WindowsApplication2

السطر الخاص بالكود التالى
كود :
WEB_.DownloadFileAsync(New Uri("https://dl.dropbox.com/s/57o6v3p8d1eyq9i/WindowsApplication2.exe?dl=0"), Application.StartupPath & "https://dl.dropbox.com/s/57o6v3p8d1eyq9i/WindowsApplication2.exe?dl=0", True) ' You can use link Example: http://www.mysite.com/File.exe  (Link Direct...)

الربط الاول فى السطر جميل لا يوجد مشكلة فيه
لكن لماذا وضعت ربط فى النهاية سطر الكود 
يجب الجزء التانى هو اسم البرنامج بالمجلد الذى يتم استبداله برابط التحميل اللى باول الكود

قم بتغيير الكود ليصبح
كود :
WEB_.DownloadFileAsync(New Uri("https://dl.dropbox.com/s/57o6v3p8d1eyq9i/WindowsApplication2.exe?dl=0"), Application.StartupPath & "\WindowsApplication2.exe", True) ' You can use link Example: http://www.mysite.com/File.exe  (Link Direct...)


الكود كاملاً لمشروع التحديث
كود :
Imports System.Net

Public Class Form1

   Dim WEB_ As New WebClient
   Dim Process_() As Process = Process.GetProcessesByName("WindowsApplication2") ' Name file your program
   Dim VProject As Integer = WEB_.DownloadString("https://dl.dropbox.com/s/vzwmqh4l0md6m1z/v.txt?dl=0") ' You can use link Example: http://www.mysite.com/file.txt  (Link Direct...)

   Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
       Button1.Visible = False

       If VProject > My.Settings.VProject Then
           TextBox1.Text = "Download the new version"
           Button1.Visible = True
       End If

   End Sub

   Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
       If VProject > My.Settings.VProject Then
           If Process_.Count > 0 Then
               For Each MyProject_ In Process_
                   MyProject_.Kill()              ' Close Your Project.
               Next
               GoTo GoDownlod_
           Else
GoDownlod_:
               WEB_.DownloadFileAsync(New Uri("https://dl.dropbox.com/s/57o6v3p8d1eyq9i/WindowsApplication2.exe?dl=0"), Application.StartupPath & "\WindowsApplication2.exe", True) ' You can use link Example: http://www.mysite.com/File.exe  (Link Direct...)
               My.Settings.VProject = VProject
               My.Settings.Save()
               MsgBox("تم تحديث البرنامج.")
               Process.Start(Application.StartupPath & "\WindowsApplication2.exe") ' Open Your Project After Finish Update.
               Application.Exit()
           End If
       End If
   End Sub

End Class

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] إبقاء التحديد على الصف الذي تم تحديث بياناته بعد التحديث مسلم_١ 3 433 19-01-22, 07:58 PM
آخر رد: مسلم_١
Star [كود] سؤال بخصوص تحديث كميات المواد المباعه في المستودع momani33 1 622 24-10-21, 02:42 PM
آخر رد: ابو انس
  [VB.NET] البديل للوظيفة القديمة TextWidth فى VB6 mmaalmesry 2 382 11-08-21, 07:51 AM
آخر رد: mmaalmesry
  [VB.NET] اريد تحديث المتصفح الخاص بفيجوال بيسك adam mostafa 8 3,716 27-06-21, 03:00 PM
آخر رد: adam mostafa
  مشكلة تحديث برنامجي عن تحزيمه ببرنامج Smart Install Maker alfaiz678 2 1,001 18-04-21, 12:42 PM
آخر رد: alfaiz678
  [VB.NET] اريد افكار لكيفية عرض افلام او مسلسلات دون تحديث للبرنامج ميدو الفنان 2 1,184 23-11-20, 04:01 PM
آخر رد: ميدو الفنان
Question [VB.NET] كيف يتم تحديث البيانات في DataGridView بعد حفظ السجل الحالي ؟؟ Microformt 6 1,431 09-11-20, 07:54 PM
آخر رد: moahmed.abdelmohsen
  [VB.NET] عمل اتاش و تحديث قاعدة البيانات بعد التعديل على الحقول دون ضياع السجلات برمجيا larbihamri 4 1,213 06-10-20, 03:33 PM
آخر رد: larbihamri
  أفضل مثال في عمل النسخة الاحتياطية باقي له خطوة بس ويكتمل المهنا 13 2,587 01-08-20, 12:27 AM
آخر رد: atefkhalf2004
  مشكلة ورسالة خطا لم اجد لها حل منذ 5 ايام تحديث essawq 45 10,264 02-07-20, 01:06 AM
آخر رد: kiki

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم