Simulation Mousclick mit VB 2008

 Public Class Class1

    Public Enum MouseEvent

        Move = 1

        LeftDown = 2

        LeftUp = 4

        RightDown = 8

        RightUp = 16

        MiddleDown = 32

        MiddleUp = 64

        XDown = 128

        XUp = 256

        Wheel = 2048

    End Enum

    Private Declare Sub mouse_event Lib "user32.dll" (ByVal dwFlags As MouseEvent, ByVal dx As Integer, ByVal dy As Integer, ByVal dwdata As Integer, ByVal dwExtraInfo As Integer)

    Public Shared Sub Click(ByVal MouseEvent As MouseEvent, ByVal Location As Point, Optional ByVal Absolute As Boolean = True)

        Dim pt As Point = Windows.Forms.Cursor.Position 'Position des Cursors speichern

        Windows.Forms.Cursor.Position = Location

        Dim x As Integer = Location.X * 65535 / Screen.PrimaryScreen.Bounds.Width

        Dim y As Integer = Location.Y * 65535 / Screen.PrimaryScreen.Bounds.Height

        If Absolute = True Then

            mouse_event(MouseEvent Or 32768, x, y, 0, 0)

        Else

            mouse_event(MouseEvent, x, y, 0, 0)

        End If

        Windows.Forms.Cursor.Position = pt

    End Sub

End Class

Class1.Click(Class1.MouseEvent.LeftDown, New Point(MousePosition.X, MousePosition.Y))

Class1.Click(Class1.MouseEvent.LeftUp, New Point(MousePosition.X, MousePosition.Y))