[a.ahmed]

PHP كود :

Private Sub IsUpdate()
    System.
        Threading.
        Tasks.
        Task.
        Factory.
        StartNew(
            Sub()
                Try
                    ' تعيين ملف نصي مؤقت لحفظ بيانات ملف النت فيه
                    Dim tmpFile As String = IO.Path.GetTempPath & Guid.NewGuid.ToString & ".tmp"

                    My.Computer.Network.DownloadFile("http://shhada.net/myfiles/FbAutoPublish.txt", tmpFile)

                    ' قراءة بيانات الملف النصي المؤقت
                    Dim NewUpdate As String = IO.File.ReadAllText(tmpFile)
                    If IsNumeric(NewUpdate) = False Then
                        MsgBox("هنالك مشكلة في المخدم عاود التحديث لاحقاً !!")

                    End If

                    'إذا كان رقم الإصدار ليس فارغاً وأكبر من رقم التحديث الحالي
                    'فهذا يدل على أن هنالك تحديث جديد
                    If NewUpdate <> "" AndAlso (Val(NewUpdate) > Val(CurrentUpdate)) Then
                        Dispatcher.BeginInvoke(Sub() BtnUpdate.Content = "يتوفر تحديث جديد، انقر هنا لتحميله")
                    Else
                        MsgBox("أنت تمتلك أحدث إصدار من البرنامج")
                    End If
                Catch ex As Exception
                    MsgBox(ex.Message)
                End Try
            End Sub)
End Sub 


PHP كود :

Private Sub Window_Loaded(ByVal sender As Object, ByVal e As RoutedEventArgs) Handles MyBase.Loaded
    IsUpdate()
End Sub