Título: Rutinas Interesantes Publicado por: soplo 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 (http://www.elhacker.net/trucosvisual.htm) Un saludo Título: Re: Rutinas Interesantes Publicado por: soplo 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 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 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 Obtener el path de archivos temporales ' ------------------------------------------------------------------------------- ' ' función para obtener el path de archivos temporales ' Código: Public Function ObtenerTemp() As String 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 Título: Re: Rutinas Interesantes Publicado por: soplo 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) 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) Título: Re: Rutinas Interesantes Publicado por: soplo 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 Rutina para reiniciar Windows con nuevo usuario (cortesía de xDie) Código: Private Declare Function ExitWindowsEx& Lib "user32" (ByVal Rutina para reiniciar el sistema (cortesía de xDie) Código: Private Declare Function ExitWindowsEx& Lib "user32" (ByVal Título: Re: Rutinas Interesantes Publicado por: soplo 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 (http://foro.elhacker.net/index.php/topic,152139.0.html) |