(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
Administrador
la funcion CheckMailString viene con el VB ¿?

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