What does this error mean?

[Bill Wohlers]

This is my code:

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
SetMousePos(My.Computer.Screen.Bounds.Width, (My.Computer.Screen.Bounds.Height - 40) / 2)
End Sub
End Class

Module Module1

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

Public Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long

Public Declare Function GetCursorPos Lib "user32" (ByVal lpPoint As POINTAPI) As Long

Public Const MOUSEEVENTF_LEFTDOWN = &H2

Public Const MOUSEEVENTF_LEFTUP = &H4

Public Const MOUSEEVENTF_MIDDLEDOWN = &H20

Public Const MOUSEEVENTF_MIDDLEUP = &H40

Public Const MOUSEEVENTF_RIGHTDOWN = &H8

Public Const MOUSEEVENTF_RIGHTUP = &H10

Public Const MOUSEEVENTF_MOVE = &H1

Public Structure POINTAPI

Dim x As Long

Dim y As Long

End Structure

Public Function GetX() As Long

Dim n As POINTAPI

GetCursorPos

GetX = n.x

End Function

Public Function GetY() As Long

Dim n As POINTAPI

GetCursorPos

GetY = n.Y



End Function

Public Sub LeftClick()

LeftDown()

LeftUp()

End Sub

Public Sub LeftDown()

mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)

End Sub
Public Sub LeftUp()

mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)

End Sub

Public Sub MiddleClick()

MiddleDown()

MiddleUp()

End Sub

Public Sub MiddleDown()

mouse_event(MOUSEEVENTF_MIDDLEDOWN, 0, 0, 0, 0)

End Sub

Public Sub MiddleUp()

mouse_event(MOUSEEVENTF_MIDDLEUP, 0, 0, 0, 0)

End Sub

Public Sub RightClick()

RightDown()

RightUp()

End Sub

Public Sub RightDown()

mouse_event(MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0)

End Sub

Public Sub RightUp()

mouse_event(MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0)

End Sub

Public Sub MoveMouse(ByVal xMove As Long, ByVal yMove As Long)

mouse_event(MOUSEEVENTF_MOVE, xMove, yMove, 0, 0)

End Sub

Public Sub SetMousePos(ByVal xPos As Long, ByVal yPos As Long)

SetCursorPos(xPos, yPos)

End Sub



End Module


This is the error:


A call to PInvoke function Autopilot!Autopilot.Module1::SetCursorPos 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.


My project name is "Autopilot." I am basically trying to get the mouse to center screen but a little bit (40 pixels) under. I have no idea what this error means.


Thanks for any help in advance!




“It is not that Im so smart. But I stay with the questions much longer.” ― Albert Einstein

Continue reading...