Code:
Imports System.Net
Public Class Form1
Dim pb As New ProgressBar
Public installer As String = Application.StartupPath + "\UGv1.4.exe"
Public link As String = "http://jeromeluisverder.com/Downloads/UGv1.4.exe" 'Latest Update
Public version As String = "1.0" 'Application Version
Private Sub client_ProgressChanged(ByVal sender As Object, ByVal e As DownloadProgressChangedEventArgs)
Dim bytesIn As Double = Double.Parse(e.BytesReceived.ToString())
Dim totalBytes As Double = Double.Parse(e.TotalBytesToReceive.ToString())
Dim percentage As Double = bytesIn / totalBytes * 100
ProgressBar1.Value = Int32.Parse(Math.Truncate(percentage).ToString())
End Sub
Private Sub client_DownloadCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs)
Process.Start(installer)
Me.Close()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim web As New WebClient()
Dim response = web.DownloadString("http://jeromeluisverder.com/update.php") 'Put your site here
If response = version Then 'Put your programs version here.
MsgBox("Loader Is Up To date")
Me.Hide()
Form2.Show()
Else
MsgBox("Loader is Out Dated ")
Label2.Visible = False
GButton1.Visible = False
Label1.Visible = True
ProgressBar1.Visible = True
Dim client As WebClient = New WebClient
AddHandler client.DownloadProgressChanged, AddressOf client_ProgressChanged
AddHandler client.DownloadFileCompleted, AddressOf client_DownloadCompleted
client.DownloadFileAsync(New Uri(link), installer)
Label1.Text = "Downloading Updates..."
Timer1.Start()
End If
End Sub
End Class
ni copy paste ko lang sa old ko na hack loader with auto update and DLL injector using kernel32 :v