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

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

محتاج مساعده في كود التحديث 

حيث ان كلا الخياران yes او no 

بيجيب صفحة الداون لود 

كمان انا عايز لما اضغط no البرنامج يتقفل

دا الكود اللي استخدمته
كود :
   Private Sub ScreamUpdate_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Timer1.Start()
   End Sub
   Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
       Label1.Hide()
       WebBrowser1.Hide()
       Dim web As New WebClient
       Label1.Text = web.DownloadString("https://dl.dropbox.com/s/4n6dd8c6et7lufj/Update.txt?dl=0")
       If Label1.Text = "No" Then
           Timer1.Stop()
           ScreamAct.Show()
           Me.Hide()
       Else
           Timer1.Stop()
           MsgBox("يوجد تحديث جديد للبرنامج", MsgBoxStyle.YesNo)
           If vbYes Then
               WebBrowser1.Navigate("https://dl.dropbox.com/s/v313ag8wxuipdes/ScreamSport.exe?dl=0")
           End If
           If vbNo Then

               ScreamAct.Show()
               Me.Hide()
           End If
       End If
   End Sub
End Class
(02-10-18, 05:33 AM)ScreamVoice كتب : [ -> ]السلام عليكم ورحمة الله وبركاته

محتاج مساعده في كود التحديث 

حيث ان كلا الخياران yes او no 

بيجيب صفحة الداون لود 

كمان انا عايز لما اضغط no البرنامج يتقفل

دا الكود اللي استخدمته
كود :
   Private Sub ScreamUpdate_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Timer1.Start()
   End Sub
   Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
       Label1.Hide()
       WebBrowser1.Hide()
       Dim web As New WebClient
       Label1.Text = web.DownloadString("https://dl.dropbox.com/s/4n6dd8c6et7lufj/Update.txt?dl=0")
       If Label1.Text = "No" Then
           Timer1.Stop()
           ScreamAct.Show()
           Me.Hide()
       Else
           Timer1.Stop()
           MsgBox("يوجد تحديث جديد للبرنامج", MsgBoxStyle.YesNo)
           If vbYes Then
               WebBrowser1.Navigate("https://dl.dropbox.com/s/v313ag8wxuipdes/ScreamSport.exe?dl=0")
           End If
           If vbNo Then

               ScreamAct.Show()
               Me.Hide()
           End If
       End If
   End Sub
End Class
وضح مشكلتك اكثر وانا ممكن اقدر اسعدك لانى كنت اصنع برنامج كونكت زى الى انتا عايز تعملوة
إقتباس :وضح مشكلتك اكثر وانا ممكن اقدر اسعدك لانى كنت اصنع برنامج كونكت زى الى انتا عايز تعملوة
عايز اعمل كود تحديث للبرنامج بحيث اني لو عدلت حاجة في البرنامج ورفعتها كل اللي عنده البرنامج ينزله التحديث 
الكود اللي فوق دا بيجيب التحديث ويقولك حمل الاصدار الجديد 
بس فيه مشاكل ودا عيب مني انا ومش عارف اعالجة
اولا لو ضغط yes علشان يحمل البرنامج او no علشان يرفض التحميل
في الحالتين بيجيب تحميل وانا عايزه في حالة نعم يحمل التحديث 
في حالة لا يقفل البرنامج
ثانيا عايز افعل حكاية تطابق الاصدار للبرنامج
يعني لو عملت حديث والنسخه اللي عندي الاخيره ما يقولي حدث البرنامج

وفي الاخير انا بتعلم مش اكتر ولقيت حاجة اتعلم فيها 
مش حكاية برنامج معين ولا كونكت ولا غيره
ستجد في هذا الموضوع الكود المناسب لعملك



http://vb4arb.com/vb/showthread.php?tid=4977
(02-10-18, 02:00 PM)جاسم عبد كتب : [ -> ]
ستجد في هذا الموضوع الكود المناسب لعملك



http://vb4arb.com/vb/showthread.php?tid=4977

شكرا يا اخي هجربه واقولك
شغلته بس عندي مشكلة دلوقتي
هيا اني مش عارف اعدل عليه علشان يحمل النسخه بتاعتي انا
                                               هنا طلبك اخى وما تريده 
              http://vb4arb.com/vb/showthread.php?tid=24990


                                                 واهم شيئ تكون عامل عضوية فى هذا الموقع
                                                                     https://pastebin.com/
أو قم بعمل عضوية فى موقع اخر يقبل تعديل الملف النصى
(02-10-18, 10:29 PM)ابو روضة كتب : [ -> ]                                               هنا طلبك اخى وما تريده 
              http://vb4arb.com/vb/showthread.php?tid=24990


                                                 واهم شيئ تكون عامل عضوية فى هذا الموقع
                                                                     https://pastebin.com/
أو قم بعمل عضوية فى موقع اخر يقبل تعديل الملف النصى


انا عايز اعمل تحديث للبرنامج نفسه مش للاشخاص
شكرا علي مجهودك اخي
(03-10-18, 02:08 AM)ScreamVoice كتب : [ -> ]
(02-10-18, 10:29 PM)ابو روضة كتب : [ -> ]                                               هنا طلبك اخى وما تريده 
              http://vb4arb.com/vb/showthread.php?tid=24990


                                                 واهم شيئ تكون عامل عضوية فى هذا الموقع
                                                                     https://pastebin.com/
أو قم بعمل عضوية فى موقع اخر يقبل تعديل الملف النصى


انا عايز اعمل تحديث للبرنامج نفسه مش للاشخاص
شكرا علي مجهودك اخي

يبقى شاهد هذا من المبدع الجوكر باشا
http://vb4arb.com/vb/showthread.php?tid=25411
(03-10-18, 02:29 AM)ابو روضة كتب : [ -> ]
(03-10-18, 02:08 AM)ScreamVoice كتب : [ -> ]
(02-10-18, 10:29 PM)ابو روضة كتب : [ -> ]                                               هنا طلبك اخى وما تريده 
              http://vb4arb.com/vb/showthread.php?tid=24990


                                                 واهم شيئ تكون عامل عضوية فى هذا الموقع
                                                                     https://pastebin.com/
أو قم بعمل عضوية فى موقع اخر يقبل تعديل الملف النصى


انا عايز اعمل تحديث للبرنامج نفسه مش للاشخاص
شكرا علي مجهودك اخي

يبقى شاهد هذا من المبدع الجوكر باشا
http://vb4arb.com/vb/showthread.php?tid=25411

تمام يا صحبي تسلم