09-11-12, 08:56 PM
كود :
Dim regust As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("ملف التكسك")
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 virsion.Contains(update) Then
Else
MsgBox("هناك نسخه جديده هل تود تحديثها !!")
End Ifضع الكود في اي حدث
