تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] مساعدة في كود تحديث برنامج
#1
السلام عليكم ورحمة الله وبركاته

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

حيث ان كلا الخياران 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
الرد }}}
تم الشكر بواسطة:
#2
(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
وضح مشكلتك اكثر وانا ممكن اقدر اسعدك لانى كنت اصنع برنامج كونكت زى الى انتا عايز تعملوة
الرد }}}
تم الشكر بواسطة:
#3
إقتباس :وضح مشكلتك اكثر وانا ممكن اقدر اسعدك لانى كنت اصنع برنامج كونكت زى الى انتا عايز تعملوة
عايز اعمل كود تحديث للبرنامج بحيث اني لو عدلت حاجة في البرنامج ورفعتها كل اللي عنده البرنامج ينزله التحديث 
الكود اللي فوق دا بيجيب التحديث ويقولك حمل الاصدار الجديد 
بس فيه مشاكل ودا عيب مني انا ومش عارف اعالجة
اولا لو ضغط yes علشان يحمل البرنامج او no علشان يرفض التحميل
في الحالتين بيجيب تحميل وانا عايزه في حالة نعم يحمل التحديث 
في حالة لا يقفل البرنامج
ثانيا عايز افعل حكاية تطابق الاصدار للبرنامج
يعني لو عملت حديث والنسخه اللي عندي الاخيره ما يقولي حدث البرنامج

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



http://vb4arb.com/vb/showthread.php?tid=4977
الرد }}}
تم الشكر بواسطة: ScreamVoice
#5
(02-10-18, 02:00 PM)جاسم عبد كتب :
ستجد في هذا الموضوع الكود المناسب لعملك



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

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


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


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


انا عايز اعمل تحديث للبرنامج نفسه مش للاشخاص
شكرا علي مجهودك اخي
الرد }}}
تم الشكر بواسطة:
#9
(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
الرد }}}
تم الشكر بواسطة:
#10
(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

تمام يا صحبي تسلم
الرد }}}
تم الشكر بواسطة:



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


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