Advertisement
hungvb

[VB] Update Notification Code

Sep 23rd, 2021
157
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VB.NET 0.73 KB | None | 0 0
  1. Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("http://chat.bomkhung.net/version.txt")
  2.         Dim response As System.Net.HttpWebResponse = request.GetResponse()
  3.  
  4.         Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream())
  5.  
  6.         Dim newestversion As String = sr.ReadToEnd()
  7.         Dim currentversion As String = Application.ProductVersion
  8.  
  9.         If newestversion.Contains(currentversion) Then
  10.         Else
  11.             MsgBox("Hiện Tại Phiên Bản Này Đã Củ. Mòi Bạn Vào Trang Chủ Để Tải Phiên Bản Mới", MsgBoxStyle.DefaultButton1, "Thông Báo")
  12.           Process.start("http://chat.bomkhung.info")
  13.             End
  14.         End If
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement