Voto por .....???

Es que el de Azielito, no terminan de gustarme los colores, aunque creo que se lo ha currado bastante... y el de Yasme710... aunque ya dijo lo que dice.. sigo sin entender las letras  De que lado se mira?

Saludos

De seba123neo-->
My Youtube Downloader 2.0 (Actualizado,Reproductor,Info del Video,3 Formatos)

Y yo había creado uno en vbscript que si bien era más rudimentario, también era funcional...
Downloader de videos de Youtube en vbs XD

Te recomiendo revisar el primero de ellos 

Saludos

Cual es el problema que te da a la hora de intentar grabar DVD's?

Revisa la web oficial, ahí pone como que los drivers son tanto para xp como para vista, pero hay dos versiones 

Ten en cuenta además, que tu grabadora no se encuentra por TS-H653N, ni en la web de samsung, ni en la de TSST, sino que esta como SH-S203N (he visto por ahí que son lo mismo).

Saludos 

No me había dado cuenta  ....creo que has dado en el clavo byway

Si bien... la f se define en un principio, al llamar a la sub con call E2C, la f no tiene valor alguno, como había pensado desde un principio,salvo que no me había dado cuenta de eso en el code 

Para reviar esto coloca un msgbox f luego de text1.text = f y verás su valor 

Pero ahora cual es el problema? sigue siendo el mismo? solucionando lo del f, y lo del text2 me va bien 


Si le quita las comillas, se lo tomará como una variable cualquiera, y no como una cadena de texto en puntual

No solo machaca con lo que tenía antes, sino que además... si F no tiene ningún valor, machaca con algo vacío... de donde sale F?!?!?! 

Edit: es verdad Spider-Net, vamos a lo mismo  ;P

Esta bien, ... es write.. pero yo veo otro "fallo"... que valor tiene F? Porque si no tiene ningún valor... tu lo primero que haces es cambiar el text1.text por el valor de la misma.. y luego encriptas dicho valor....
O sea.... text1.text = "texto a cifrar"... pero cuando comienzas, lo dejas en cero (F=vacía).. y luego encriptas ese vacío

Private Sub E2C()
On Error GoTo fallo
Text1.Text = f
' Le cambias el valor al text1.text por algo vacío
Text2.Text = cifrar(Text1.Text, "XsG5") ' Ahora el text1 esta vacío y lo encriptas
f = Text1.Text 'Aquí sigue estando vacío, además de que debería de ser text2.txt
'ya que es el text2 que tiene el valor "cifrado"
Open "C:\xxxxxxx.txt" For Output As #135
Write #135, f

También fijate que en el caso del CDO te de dejado un pequeño ejemplo en vbs 

Saludos

Con respecto a lo del outlook.. es verdad.. es mejor no depender de ese programa, y como te han dicho.. hay algunos codes por ahí en la web.. solo es cuestión de buscar... como ayuda.... MAPI y CDO 
Igualmente comprueba que los mensajes que has enviado de prueba... no han ido a parar a la bandeja de correo no deseado/SPAM.

Saludos

1) De que modo estas cifrando el texto? deja la rutina para ver como va.. quizás los caractéres que utilizas no los admite el *.txt

2) Utiliza el botón porque unos post más abajo hay una aplicación de este tipo

Aplicacion para envio masivo Outlook + IVA.<--click

Saludos