(completo)Verificacion de correo

Estado
Cerrado para nuevas respuestas.

Zinnky

Newbie Lvl 4
[CLIENTE](completo)Verificacion de correo

Creacion de verificacion de correo por Zinnky
Copyright-Todo los derechos reservados a el creador del codigo, zinnky.(2003-2006)
(aunque sea simple es esencial..)

En el CLIENTE vamos al frmpasswdsinpadrino.

Y reemplazamos todo (TODO)por esto:

Codigo :
‘[Powered by Zinnky]
Option Explicit

Function CheckDatos() As Boolean
If txtCorreo.Text txtCorreoCheck.Text Then
MsgBox " Los correos no coinciden"
Exit Function

End If

If txtPasswd.Text txtPasswdCheck.Text Then
MsgBox "Los passwords que tipeo no coinciden, por favor vuelva a ingresarlos."
Exit Function
End If

CheckDatos = True

End Function
Private Sub Command1_Click()

If CheckDatos() Then
UserPassword = MD5String(txtPasswd.Text)
UserEmail = txtCorreo.Text

If Not CheckMailString(UserEmail) Then
MsgBox "Direccion de mail invalida."
Exit Sub
End If

#If UsarWrench = 1 Then
frmMain.Socket1.HostName = CurServerIp
frmMain.Socket1.RemotePort = CurServerPort
#End If

'SendNewChar = True
EstadoLogin = CrearNuevoPj

Me.MousePointer = 11

' If Not frmMain.Socket1.Connected Then
' frmMain.Socket1.Connect
' Else
' Call SendData("gIvEmEvAlcOde")
' End If

EstadoLogin = CrearNuevoPj

#If UsarWrench = 1 Then
If Not frmMain.Socket1.Connected Then
#Else
If frmMain.Winsock1.State sckConnected Then
#End If
MsgBox "Error: Se ha perdido la conexion con el server."
Unload Me

Else
Call Login(0)
End If
End If

End Sub

Private Sub Command2_Click()
Unload Me
End Sub

‘[/Powered by Zinnky]

Y el el frm quedaria asi

http://www.subelo.net/ver.php?imagen=frmpasswdsinpadrino.bmp
 
A

Anonymous

Invitado
El es el grandioso y misterioso programador de Demoni-AO
 

^[GS]^

GS-Zone Admin
Miembro del equipo
Administrador
Moderador
la funcion CheckMailString viene con el VB ¿?

si es asi no lo sabia XD j0j0j0 que groxo
 
Estado
Cerrado para nuevas respuestas.
Arriba