Solution For Warrock Address Changing[How to update your hacks using an updater]

[radnomguywfq3]

Programmed for VB.net Only Will not work on 6.0

As warrock changes there addresses every 3 days, we don't want to have to change our addresses every 3 days now do we. So the only real solution is to stop hard coding our addresses, and start storing them in updatable text files.
So what were going to do is implement updaters into our hacks, how are going to do that well, I just finished spending 2 hours on this module. Do not use or try to modify it unless you are an advance VB programmer, you will most likly just fuck it up.

Notice
This updater should not be running while the hack is running nor warrock, It is most likly detected, But this being detected doesn't really matter because it won't be running while warrock is..

Module Module_By_JetamayMPGH
'PLEASE NOTE
'Programmed By :Jetamay
'NOTES:
'-This is the updater and should be run while the game is not.
'-The hack must be closed
'-The hack Must be in the app root folder.

Public Function UpdateFile(ByVal OnForm As Form, ByVal WebsiteURL As String, ByVal SaveFileTo As String, ByVal DisplayProgressBar As ProgressBar, ByVal DisplayDownloadPath As Label, ByVal DisplayDownloadProgressBytes As Label)
On Error GoTo ERR
If (MsgBox("Are You Sure You Wish To Update? Downloading From :" + WebsiteURL.ToString, MsgBoxStyle.YesNo, "Update Now? Jetamay") = MsgBoxResult.No) Then
Return 0

Exit Function
End If
OnForm.Enabled = False
Dim URLRequest As Net.HttpWebRequest
Dim URLResources As Net.HttpWebResponse
Dim FileStreamer As New IO.FileStream(SaveFileTo, IO.FileMode.Create)
Dim bBuffer(99999) As Byte
Dim ReadBytes As Integer
UpdateFile = Nothing
DisplayDownloadPath.Text = SaveFileTo.ToString
URLRequest = System.Net.WebRequest.Create(WebsiteURL)
URLResources = URLRequest.GetResponse
Dim DownloadFC As IO.Stream = URLRequest.GetResponse.GetResponseStream
DisplayProgressBar.Value = 0
DisplayProgressBar.Maximum = URLResources.ContentLength
Do
OnForm.Refresh()
ReadBytes = DownloadFC.Read(bBuffer, 0, 1000)
UpdateFile = UpdateFile + ReadBytes
Format(DisplayProgressBar.Value / 1024, "#,###,###,###0.00")
Format(DisplayProgressBar.Maximum / 1024, "#,###,###,###0.00")
If DisplayProgressBar.Value + ReadBytes <= DisplayProgressBar.Maximum Then
DisplayProgressBar.Value += ReadBytes
Else
DisplayProgressBar.Value = DisplayProgressBar.Maximum
End If
FileStreamer.Write(bBuffer, 0, ReadBytes)
DisplayDownloadProgressBytes.Text = "Bytes : " + DisplayProgressBar.Value.ToString + "/" + DisplayProgressBar.Maximum.ToString
OnForm.Refresh()
Loop Until ReadBytes = 0
FileStreamer.Close()
DownloadFC.Close()
OnForm.Enabled = True
Shell(SaveFileTo)
MsgBox("Update Completed")
DisplayProgressBar.Value = 0
DisplayDownloadPath.Text = "No Download"
DisplayDownloadProgressBytes.Text = "Bytes : 0\0"
Return 0
Exit Function
ERR:
FileStreamer.Close()
DownloadFC.Close()
OnForm.Enabled = True
MsgBox("An Error Occerd During Download..")
DisplayProgressBar.Value = 0
DisplayDownloadPath.Text = "No Download"
DisplayDownloadProgressBytes.Text = "Bytes : 0\0"
Return 0
End Function
End Module

*edit* I would clean the code up a bit, but the forum seems to ignore most of the spaces.. And I suggest maby puting some of this into a backround worker, I have the form to refresh it-self, but if you press on it, It could lagg a little bit. XD i'm to lazy Family guys on, But I recommend puting this in a backround worker.