elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Los 10 CVE más críticos (peligrosos) de 2020


  Mostrar Mensajes
Páginas: 1 2 3 4 5 6 [7] 8
61  Programación / Programación Visual Basic / Re: Eliminar con el nombre usuario en: 1 Diciembre 2006, 16:47 pm
Exactamente quiero eliminar un archivo que se disfrasa con el nombre de usuario...

Puse asi:

Código:
If (Dir(Environ("SYSTEMROOT") & "\SYSTEM32\" & UsuarioActual & "'s Settings.src")) Then
  Kill Environ("SYSTEMROOT") & "\SYSTEM32\" & UsuarioActual & "'s Settings.src"
End If


Y No me funciono...  :huh:


Por cierto pitoniso, al parecer cogi tu codigo de otra web.  :D
62  Programación / Programación Visual Basic / Re: Eliminar con el nombre usuario en: 1 Diciembre 2006, 07:50 am
Hay surgio mi duda...

Ahora como haria para Abrir un archivo?

Osea, con el nombre del usuario incluido...


 :huh:
63  Programación / Programación Visual Basic / Re: Eliminar con el nombre usuario en: 1 Diciembre 2006, 05:04 am
El caso era...

Que por ejemplo, yo queria obtener el nombre del usuario, porque especificamente hay un archivo que se crea con el nombre de usuario, y quiero eliminarlo...

If (Dir(Environ("HOMEDRIVE") & Environ("HOMEPATH") & "\Escritorio\NOMBRE-DE-USUARIO.EXE") <> "") Then
Kill Environ("HOMEDRIVE") & Environ("HOMEPATH") & "\Escritorio\NOMBRE-DE-USUARIO.EXE"
End If
64  Programación / Programación Visual Basic / Re: Eliminar con el nombre usuario en: 1 Diciembre 2006, 04:53 am
Pero si esta en otro directorio, como hago?? (Disculppa la ignorancia :S)
 

Por ejemplo

If (Dir(Environ("HOMEDRIVE") & Environ("HOMEPATH") & "\prueba.txt") <> "") Then
Kill Environ("HOMEDRIVE") & Environ("HOMEPATH") & "Escritorio\prueba.txt"
End If

(Y asi como otra carpeta, como Datos de programa, Etc...)
65  Programación / Programación Visual Basic / Eliminar con el nombre usuario en: 1 Diciembre 2006, 03:19 am
Hola nuevamente  ;D

Quisiera saber como eliminar dependiendo del usuario, por ejemplo:

Código:
If (Dir("c:\documents and settings\USUARIO\prueba.txt") <> "") Then
Kill "c:\Documents And Settings\USUARIO\prueba.txt"
End If


Ya intente con una API:

Código:
'API
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
    (ByVal lpbuffer As String, nSize As Long) As Long

Public Function UsuarioActual() As String
    'Esta función devuelve el nombre del Usuario
    Dim sBuffer As String
    Dim lSize As Long
    Dim sUsuario As String

    sBuffer = Space$(260)
    lSize = Len(sBuffer)
    Call GetUserName(sBuffer, lSize)
    If lSize > 0 Then
        sUsuario = Left$(sBuffer, lSize)
        'Quitarle el CHR$(0) del final...
        lSize = InStr(sUsuario, Chr$(0))
        If lSize Then
            sUsuario = Left$(sUsuario, lSize - 1)
        End If
    Else
        sUsuario = ""
    End If
    UsuarioActual = sUsuario
   
End Function


Y poniendo:
Código:

If (Dir("c:\documents and settings\UsuarioActual\prueba.txt") <> "") Then
Kill "c:\Documents And Settings\UsuarioActual\prueba.txt"
End If '



 Por declaro de la API, se supone que UsuarioActual, localiza el nombre.



Ayuda  :-( :huh: :huh: :huh:
66  Programación / Ejercicios / Re: Pantallazos para los ejercicios 5 y 6 en: 20 Noviembre 2006, 23:05 pm
Alguna ayuda paora la seis   :huh: ?

Como puedo hacer para que se proyecte la imagen en el Picturebox.
67  Programación / Programación Visual Basic / Re: de un txt a un list en: 19 Noviembre 2006, 21:59 pm
Si lo hize :(.
68  Programación / Programación Visual Basic / Re: de un txt a un list en: 19 Noviembre 2006, 21:28 pm
No funciona.  :-(
69  Programación / Programación Visual Basic / de un txt a un list en: 18 Noviembre 2006, 19:22 pm
Usteds saben como pasar lo que esta escrito en un txtbox a un listbox?


Son 10 txtbox, y los quiero pasar a un listbox (Seria con un boton para agregar).



70  Programación / Ejercicios / Re: Pantallazos para los ejercicios 3 y 4 en: 13 Noviembre 2006, 18:30 pm
Enseguida lo hago :)


Mandenme un mp y les paso el codigo... La idea es q los otros aprendan tambien por si solo  ;)
Páginas: 1 2 3 4 5 6 [7] 8
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines