Delete the code from the button and put this:
Explanation of the code:Quote:
Imports System.Net
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Web As New WebClient
Dim Update As String = Web.DownloadString(“)
If Update.Contains(“New Version”) Then
MsgBox(“New Version Available”)
Button1.Visible = True
Else
MsgBox(“No Actualizations available”)
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
My.Computer.Network.DownloadFile(“, “C:\Auto Patcher\file.zip”)
End Sub
End Class
This Verify if theQuote:
Dim Web As New WebClient
Dim Update As String = Web.DownloadString(“)
If Update.Contains(“New Version Available”) Then
MsgBox(“New Version Avalable!”)
Button1.Visible = True
Else
MsgBox(“No actualizations available!”)
End If
contains New Version Available.If it haves It gona show New Version Avalable!.If the FIle doesn't contains New Version Available it gona show No actualizations available!
This gona Download (if it exists) to the folder C:\Auto Patcher.Quote:
My.Computer.Network.DownloadFile(“ , “C:\Auto Patcher\Ficheiro.zip”)
If you want to do a better auto patcher Then Use Skins of the oficials Clients.
Cumpz. pablito7






