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
Cita de: *PsYkE1* en 2 Octubre 2010, 10:34 AM
*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
Private Sub Command1_Click()
'Le asignamos las propiedades para el mínimo, máximo valor del Progress bar
With ProgressBar1
.Max = 100
.Min = 0
.Value = 1
End With
End Sub
Private Sub ProgressBar1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
End Sub
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!
Cita de: Drinky94 en 2 Octubre 2010, 12:08 PM
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 ;)
Cita de: BoboV1 en 2 Octubre 2010, 19:40 PM
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.
Cita de: evillcs en 2 Octubre 2010, 19:44 PM
Cita de: BoboV1 en 2 Octubre 2010, 19:40 PM
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
Cita de: BoboV1 en 2 Octubre 2010, 19:49 PM
Cita de: evillcs en 2 Octubre 2010, 19:44 PM
Cita de: BoboV1 en 2 Octubre 2010, 19:40 PM
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.
Se nota muchisimo :xD
Yo soy Anti-Lammers >:D
Cita de: Drinky94 en 2 Octubre 2010, 12:08 PM
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...
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!¡.
Cita de: BlackZeroX en 3 Octubre 2010, 00:54 AM
Cita de: Drinky94 en 2 Octubre 2010, 12:08 PM
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...
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?
@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!!!