123456789101112131415161718192021222324252627282930313233343536373839404142 |
- 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
|