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, "
")(1)
Dim ParagraphArray() As String
LatestNews = Split(LatestNews, "
")
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("
", vbCrLf)
LatestNews = LatestNews.Replace("", 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