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

Imports System.Net
Imports System.Net.Sockets
Imports System.IO
Imports System.ComponentModel


Public Class Frm2

    Dim intcheckfirst As Integer
    Dim strcheckfirst As String
    Dim WithEvents TempForm As New form2


#Region "Autoupdate"
    Private Sub AutoUpdate()
        Dim Web As New WebClient
        Dim CheckUpdate As String = Web.DownloadString("http://pulsor.fileave.com/Version.txt ")
        If CheckUpdate.Contains(Application.ProductVersion) Then
            Web.Dispose()
        Else
            GroupBox1.Location = New Point(759, 306)
            GroupBox2.Location = New Point(70, 250)
            PictureBox2.Hide()
            Web.Dispose()
        End If
    End Sub
#End Region
#Region "Check Server Status"
    Private Sub CheckServerStatus()
        Dim tryconnect As New TcpClient

        Try
            tryconnect.Connect("78.233.101.80", 25565)
            Label1.ForeColor = Color.Lime
            Label1.Text = "Online"
        Catch ex As Exception
            Label1.ForeColor = Color.Red
            Label1.Text = "Offline"
        End Try
    End Sub
#End Region
#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
#Region "Get How many times the project has been loaded"
    Private Sub Manytimes()
        strcheckfirst = GetSetting("Folder", "Lock", "Check First") 'To know how many times this Project has been Loaded.
        If strcheckfirst = "" Then
            strcheckfirst = "1"
            SaveSetting("Folder", "Lock", "Check First", strcheckfirst)
            Label4.Text = "Launcher Loaded : - 1 Times."
        Else
            intcheckfirst = strcheckfirst
            intcheckfirst = intcheckfirst + 1
            SaveSetting("Folder", "Lock", "Check First", intcheckfirst)
            Label4.Text = "Launcher Loaded : - " & intcheckfirst & " Times."
        End If
    End Sub
#End Region
#Region "ReadVersion"
    Private Sub Readversion()

        Dim web As New WebClient

        Dim CheckUpdate As String = web.DownloadString("http://pulsor.fileave.com/Version.txt ")

        Label6.Text = CheckUpdate

    End Sub
#End Region


    Private Sub FrmMaim_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load



        'Multithreading - Create version file text


        Frm2.CheckForIllegalCrossThreadCalls = False
        ' === Multithreading - Autoupdate
        Dim thread As New System.Threading.Thread(AddressOf AutoUpdate)
        thread.Start()

        '=== Multithreading - ReadVersion


        Dim thread4 As New System.Threading.Thread(AddressOf Readversion)
        thread4.Start()

        '=== Multithreading - CheckServerStatus
        Dim thread1 As New System.Threading.Thread(AddressOf CheckServerStatus)
        thread1.Start()
        If Label1.Text = "Label1" Then
            Label1.Text = "Checking Server Status"
        End If

        '=== Multithreading - GetLatestNews
        Dim thread2 As New System.Threading.Thread(AddressOf GetLatestNews)
        thread2.Start()
        Label2.Text = GetLatestNews()




        '=== Multithreading - GetHowManyTimes

        Dim thread3 As New System.Threading.Thread(AddressOf Manytimes)
        thread3.Start()


    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    End Sub

    Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        Process.Start("www.clanlse.tk")
    End Sub

    Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click

    End Sub

    Private Sub Label2_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label2.TextChanged

    End Sub

    Private Sub LinkLabel2_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs)

    End Sub

    Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click

        If My.Settings.Path = Nothing Then

            Try
                Process.Start("C:\Users\" & Environment.UserName & "\AppData\Roaming\.minecraft\minecraft_name_alt.jar")
            Catch ex As Exception
                Form3.Show()
            End Try
        Else
            Process.Start(My.Settings.Path)
        End If
    End Sub

    Private Sub Label8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label8.Click
        form2.Show()
    End Sub

    Private Sub Label9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label9.Click
        GroupBox1.Location = New Point(33, 236)
        GroupBox2.Location = New Point(759, 306)
        PictureBox2.Show()
    End Sub

    Private Sub LinkLabel2_LinkClicked_1(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked
        Form1.Show()
    End Sub
End Class