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

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

لانه صعب كل ما اعدل في البرنامج اروح لكل جهز وانزله من جديد

البرنامج مصمم على فجول بيسك 2015
الرد
تم الشكر بواسطة:
#2
تفظل اخي هاي الطريقة انا معتمدها

الاحتياجات 
1- WebBrowser1
2- botton1
3- Label1
4- Label3
5- timer
ب اضافة الى حساب في كوكل دروب بوكس
وتعمل تيسكت خارجي تسميه update.txt 
تضع فيه شروطك اما F او T  + ترفعه في حسابك على دروب بوكس
بعد ما ترفع تاخذ الامتداد الرابط وتضع بدال www تحولها الى كما موضح في اسفل الشرح في التايمر = web.DownloadString("https://dl.dropbox.com/s/l2413lkk/update.txt?dl=0 
العمل كل تالي
تضع هذا الكود في التايمر1  timer


PHP كود :
      WebBrowser1.Visible False
       Dim web 
As New WebClient
     
 رابط التيكست  
'     ("Label2.Text = web.DownloadString("https://dl.dropbox.com/s/l2413lkk/update.txt?dl=0")
       Timer1.Stop()
       If Label2.Text = "F" Then
           Label1.Text = "لا يوجد اي تحديث جديد"
           Label2.Visible = False
       Else
           
           Timer1.Stop()
           Label1.Text = "يوجد تحديث جديد"
           Label3.Text = "نرجو تحديث البرنامج بالضغط على  زر تحديث الان"
           Button2.Visible = True
           Label2.Visible = False
       End If
   




بعدها ترفع برنامجك ايضا على دروب بوكس وتنسخ الرابط وتضع بدال www الى dll ومن بعدها تنسخ هذا الكود في botton1

PHP كود :
رابط برنامجك الذي فيه تحديث' ("WebBrowser1.Navigate("https://dl.dropbox.com/s/yidhtgkyup0839a/update.exe?dl=0") 




وايضا تضع في الفورم1 form

 Timer1.Start()

ب اضافة طريقة العمل 

اذا كان في update.txt نص مكتوب F فانه لا يوجد تحديث اما اذا كان ف نه يوجد وسوف يضهر له زر التحديث
الرد
تم الشكر بواسطة:
#3
الله يجزاك الجنه بسويها واشوف يعطيك الف عافيه اخوي
الرد
تم الشكر بواسطة:
#4
كود :
تم تحديث الكود كما يلي




Imports System.Net
Public Class update1


   Private Sub Label12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label12.Click
       Me.Close()
   End Sub

   Private Sub update_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Timer1.Start()
   End Sub
 
   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       WebBrowser1.Navigate("https://dl.dropbox.com/s/yid14htg4141/update.exe?dl=0")
   End Sub

   Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

       WebBrowser1.Visible = False
       Dim web As New WebClient
       On Error Resume Next
       Label2.Text = web.DownloadString("https://dl.dropbox.com/update.txt?dl=0")
       Timer1.Stop()
       On Error Resume Next
       If Label2.Text = "F" Then
           Label1.Text = "لا يوجد اي تحديث جديد"
           Label2.Visible = False
       ElseIf Label2.Text = "T" Then
           On Error Resume Next
           Timer1.Stop()
           Label1.Text = "يوجد تحديث جديد"
           Label3.Text = "نرجو تحديث البرنامج بالضغط على  زر تحديث الان"
           Button2.Visible = True
           Label2.Visible = False
       Else
           Label1.Text = "يرجى التحقق من الانترنيت"
       End If
   End Sub

   Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click

   End Sub
End Class
بدل روابط ال لابديت كما شرحت مسبقا ورابط البرنامج وشكرا
الرد
تم الشكر بواسطة:
#5
(15-02-18, 01:24 AM)كناري008 كتب :
كود :
تم تحديث الكود كما يلي




Imports System.Net
Public Class update1


   Private Sub Label12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label12.Click
       Me.Close()
   End Sub

   Private Sub update_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Timer1.Start()
   End Sub
 
   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       WebBrowser1.Navigate("https://dl.dropbox.com/s/yid14htg4141/update.exe?dl=0")
   End Sub

   Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

       WebBrowser1.Visible = False
       Dim web As New WebClient
       On Error Resume Next
       Label2.Text = web.DownloadString("https://dl.dropbox.com/update.txt?dl=0")
       Timer1.Stop()
       On Error Resume Next
       If Label2.Text = "F" Then
           Label1.Text = "لا يوجد اي تحديث جديد"
           Label2.Visible = False
       ElseIf Label2.Text = "T" Then
           On Error Resume Next
           Timer1.Stop()
           Label1.Text = "يوجد تحديث جديد"
           Label3.Text = "نرجو تحديث البرنامج بالضغط على  زر تحديث الان"
           Button2.Visible = True
           Label2.Visible = False
       Else
           Label1.Text = "يرجى التحقق من الانترنيت"
       End If
   End Sub

   Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click

   End Sub
End Class
بدل روابط ال لابديت كما شرحت مسبقا ورابط البرنامج وشكرا

السّلام عليكم و رحمة الله و بركاته
نيابة عن صاحب الموضوع 
بارك الله فيك و لك أخي الكريم " كناري 008 " .. على المساعدة
كأخ يريد الفهم أكثر لو تكرّمت بوضع مثال مرتّب لما ذكرته سيكون مفيد و واضح لتعم الفائدة
تحياتي
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] فزعتكم يا شباب ضروري البرنامج مايتعرف على sql server 2014 0theghost0 1 31 منذ 3 ساعة مضت
آخر رد: Done
  [VB.NET] كيف يمكن تفادي مشكلة اقلاع البرنامج اكثر من مرة larbihamri 4 81 20-07-18, 03:29 AM
آخر رد: YousefOkasha
  ماهو تصميمك لهذا البرنامج ؟ hichem1 5 157 28-06-18, 03:55 PM
آخر رد: elgokr
  [سؤال] كودتشغيل البرنامج مع بدء تشغيل الويندوز alswade 1 77 25-06-18, 12:44 PM
آخر رد: YousefOkasha
  طريقة عمل عداد لمستخدمين البرنامج YousefOkasha 17 360 22-06-18, 03:35 PM
آخر رد: elgokr
Information [نقاش] حماية البرنامج الخاص بك من الكسر YousefOkasha 7 245 21-06-18, 07:46 PM
آخر رد: silverlight
  عدم فتح البرنامج الا حين الضغط على زر فى المتصفح ابو روضة 7 135 19-06-18, 03:02 AM
آخر رد: elgokr
  [VB.NET] اريد طريقه لمنح المستخدم صلاحيه انشاء مستخدم علي البرنامج بنفسه مرة واحدة فقط dametucorazon 3 95 17-06-18, 04:29 AM
آخر رد: elgokr
Exclamation [سؤال] اريد كود او الطريقة التي تشغل البرنامج اوتوماتيك عند تشغيل الجهاز YousefOkasha 6 219 16-06-18, 04:44 PM
آخر رد: elgokr
  حمايه روابط البرنامج medomessi101 2 91 16-06-18, 12:13 AM
آخر رد: elgokr

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


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