Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

Biblioteca de Apis de Windows

  • 23 Respuestas
  • 14935 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado alexander1712

  • *
  • Underc0der
  • Mensajes: 851
  • Actividad:
    5%
  • Reputación -2
    • Ver Perfil
    • El blog del programador
    • Email
« Respuesta #20 en: Enero 26, 2013, 02:40:04 am »
Nombre:
GetCursorPos

Declaracion:

Código: [Seleccionar]
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Explicacion:
Esta api sirve para obtener las coordenadas del mouse.

Ejemplo de uso:

Código: [Seleccionar]
Option Explicit

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
 
Private Type POINTAPI
   x As Long
   y As Long
End Type
 
Public Function Coordenadas() As String
Dim Coor As POINTAPI
   GetCursorPos Coor
   Coordenadas = "Coordenada en x: " & Coor.x & "Cordenada en y: " & Coor.y
End Function

Private Sub timer1_timer()
   Me.Caption = Coordenadas
End Sub

Desconectado alexander1712

  • *
  • Underc0der
  • Mensajes: 851
  • Actividad:
    5%
  • Reputación -2
    • Ver Perfil
    • El blog del programador
    • Email
« Respuesta #21 en: Enero 26, 2013, 02:40:46 am »
Nombre:
SetWindowText

Declaracion:

Código: [Seleccionar]
Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long
Explicacion:
Esta api sirve para cambiar el texto de una ventana

Ejemplo de uso:

Código: [Seleccionar]
Option Explicit

Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long

Private Sub CmdCambiarTexto_Click()
   SetWindowText Me.hwnd, "Aca_va_el_texto"
End Sub

Desconectado alexander1712

  • *
  • Underc0der
  • Mensajes: 851
  • Actividad:
    5%
  • Reputación -2
    • Ver Perfil
    • El blog del programador
    • Email
« Respuesta #22 en: Enero 26, 2013, 02:41:06 am »
GetForegroundWindow

Declaracion:

Código: [Seleccionar]
Private Declare Function GetForegroundWindow Lib "user32.dll" () As Long
Explicacion:
Devuelve el Handler de la ventana activa.

Ejemplo de uso:

Código: [Seleccionar]
Option Explicit

Private Declare Function GetForegroundWindow Lib "user32.dll" () As Long
Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Long) As Integer

Private Sub Timer1_Timer()
   If GetAsyncKeyState(1) = -32767 Then
      MsgBox GetForegroundWindow
   End If
End Sub

En este caso hemos utilizado esta api en conjunto con GetAsyncKeyState(), para que en elmomento que se haga un click izquierdo, nos muestre el hWnd (Handler) de la ventana activa

Desconectado alexander1712

  • *
  • Underc0der
  • Mensajes: 851
  • Actividad:
    5%
  • Reputación -2
    • Ver Perfil
    • El blog del programador
    • Email
« Respuesta #23 en: Enero 26, 2013, 02:41:25 am »
Nombre:
mouse_event

Declaracion:

Código: [Seleccionar]
Private Declare Sub mouse_event Lib "user32.dll" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Explicacion:
simula las pulsaciones del mouse.

Ejemplo de uso:

Código: [Seleccionar]
Option Explicit

Private Declare Sub mouse_event Lib "user32.dll" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)

Private Sub Command1_Click()
   Call mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
End Sub

Algunas constantes son:

Código: [Seleccionar]
    * Private Const MOUSEEVENTF_LEFTDOWN As Long = &H2
    * Private Const MOUSEEVENTF_LEFTUP As Long = &H4
    * Private Const MOUSEEVENTF_MIDDLEDOWN As Long = &H20
    * Private Const MOUSEEVENTF_MIDDLEUP As Long = &H40
    * Private Const MOUSEEVENTF_MOVE As Long = &H1
    * Private Const MOUSEEVENTF_RIGHTDOWN As Long = &H8
    * Private Const MOUSEEVENTF_RIGHTUP As Long = &H10
    * Private Const MOUSEEVENTF_VIRTUALDESK As Long = &H4000
    * Private Const MOUSEEVENTF_WHEEL As Long = &H800
    * Private Const MOUSEEVENTF_XDOWN As Long = &H80
    * Private Const MOUSEEVENTF_XUP As Long = &H100

 

¿Te gustó el post? COMPARTILO!



Apagar el equipo, reiniciar Windows, reiniciar el Sistema

Iniciado por ANTRAX

Respuestas: 0
Vistas: 2067
Último mensaje Julio 26, 2010, 10:31:47 am
por ANTRAX
Como Guardar datos en el registro de Windows

Iniciado por ANTRAX

Respuestas: 0
Vistas: 2132
Último mensaje Julio 26, 2010, 11:03:30 am
por ANTRAX
Detener Apagado de Windows...

Iniciado por ANTRAX

Respuestas: 0
Vistas: 2319
Último mensaje Julio 26, 2010, 11:46:39 am
por ANTRAX
ProgressBar al estilo Windows 95

Iniciado por ANTRAX

Respuestas: 0
Vistas: 2200
Último mensaje Julio 26, 2010, 01:38:02 pm
por ANTRAX
[VB6][SNIPPET] mAPIPatchByID - Carga APIs dinamicamente (Late binding)

Iniciado por Karcrack

Respuestas: 0
Vistas: 2162
Último mensaje Junio 16, 2013, 06:27:34 pm
por Karcrack