[السندبااد]

شكراً لردك أخي العزيز silverlight

لقد جربت استخدام Delegate sub وحاولت استخدام الدالة مباشرة بدون Task ولكن بدون فائدة فلم يتغير أي شيء بخصوص التهنيج

أيضاً جربت كوداً مغايراً له علاقة بالبحث عن قيمة في ملف نصي مرفوع على النت، وأيضاً ما زال هنالك تهنيج:

PHP كود :

   Private Sub IsUpdate()
         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
                BtnUpdate.Content = "يتوفر تحديث جديد، انقر هنا لتحميله"
            Else
                Msgbox("أنت تمتلك أحدث إصدار من البرنامج")
            End If
        Catch ex As Exception
            Msgbox(ex.Message)
        End Try
    End Sub