Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Dim str As String = New WebClient().DownloadString(("http://downforeveryoneorjustme.com/" + TextBox1.Text))
If str.Contains("Saytin Adini Duzgun Daxil Edin.") Then
Label1.Text = "Online"
Label1.ForeColor = Color.Lime
ElseIf str.Contains("Edit...!") Then
Label1.Text = "Offline"
Label1.ForeColor = Color.Red
Else
Label1.Text = "Bel? Bir Sayt Yoxdur !"
Label1.ForeColor = Color.Pink
End If
Catch
Interaction.MsgBox("Internet BaglatInizi Yoxlayin !! ", MsgBoxStyle.Information, "Error")
End Try
End Sub
End Class
Əziz İstifadəçi yeni mövzu açarkən və ya şərh yazarkən yalnız və yalnız Azərbaycan Əlifbasından (Latın Əlifbasından) istifadə edin!
Mütləq yeni mövzu açarkən vəya şərh yazarkən yalnız AZƏRBAYCAN ŞRİFTLƏRİYLƏ YAZIN!