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
