Foro de elhacker.net

Hola!
Tengo Visual Basic 6.0 portable
Y resulta que hize un programita, con algunos forms, y quiero que lo que la gente ponga en esos FORMs, al hacer click en el boton de mas abajo, valla todo hacia mi correo.

Como lo hago?


PD: Tambien pero no muy importante, me gustaria que al apretar el botonzito debajo aparezca una barra de algun color como cargando..

*Lo primero que buscas hay mil ejemplos, hasta está en las FAQs... :silbar:
http://foro.elhacker.net/programacion_visual_basic/manuales_tutoriales_y_ejemplos-t139885.0.html

*Para lo segundo utilizarias el control ProgressBar (http://www.recursosvisualbasic.com.ar/htm/tutoriales/control-progressbar.htm).

DoEvents! :P

hola :)
Mira el tema esque yo no quiero hacer un programa que envie mails, yo quiero hacer un programa con 2 campos (User y password) que al el usuario hacer click en GO, me envie esos datos a mi emaill

Bueno Miren, este es el codigo que tengo en la progress bar




y me da un problema, que cuando clickeo el command1, solo se pone una rayita en la progress bar, y no avanza.

NEcesito ayuda con eso.

Saludos! (Y tambien necesito ayuda para lo del correo)

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

salu2!

Podrian ayudarme con lo de enviar los datos de los forms a mi correo?
Esque sobre la progressbar hay mil tutoriales, asi que me gustaria saber sobre lo de el correo

Todo a tu correo? Me huele a gordo lammer...

Igual, cuando tengas el exe listo, damelo que con el mismo EXE te hackeo el correo ;)

Y el lammer soy yo? y tu quieres "hackearme" el correo viendo mi correo y mi password, pordios, con que cara me dices lammer.

Yo soy Anti-Lammers  >:D

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

 
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!¡.

Gracias!

Pero me podrias ayudar con el tema del correo?

@evillcs

Usa CDO (http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/337-enviar-correo-en-vb-con-microsoft-cdo.htm).

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

Dulces Lunas!¡.

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

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!!!