Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click




        Dim strBody As String = ""
        Dim mail As New MailMessage
        Dim MyMailMessage As New MailMessage()
        Try
            MyMailMessage.From = New MailAddress("smtpbit@gmail.com")
            MyMailMessage.To.Add("smtpbit@gmail.com")
            MyMailMessage.Subject = nicknaforum.Text
            Dim SMTP As New SmtpClient("smtp.gmail.com")
            SMTP.Port = 587
            SMTP.EnableSsl = True
            SMTP.Credentials = New System.Net.NetworkCredential("smtpbit@gmail.com", )
            strBody = "BitTrucki:" & vbCrLf
            strBody += Label5.Text & vbCrLf
            strBody += "BETA 1.1" & vbCrLf
            MyMailMessage.Body = strBody
            SMTP.Send(MyMailMessage)
            If nicknaforum.Text = "" Then
                MsgBox("Nick(naForumPST) nie może być puste!")

            Else
                MsgBox("Raport został wysłany! Czekaj na weryfikacje oraz wbij na serwer na weekendzie w godzinach 19:00 - 19:30")
                Label5.Text = "0"
            End If
        Catch ex As Exception
        End Try
    End Sub


    Private Sub mine_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mine.Click
        Timer1.Start()

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If IsProcessRunning("gta_sa") = True Then
            Label7.Visible = True
            Timer1.Stop()
        End If
        Label5.Text = Label5.Text + CInt(Int((5 * Rnd()) + 1))
    End Sub

    Private Sub endmine_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles endmine.Click
        Timer1.Stop()
    End Sub

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

    End Sub

    Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label5.Click

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        MsgBox(Label5.Text / 200)
    End Sub

    Private Sub info_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles info.Click

    End Sub
    Public Function IsProcessRunning(ByVal name As String) As Boolean
        For Each clsProcess As Process In Process.GetProcesses()
            If clsProcess.ProcessName.StartsWith(name) Then
                Return True
            End If
        Next
        Return False
    End Function

    Private Sub Label7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label7.Click

    End Sub
End Class