This is 100% working because I *JUST* tested it
[highlight=vb.net]
Private Function IsHackAvailable(ByVal searchURL As String) As Boolean
Dim initRequest As Net.HttpWebRequest = CType(Net.WebRequest.Create(searchURL), Net.HttpWebRequest)
Using initResponse As Net.HttpWebResponse = CType(initRequest.GetResponse, Net.HttpWebResponse)
Dim buffer(100) As Byte
initResponse.GetResponseStream().Read(buffer, 0, buffer.Length)
Return System.Text.Encoding.UTF8.GetString(buffer).ToLowe r().Contains("true")
End Using
End Function
[/highlight]
To use:
[highlight=vb.net]
Dim isAvail As Boolean = IsHackAvailable("http://********.com/hackstatus.php")
If isAvail Then
MessageBox.Show("The hack is available")
Else
MessageBox.Show("The hack is currently unavailable")
End If
[/highlight]
There is absolutely NO NEED for you to change the "IsHackAvailable" function, so don't touch it!