[سعود]

(02-08-17, 09:24 PM)سعود الشامان كتب :

(02-08-17, 09:17 PM)سعود كتب : مارايك بهذا المثال
http://vb4arb.com/vb/showthread.php?tid=409

للأسف حملته ومافهمته
وأستثقلت أسالك عنه لاني اعتقد المشكله في فهمي

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

كود :

<lastver>2</lastver>

---

تعديل المسمى هو كشف رقم النسخة من موقع واستخدمت موقع التجارب

---

PHP كود :

Imports System.Net
Imports System.Text
Imports System.Text.RegularExpressions

Public Class Form1
    Dim localver As String
    Dim remotver As String
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        curver.Text = My.Computer.FileSystem.ReadAllText(Application.StartupPath & "\curver.txt")
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If b1.IsBusy = False Then
            localver = curver.Text
            b1.RunWorkerAsync()
            Button1.Enabled = False
            Button1.Text = "كشف احدث نسخة"
            lastver.Text = "شوي واعرف"
        End If
    End Sub
    Private Sub setlbl(ByVal l As String)
        If lastver.InvokeRequired Then
            lastver.Invoke(New Action(Of String)(AddressOf setlbl), l)
        Else
            lastver.Text = l
        End If
    End Sub

    Private Sub setbtn(ByVal l As String)
        If Button2.InvokeRequired Then
            Button2.Invoke(New Action(Of String)(AddressOf setbtn), l)
        Else
            Button2.Text = l
        End If
    End Sub

    Private Sub setbtnen(ByVal l As Boolean)
        If Button1.InvokeRequired Then
            Button1.Invoke(New Action(Of Boolean)(AddressOf setbtnen), l)
        Else
            Button1.Enabled = l
        End If
    End Sub

    Private Sub b1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles b1.DoWork
        Dim wc As New WebClient
        wc.Encoding = Encoding.UTF8
        Dim html As String = wc.DownloadString("http://saud.somee.com/Default.aspx")
        Dim doc As New HtmlAgilityPack.HtmlDocument
        doc.LoadHtml(html)
        remotver = doc.DocumentNode.SelectSingleNode("//lastver").InnerText.Trim
    End Sub

    Private Sub b1_RunWorkerCompleted(sender As Object, e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles b1.RunWorkerCompleted
        setbtnen(True)
        setlbl(remotver)
        If Val(remotver) > Val(localver) Then
            setbtn("توجد نسخة احدث")
        End If
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        MsgBox("مثال على السريع فقط", MsgBoxStyle.Information, "")
    End Sub
End Class 


هذا هو كل المثال البسيط لاحظ اني اضفت نص من نفس ادارة منتداي 
<lastver>2</lastver>

بقيت افكار اخرى مثل تحديث النسخة وتحديث الرقم المحلي وغيرها
هذا على السريع