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