19-11-12, 08:09 PM
كود :
Dim regust As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("http://tariq2812.com/uploads/1/up.txt")
Dim respnos As System.Net.HttpWebResponse = regust.GetResponse
Dim sr As System.IO.StreamReader = New System.IO.StreamReader(respnos.GetResponseStream)
Dim virsion As String = sr.ReadToEnd
Dim update As String = Application.ProductVersion
If CInt(virsion.Replace(".", "")) > CInt(update.Replace(".", "")) Then
MsgBox("يوجد نسخة حديثة")
Else
MsgBox("النسخة محدثة")
End If
