• Sábado 9 de Noviembre de 2024, 03:46

Autor Tema:  Error En El Uso De Sendmessage!!!  (Leído 1034 veces)

parabolt

  • Nuevo Miembro
  • *
  • Mensajes: 1
    • Ver Perfil
Error En El Uso De Sendmessage!!!
« en: Martes 17 de Junio de 2008, 11:47 »
0
Hola necesitaria saber como arreglar este codigo... porque llevo un porron de horas y ya no se por donde atacarlo...

quiero lanzar un SendMessage pero me peta con el error:

A call to PInvoke function 'SendMessage!SendMessage.Form1::SendMessage' has unbalanced the stack. This is likely because the managed PInvoke signature does not match the unmanaged target signature. Check that the calling convention and parameters of the PInvoke signature match the target unmanaged signature.


'Declaración del API de 32 bits.
Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long


Const WM_COPY = &H301


Dim hWnd As Long = GetForegroundWindow()

Dim x As Long

x = SendMessage(hWnd, WM_COPY, 0&, 0&)


el error este  del unbalanced the stack es tipico de cuando los parametros no quadran con el tipo declarado... pero es que lo he probado de 1000 maneras (


Alguna idea por favor??