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

 

 


Tema destacado: (TUTORIAL) Aprende a emular Sentinel Dongle By Yapis


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Eliminar con el nombre usuario
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Eliminar con el nombre usuario  (Leído 1,986 veces)
sp26

Desconectado Desconectado

Mensajes: 88


Ver Perfil
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:


En línea

WarGhost
I love basket


Desconectado Desconectado

Mensajes: 1.070



Ver Perfil WWW
Re: Eliminar con el nombre usuario
« Respuesta #1 en: 1 Diciembre 2006, 04:22 am »

Código:
If (Dir(Environ("HOMEDRIVE") & Environ("HOMEPATH") & "\prueba.txt") <> "") Then
Kill Environ("HOMEDRIVE") & Environ("HOMEPATH") & "\prueba.txt"
End If


En línea

sp26

Desconectado Desconectado

Mensajes: 88


Ver Perfil
Re: Eliminar con el nombre usuario
« Respuesta #2 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...)
En línea

WarGhost
I love basket


Desconectado Desconectado

Mensajes: 1.070



Ver Perfil WWW
Re: Eliminar con el nombre usuario
« Respuesta #3 en: 1 Diciembre 2006, 04:58 am »

Citar
Kill Environ("HOMEDRIVE") & Environ("HOMEPATH") & "\Escritorio\prueba.txt"
En línea

sp26

Desconectado Desconectado

Mensajes: 88


Ver Perfil
Re: Eliminar con el nombre usuario
« Respuesta #4 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
En línea

WarGhost
I love basket


Desconectado Desconectado

Mensajes: 1.070



Ver Perfil WWW
Re: Eliminar con el nombre usuario
« Respuesta #5 en: 1 Diciembre 2006, 05:44 am »

Código:
If (Dir(Environ("HOMEDRIVE") & Environ("HOMEPATH")  & "\Escritorio\" & UsuarioActua & ".EXE") <> "") Then
Kill Environ("HOMEDRIVE") & Environ("HOMEPATH") & "\Escritorio\" & UsuarioActua & ".EXE"
End If
En línea

sp26

Desconectado Desconectado

Mensajes: 88


Ver Perfil
Re: Eliminar con el nombre usuario
« Respuesta #6 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:
En línea

Pitoniso

Desconectado Desconectado

Mensajes: 118


Ver Perfil
Re: Eliminar con el nombre usuario
« Respuesta #7 en: 1 Diciembre 2006, 14:59 pm »

Jajaja clase de casualidad yo choque los otros dias con una situacion igualita que esta.. bueno te dejo mi codigo..

chao me dices si pincho.. bye

'API para obtener el usuario actual
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
    (ByVal lpbuffer As String, nSize As Long) As Long

'Esta función devuelve el nombre del Usuario
Public Function UsuarioActual() As String
    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


Private Sub Command1_Click()
    Kill "C:\Documents and Settings\" & UsuarioActual & "\" & "prueba.txt"
End Sub
En línea

sp26

Desconectado Desconectado

Mensajes: 88


Ver Perfil
Re: Eliminar con el nombre usuario
« Respuesta #8 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
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Eliminar nombre de google
Mensajería
ccrunch 1 2,457 Último mensaje 19 Octubre 2013, 02:29 am
por daryo
capturar el nombre de usuario que hace un insert
Bases de Datos
d91 4 2,622 Último mensaje 18 Septiembre 2015, 02:43 am
por d91
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines