Website Status Checker

[Raydenman]

Another old video... Another easy code.
How to check the website status.

[Attacker3]

No offence, but why make a program when you can just go to that website and find out quickly?

[Raydenman]

No offence, but why make a program when you can just go to that website and find out quickly?

It would be useful for many applications that perform more functions, and not only this.
Really I made this video to show you how to make function and how to use webclient for some cases

offence

I don't see any offence.

[Sasuke Uchiha!]

Another old video... Another easy code.
How to check the website status.

Could you post the source code please mate?
And btw, that is the "Ghost.vb" Theme right?

[Raydenman]

Could you post the source code please mate?

First we need to import the namespaces:
Imports System.Net
Button1:
MsgBox(getStatus(TextBox1.Text), MsgBoxStyle.Information, "Information")

Under button1 code:
Function getStatus(ByVal input As String) As String
Try
Dim webclient As String = New System.Net.WebClient().DownloadString("https://isup.me/" + input)

If webclient.ToLower.Contains("is up") Then
Return "Website online"
ElseIf webclient.ToLower.Contains("looks down from here") Then
Return "Website offline"
ElseIf webclient.ToLower.Contains("huh?") Then
Return "Unknown website"
Else
Return "Error"
End If
Catch excez As Exception
Return "Error: " & vbCrLf & excez.ToString
End Try
End Function
https://gyazo.com/5640e840b7e2905f85f76572b19b991a

And btw, that is the "Ghost.vb" Theme right?

I don't have used themes on these projects, it is just a Windows Theme