15-02-18, 01:40 AM
(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 " .. على المساعدة
كأخ يريد الفهم أكثر لو تكرّمت بوضع مثال مرتّب لما ذكرته سيكون مفيد و واضح لتعم الفائدة
تحياتي
قناتنا على اليوتوب