CrAzY hOuSe
Locos por la programación

noviembre 1999 - .net

Sort by: Most Recent | Most Viewed | Most Commented

  • Simular un evento del ratón

    Simula un evento del ratón Const MOUSEEVENTF_MOVE = &H1 ' movimiento del mouse Const MOUSEEVENTF_LEFTDOWN = &H2 ' botón izquierdo presionado Const MOUSEEVENTF_LEFTUP = &H4 ' botón izquierdo soltado Const MOUSEEVENTF_RIGHTDOWN ...
    Filed under: ,

  • Situar el cursor en una posición especifica

    Establece la posición del cursor. Las coordenadas son absolutas y se miden en pixels. Private Declare Function SetCursorPos Lib "user32" ( ByVal x As Long , ByVal y As Long ) As Long Sub Posicionar_Cursor(X As Long , Y As Long ) Dim Res As Long...
    Filed under: ,

  • Asociar Extensiones de Ficheros con Programas

    Esta rutina asocia la extensión de un fichero con un programa para su apertura por defecto. Option Explicit ' Funciones API para manejar el registro Public Declare Function RegCloseKey Lib "advapi32.dll" ( ByVal hKey As Long ) As Long Public...
    Filed under: ,

  • Conocer Privilegios Usuario NT

    Esta función devuelve Verdadero o Falso dependiendo si el usuario actual es Administrador del Sistema o no. Sólo para NT: Const GENERIC_READ = &H80000000 Const GENERIC_WRITE = &H40000000 Const GENERIC_EXECUTE = &H20000000 Public Declare Function...
    Filed under:

  • Información Zona Horaria

    Crea un nuevo proyecto, pega el código en un formulario y pulsa F5: Option Explicit Private Type SYSTEMTIME wYear As Integer wMonth As Integer wDayOfWeek As Integer wDay As Integer wHour As Integer wMinute As Integer wSecond As Integer wMilliseconds As...
    Filed under:

  • Recursos Libres del sistema

    Crea un nuevo proyecto, pega el código en un formulario y pulsa F5: Private Declare Function GetFreeSystemResources Lib "rsrc32.dll" Alias "_MyGetFreeSystemResources32@4" _ ( ByVal restype As Integer ) As Integer Private Sub Form_Activate...
    Filed under: ,
MavericK
Powered by Community Server (Non-Commercial Edition), by Telligent Systems