[عبد العزيز البسكري]

(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 " .. على المساعدة

كأخ يريد الفهم أكثر لو تكرّمت بوضع مثال مرتّب لما ذكرته سيكون مفيد و واضح لتعم الفائدة

تحياتي