private void BAceptar_Click(object sender, EventArgs e)
{
DataRow[] DRC;
DataRow DR;
string Clave, espira;
System.Threading.Thread TR = new System.Threading.Thread(Enviar);
Clave = Funciones.Contra(6);
if (TUsuario.TextLength <= 0)
{
MessageBox.Show("Escriba Usuario!!!");
return;
}
if (TMail.TextLength <= 0)
{
MessageBox.Show("Escriba el correo!!!");
return;
}
if (Convert.ToInt32(TDias.Text) <= 0)
{
MessageBox.Show("Escriba los días!!!");
return;
}
if (!Funciones.validarEmail(TMail.Text))
{
MessageBox.Show("Escriba un correo válido!!!");
return;
}
Tex = "Hola,\n\r¡¡FELICITACIONES!! el acceso a AutoclickNews está listo.\n\rUsuario: " + TUsuario.Text + "\n\rContraseña: " + Clave + "\n\rBienvenido a bordo y que generes miles de dólares!\n\rLender & Jorge\n\rPD. No responder este correo ya que no lo revisamos.\n\r*****************************\n\r";
Tex += "Hello,\n\r¡¡CONGRATULATIONS!! access to AutoClickNews is ready.\n\rUser: "******"\n\rPassword: "******"\n\rWelcome and generate thousands of dollars!\n\rLender & Jorge\n\rPD. Não responda este e-mail porque não revisado.\n\r*****************************\n\r";
Tex += "Olá,\n\r¡¡PARABÉNS! acesso a AutoClickNews está pronto..\n\rUsuário: " + TUsuario.Text + "\n\rSenha: " + Clave + "\n\rBem-vindo e gerar milhares de dólares!\n\rLender & Jorge\n\rPD. Do not reply this email because will not review.\n\r*****************************\n\r";
espira = DTFecha.Value.AddDays(Convert.ToInt32(TDias.Text)).ToString("yyyy/MM/dd");
try
{
DRC = BD.Tabla("Usuarios").Select("Usuario='" + TUsuario.Text + "' AND VIP='" + Vp + "'");
if (DRC.Length > 0)
{
if (MessageBox.Show("Usuario ya existe, ¿Desea Modificarlo?", "¡ADVERTENCIA!", MessageBoxButtons.YesNo) == System.Windows.Forms.DialogResult.Yes)
{
if (!(BD.BD("UPDATE Usuarios SET Correo='" + TMail.Text + "', Clave='" + Funciones.Encriptar(Clave) + "', Administrador=" + CHAdmin.Checked + ", VIP=" + Vp + ", Expira='" + espira + "' WHERE Usuario='" + TUsuario.Text + "'")))
{
MessageBox.Show("Revise los datos, el registro no puede ser guardado");
return;
}
DR = BD.NuevoR("Usuarios");
DR["Usuario"] = TUsuario.Text;
DR["Clave"] = Funciones.Encriptar(Clave);
DR["Correo"] = TMail.Text;
DR["Administrador"] = CHAdmin.Checked;
DR["Expira"] = espira;
DR["VIP"] = Vp;
BD.Eliminar("Usuarios", DRC[0]);
BD.Agregar("Usuarios", DR);
Mailto = DR["Correo"].ToString();
Tit = "AutoClickNews Access / Acceso AutoclickNews / Acesso AutoClickNews";
TR.Start();
}
return;
}
if (!(BD.BD(string.Format("INSERT INTO Usuarios (Usuario,Clave,Administrador,VIP,Correo,Expira) values ('{0}','{1}',{2},{3},'{4}','{5}')", TUsuario.Text, Funciones.Encriptar(Clave), CHAdmin.Checked, Vp, TMail.Text, espira))))
{
MessageBox.Show("Revise los datos, el registro no puede ser guardado");
return;
}
DR = BD.NuevoR("Usuarios");
DR["Usuario"] = TUsuario.Text;
DR["Clave"] = Funciones.Encriptar(Clave);
DR["Administrador"] = CHAdmin.Checked;
DR["Correo"] = TMail.Text;
DR["Expira"] = espira;
DR["VIP"] = Vp;
BD.Agregar("Usuarios", DR);
Mailto = DR["Correo"].ToString();
Tit = "AutoClickNews Access / Acceso AutoclickNews / Acesso AutoClickNews";
TR.Start();
}
catch (Exception ex)
{
Funciones.Log(System.IO.Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly().GetName().CodeBase), ex.Message + ex.StackTrace.Substring(ex.StackTrace.Length - 11));
}
}