CrAzY hOuSe
Locos por la programación

enero 1999 - .net

.net

Syndication

Recent Posts

Tags

View more

Archives

Sort by: Most Recent | Most Viewed | Most Commented

  • Obtener Icono de un EXE

    Este código devuelve el icono que representa la aplicación en el entorno de Windows. Es el icono que lleva almacenado el EXE en su interior. Para probar el siguiente ejemplo, debes crear en un formulario 1 PictureBox que se llame "PicImagen"...
    Filed under: ,

  • Conocer el nombre del usuario

    Este API devuelve el nombre del usuario que esta ejecutando nuestro programa, además el código de ejemplo devuelve el nombre del ordenador desde donde lo esta ejecutando. Option Explicit Private Declare Function GetUserName Lib "advapi32.dll"...
    Filed under: ,

  • Comprobar si existe tarjeta de sonido

    Prueba a ver con el siguiente código: Declare Function waveOutGetNumDevs Lib "winmm.dll" () As Long Function DetectarSonido() As Boolean Dim Res As Integer Res = waveOutGetNumDevs() If Res > 0 Then DetectarSonido = True Else DetectarSonido...
    Filed under: ,

  • Borrar fichero enviándolo a la Papelera de Reciclaje

    Esta función borra un fichero y lo envía a la Papelera de Reciclaje por si luego el usuario quiere recuperarlo. Copia este código en un formulario y ejecuta el código. Antes debes indicar el fichero que quieres borrar. También puedes enviarle a la función...
    Filed under: ,

  • Activar / Desactivar Ctrl-Alt-Supr y Ctrl-Tab

    Con estas dos funciones puedes activar o desactivar la utilización de Ctrl-Alt-Supr y de Ctrl-Tabulador. Para realizar este proyecto debes crear un formulario con 2 botones, uno "Habilitar" y otro "DesHabilitar". Private Declare Function...
    Filed under: ,

  • Cambiar los Colores del Sistema

    'Declaracion de SetSysColor Declare Function SetSysColors Lib "user32" Alias "SetSysColors" ( ByVal nChanges As Long , lpSysColor As Long , _ lpColorValues As Long ) As Long 'COSTANTES Public Const COLOR_SCROLLBAR = 0 'The...
    Filed under: ,

  • Cambiar resolución de pantalla

    Te paso el código para hacer lo que pides. Ten en cuenta que sólo funciona en 32 bits. Lo intenté en 16 bits pero una de las funciones que se usan (ahora no recuerdo cual), no está registrada en la DLL de la versión 16 bits. Espero que tu aplicación sea...
    Filed under: ,

  • Calcular ID de un Audio CD según Tracks

    Efectivamente no todos los CDs tienen un identificador. De la Knowledge Base de Microsoft extraje la idea de obtener un ID único a base de operar con el numero y duración de las canciones. Y la verdad es que funciona !!!!. Hace tiempo hice un reproductor...
    Filed under: ,

  • Modalidad de Inicio de Windows

    Con una simple llamada al API, podemos saber como se ha iniciado el sistema. Es decir, en modo normal, a prueba de fallos o a prueba de fallos con soporte de Red. http://descarga.e-mision.net/API31.zip Option Explicit Private Declare Function GetSystemMetrics...
    Filed under: ,

  • Obtener UPC de un Audio CD

    Si quieres obtener el código UPC que llevan los discos puedes usar la función mciSendString con el comando "info cdaudio upc", tal y como se hace en el siguiente fragmento: Dim UPC As String * 256 mciSendString "info cdaudio upc" ...
    Filed under: ,

  • Tirar Tareas de Windows desde VB

    Esta función busca el identificador de la aplicación que quieres tirar, y después envía el mensaje al Windows para destruir ese identificador. Hace la función de Ctrl-Alt-Supr... Finalizar Tarea. Inserta este código en un módulo y llama a la función enviando...
    Filed under: ,

  • Restringir entrada en TextBox (solo números)

    Una forma sencilla (aunque algo tediosa) de hacerlo es controlando el evento KeyPress Sub Text2_KeyPress (KeyAscii As Integer ) En keyascii nos devuelve el código Ascii de la tecla pulsada con Chr(KeyAscii) obtenemos el carácter correspondiente y si pones...
    Filed under: ,

  • Preguntando al usuario por un directorio en Windows 95/98

    Los diálogos predeterminados de Windows 95/98 (common dialogs) son adecuados para seleccionar ficheros, pero ¿qué ocurre si se quiere seleccionar un directorio?. Lo que se debe hacer en este caso es utilizar la función SHBrowseForFolder de la API de Windows...
    Filed under: ,

  • Parpadeo Barra Formulario

    Apaga o enciende la barra del formulario: http://descarga.e-mision.net/API26.zip Declare Function FlashWindow Lib "user32" ( ByVal hwnd As Long , ByVal bInvert As Long ) As Long Res = FlashWindow( Me .hwnd, True ) Los parámetros son el identificador...
    Filed under: ,

  • Obtener el path largo de la ruta de un fichero

    Obtener el path largo de la ruta de un fichero Public Function GetLongFilename( ByVal sShortName As String ) As String Dim sLongName As String Dim sTemp As String Dim iSlashPos As Integer 'Add to short name to prevent Instr from failing sShortName...
    Filed under: ,
1 2 3 4 Next >
MavericK
Powered by Community Server (Non-Commercial Edition), by Telligent Systems