Como hacer esto VB?

[BlackZeroX]

Si quieres que se rellene todo el progressbar usa eun bucle for y sleep.

salu2!

Sin Sleep.... o se estara dormiendo el hilo... un Doevents quisas o esta funcion...

Código (vb) [Seleccionar] Expandir



Option Explicit

Private Declare Function WaitMessage Lib "user32" () As Long

Enum eTime
    AñoBisiesto = 31622400
    Año = 31536000
    Semanas = 604800
    Dias = 86400
    Horas = 3600
    Minutos = 60
    Segundos = 1
End Enum

Public Sub Wait(ByVal vToWait&, Optional ByVal ThisWait As eTime = Segundos, Optional ByVal UseAllProc As Boolean = False)
Dim vDateE      As Date
   vDateE = DateAdd("s", vToWait& * (ThisWait + 0), Time)
   Do While vDateE > Time
       Call WaitMessage
       If Not UseAllProc Then DoEvents
   Loop
End Sub



ademas el ProgressBAr seria para otras cosas...

Dulce Infierno Lunar!¡.

[evillcs]

Si quieres que se rellene todo el progressbar usa eun bucle for y sleep.

salu2!

Sin Sleep.... o se estara dormiendo el hilo... un Doevents quisas o esta funcion...

Código (vb) [Seleccionar] Expandir



Option Explicit

Private Declare Function WaitMessage Lib "user32" () As Long

Enum eTime
   Horas = 3600
   Minutos = 60
   Segundos = 1
End Enum

Public Sub Wait(ByVal vToWait&, Optional ByVal ThisWait As eTime = Segundos, Optional ByVal UseAllProc As Boolean = False)
Dim vDateE      As Date
   vDateE = DateAdd("s", vToWait& * (ThisWait + 0), Time)
   Do While vDateE > Time
       Call WaitMessage
       If Not UseAllProc Then DoEvents
   Loop
End Sub



ademas el ProgressBAr seria para otras cosas...

Dulce Infierno Lunar!¡.

Gracias!

Pero me podrias ayudar con el tema del correo?

[BlackZeroX]

@evillcs

Usa CDO.

P.D.: No cites todo el post ¬¬" se vuelve ilegible el hilo,

Dulces Lunas!¡.

[evillcs]

Ok gracias y perdon por citarlo todo, leere eso que me pasastes.
Gracias por ayudarme

[79137913]

HOLA!!!

Mira no me suena a lammer me suena MUY LAMMER.

Pero en fin. Estamos para ayudar.

Esto es lo mas facil que encontre, por que si no sabes hacer un bucle for next solo copias y pegas.

Aca lo tenes (Alternativa si lo que puso BlackZ.X te parecio dificil):

http://www.recursosvisualbasic.com.ar/htm/ocx-componentes-activex-dll/21-dll-vb-send-mail-para-enviar-correo.htm

P.D.1: Dios Google no muerde y siempre te va a perdonar.
P.D.2: Recursos VB tiene la respuesta al 90% de las preguntas.
P.D.3: Si es para sacar una contraseña de algun correo tengo una sugerencia "Buscate una Vida".
P.D.4: Disculpen mi lenguaje y forma de expresarme.


GRACIAS POR LEER!!!