DreamNotes-Minecraft-Launcher/Sources/Minecraft launcher/Form1.vb

Public Class Form1

    Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Label1.Text = GetLatestNews()
    End Sub

#Region "Get Latest News"
    Public Function GetLatestNews() As String
        Try
            Dim HttpWebReq As Net.HttpWebRequest = Net.HttpWebRequest.Create("http://clanlse.free.fr/index.php")
            Dim HttpWebResp As Net.HttpWebResponse = HttpWebReq.GetResponse
            Dim Source As String = New IO.StreamReader(HttpWebResp.GetResponseStream).ReadToEnd
            Dim LatestNews As String = Split(Source, "<div class=""article-content"">")(1)

            Dim ParagraphArray() As String
            LatestNews = Split(LatestNews, "<div")(0)
            ParagraphArray = Split(LatestNews, "<p>")
            LatestNews = String.Empty
            For Each I In ParagraphArray
                If I.Trim <> String.Empty Then
                    If LatestNews = String.Empty Then
                        LatestNews = I
                    Else
                        LatestNews &= vbNewLine & vbNewLine
                        LatestNews &= I
                    End If
                End If
            Next
            LatestNews = LatestNews.Replace("<br />", vbCrLf)
            LatestNews = LatestNews.Replace("</p>", String.Empty)

            Return LatestNews
        Catch
            Return String.Empty
        End Try
    End Function
#End Region
End Class