(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>
بقيت افكار اخرى مثل تحديث النسخة وتحديث الرقم المحلي وغيرها
هذا على السريع
