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

 

 


Tema destacado: Guía actualizada para evitar que un ransomware ataque tu empresa


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Rutinas Interesantes
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Rutinas Interesantes  (Leído 15,735 veces)
soplo
Ex-Staff
*
Desconectado Desconectado

Mensajes: 3.592

Debian rool'z


Ver Perfil
Rutinas Interesantes
« en: 10 Septiembre 2006, 21:22 pm »

Hola
Voy a ir poniendo aquí rutinas que son interesantes por distintas razones.

Los que sepais de rutinas interesantes que agregar aquí mandarme un MP con el enlace puesto que este hilo estará bloqueado para impedir que se llene de basura.

Son bienvenidas rutinas sobre los siguientes temas:
a) temas de acceso a bases de datos
b) temas de comunicaciones (email, irc, web, ftp, sockets en general, ..., etc).
c) temas de control de la máquina y obtención de recursos (acceso y control de servicios, acceso y control de programas, instaladores, etc)
d) temas de control de dispositivos (informes, acceso a la impresora, .., etc)
e) Temas de acceso a las APIS
f) temas de acceso al registro y archivos INI
g) temas de creación y acceso a Logs

Aquí solo rutinas interesantes.

Como ejemplo este enlace de trucos visual basic
Trucos visual basic
http://www.elhacker.net/trucosvisual.htm

Un saludo


« Última modificación: 15 Mayo 2011, 00:27 am por LeandroA » En línea

Callar es asentir ¡No te dejes llevar!
soplo
Ex-Staff
*
Desconectado Desconectado

Mensajes: 3.592

Debian rool'z


Ver Perfil
Re: Rutinas Interesantes
« Respuesta #1 en: 10 Septiembre 2006, 21:31 pm »

Rutinas referentes a obtención de información del equipo

' ------------------------------------------------------------------------------------
'
' función para obtener el nombre del usuario actual
'
' devuelve
'   ' el nombre del usuario si tuvo éxito
'   ' "" si no lo tuvo
' Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Código:
Public Function ObtenerUsuario() 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
    ObtenerUsuario = sUsuario
End Function

Obtener nombre del equipo
' -----------------------------------------------------------------------------
' función para obtener el nombre completo del equipo
'
' devuelve :
'   ' el nombre del equipo si tuvo éxito
'   ' "" si no lo tuvo
'
' Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, _
             nSize As Long) As Long

Código:
Public Function ObtenerNombreEquipo() As String
Dim sBuffer As String, lSize As Long, Resultado As Long
Const MAX_COMPUTERNAME_LENGTH As Long = 31 'longitud máxima del nombre de un equipo
sBuffer = String(MAX_COMPUTERNAME_LENGTH + 1, vbNullChar)
lSize = MAX_COMPUTERNAME_LENGTH

Resultado = GetComputerName(sBuffer, lSize)
ObtenerNombreEquipo = IIf(Resultado, Left(sBuffer, lSize), "")

End Function

Obtener el path del directorio system
' ------------------------------------------------------------------------------------------------------
 
 ' función para obtener el path de system
 '
 ' Declare Function GetSystemDirectory Lib "kernel32.dll" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
 
Código:
Public Function ObtenerSystem() As String
    Dim DirectorioSystem As String * 255
    Dim CadenaResultante As Long

    CadenaResultante = GetSystemDirectory(DirectorioSystem, 255)
    ObtenerSystem = Left(DirectorioSystem, CadenaResultante)
End Function

Obtener el path de archivos temporales
' -------------------------------------------------------------------------------
'
' función para obtener el path de archivos temporales
'
Código:
Public Function ObtenerTemp() As String
    Dim Buffer As String, Size As Long
    Const MAX_PATH = 260

    ' Inicializamos la cadena donde se cargará la trayectoria
    Buffer = String(MAX_PATH, 0)

    ' Recuperamos la trayectoria
    Size = GetTempPath(Len(Buffer) - 1, Buffer)

    If Size <> 0 Then
        GetTempFolder = Left(Buffer, Size)
    End If

End Function

Funciones para obtener trayecto de carpetas especiales
' -------------------------------------------------------------------------------
'
' función para obtener el trayecto de carpetas especiales del usuario 'menu inicio','favoritos, 'escritorio'
'   'archivos de programa'
'
'Private Declare Function ShellAbout Lib "shell32.dll" Alias "ShellAboutA" (ByVal hWnd As Long, ByVal szApp As String, ByVal szOtherStuff As String, ByVal hIcon As Long) As Long
'Private Declare Function SHGetSpecialFolderLocation Lib "shell32.dll" (ByVal hwndOwner As Long, ByVal nFolder As Long, pidl As ITEMIDLIST) As Long
'Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long

Código:
Const CSIDL_DESKTOP = &H0
Const CSIDL_PROGRAMS = &H2
Const CSIDL_CONTROLS = &H3
Const CSIDL_PRINTERS = &H4
Const CSIDL_PERSONAL = &H5
Const CSIDL_FAVORITES = &H6
Const CSIDL_STARTUP = &H7
Const CSIDL_RECENT = &H8
Const CSIDL_SENDTO = &H9
Const CSIDL_BITBUCKET = &HA
Const CSIDL_STARTMENU = &HB
Const CSIDL_DESKTOPDIRECTORY = &H10
Const CSIDL_DRIVES = &H11
Const CSIDL_NETWORK = &H12
Const CSIDL_NETHOOD = &H13
Const CSIDL_FONTS = &H14
Const CSIDL_TEMPLATES = &H15
Const MAX_PATH = 260

Public Function ObtenerMenuUsuario() As String
    ObtenerMenuUsuario = GetSpecialfolder(CSIDL_STARTMENU)
End Function

Public Function ObtenerFavoritos() As String
    ObtenerFavoritos = GetSpecialfolder(CSIDL_FAVORITES)
End Function
Public Function ObtenerMenuProgramas() As String
    ObtenerMenuProgramas = GetSpecialfolder(CSIDL_PROGRAMS)
End Function
Public Function ObtenerEscritorio() As String
    ObtenerEscritorio = GetSpecialfolder(CSIDL_DESKTOP)
End Function


En línea

Callar es asentir ¡No te dejes llevar!
soplo
Ex-Staff
*
Desconectado Desconectado

Mensajes: 3.592

Debian rool'z


Ver Perfil
Re: Rutinas Interesantes
« Respuesta #2 en: 10 Septiembre 2006, 21:31 pm »

Rutinas para trabajar con archivos INI

Leer un archivo INI
' función para leer en un archivo INI
'
' Parámetros:
'       ' sección : la sección (suele ir entre corchetes)
'       ' Entrada : la entrada a escribir
'       ' ArchivoIni : Archivo donde se quiere escribir
'
' Devuelve
'       ' el valor si tuvo éxito
'       ' "" si no tuvo 'exito

' Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" _
(ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As _
String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long

Código:
Public Function LeerIni(sección As String, Entrada As String, ArchivoIni As String)
    Dim I As Integer
    Dim Dato As String
    Dato = String$(128, " ")
    I = GetPrivateProfileString(sección, Entrada, Directorio, Dato, Len(Dato), ArchivoIni)
    LeerIni = IIf(I > 0, Est, "")
End Function

Escribir en un archivo INI
' función para escribir en un archivo INI
'
' Parámetros:
'       ' sección : la sección (suele ir entre corchetes)
'       ' Entrada : la entrada a escribir
'       ' DatoAEscribir : dato que se quiere escribir con un máximo de 128 caracteres
'       ' ArchivoIni : Archivo donde se quiere escribir
'
' Devuelve
'       ' true si tuvo éxito
'       ' false si no tuvo 'exito
'
' Declare Function WritePrivateProfileString Lib "kernel32" Alias _
    "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As _
    Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

Código:
Public Function EscribirIni(sección As String, Entrada As String, DatoAEscribir As String, ArchivoIni)
    Dim I As Integer
    I = WritePrivateProfileString(sección, Entrada, "", , DatoAEscribir, ArchivoIni)
    EscribirIni = IIf(I = 1, True, False)
End Function
« Última modificación: 10 Septiembre 2006, 21:35 pm por soplo » En línea

Callar es asentir ¡No te dejes llevar!
soplo
Ex-Staff
*
Desconectado Desconectado

Mensajes: 3.592

Debian rool'z


Ver Perfil
Re: Rutinas Interesantes
« Respuesta #3 en: 7 Diciembre 2006, 12:52 pm »

Rutinas para administrar el equipo

Rutina para Apagar el equipo (cortesía de xDie)
Código:
Private Declare Function ExitWindowsEx& Lib "user32" (ByVal
uFlags&, ByVal dwReserved&)

Private Sub Command1_Click()
Dim i as integer
i = ExitWindowsEx(1, 0&)
End Sub

Rutina para reiniciar Windows con nuevo usuario (cortesía de xDie)
Código:
Private Declare Function ExitWindowsEx& Lib "user32" (ByVal
uFlags&, ByVal dwReserved&)

Private Sub Command2_Click()
Dim i as integer
i = ExitWindowsEx(0, 0&)
End Sub

Rutina para reiniciar el sistema (cortesía de xDie)
Código:
Private Declare Function ExitWindowsEx& Lib "user32" (ByVal
uFlags&, ByVal dwReserved&)

Private Sub Command3_Click()
Dim i as integer
i = ExitWindowsEx(2, 0&)
End Sub
« Última modificación: 7 Diciembre 2006, 12:54 pm por soplo » En línea

Callar es asentir ¡No te dejes llevar!
soplo
Ex-Staff
*
Desconectado Desconectado

Mensajes: 3.592

Debian rool'z


Ver Perfil
Re: Rutinas Interesantes
« Respuesta #4 en: 16 Diciembre 2006, 13:58 pm »

Rutinas para la administración de procesos

Ocultar procesos del administrador de tareas sin hook
http://foro.elhacker.net/index.php/topic,152139.0.html
En línea

Callar es asentir ¡No te dejes llevar!
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
trucos y rutinas
Programación Visual Basic
Zeroql 0 774 Último mensaje 11 Septiembre 2006, 23:52 pm
por Zeroql
trucos y rutinas 2
Programación Visual Basic
Zeroql 4 1,385 Último mensaje 17 Septiembre 2006, 18:16 pm
por Zeroql
Llamar pag. con rutinas
PHP
Yekka 2 1,567 Último mensaje 29 Abril 2008, 04:20 am
por Yekka
problema con rutinas javascript agregadas dinamicamente
Desarrollo Web
kadmo 0 1,698 Último mensaje 30 Diciembre 2011, 14:57 pm
por kadmo
Rutinas Administrativas en Vb 6.0 - Ayuda con proyecto
Programación Visual Basic
El_Holandes_errante 0 1,371 Último mensaje 28 Junio 2012, 16:10 pm
por El_Holandes_errante
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines