mijn application op een knop van een ander programma laten drukken

[infur]

weet iemand de code oo mijn application op een programma zijn knop te laten drukken.

 

[Pizara]

Imports System.Console
Imports System.Runtime.InteropServices

Public Class Form1

    Friend WithEvents SimButton As New Button

    <DllImport("user32.dll")> _
Public Shared Sub mouse_event(ByVal dwFlags As Integer, ByVal dx As Integer, ByVal dy As Integer, ByVal cButtons As Integer, ByVal dwExtraInfo As Integer)
    End Sub

    Public Enum MouseEventType As Integer
        LeftDown = &H2
        LeftUp = &H4
        RightDown = &H8
        RightUp = &H10
    End Enum


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        InitializeComponent()

        Me.Left = 100
        Me.Top = 100

        SimButton.Left = 100
        SimButton.Top = 100
        SimButton.Text = "Klik mij"
        Me.Controls.Add(SimButton)

        Cursor.Position = New Point(240, 240)
        mouse_event(MouseEventType.LeftDown, Cursor.Position.X, Cursor.Position.Y, 0, IntPtr.Zero)
        mouse_event(MouseEventType.LeftUp, Cursor.Position.X, Cursor.Position.Y, 0, IntPtr.Zero)

    End Sub

End Class

 

[infur]

Imports System.Console
Imports System.Runtime.InteropServices

Public Class Form1

    Friend WithEvents SimButton As New Button

    <DllImport("user32.dll")> _
Public Shared Sub mouse_event(ByVal dwFlags As Integer, ByVal dx As Integer, ByVal dy As Integer, ByVal cButtons As Integer, ByVal dwExtraInfo As Integer)
    End Sub

    Public Enum MouseEventType As Integer
        LeftDown = &H2
        LeftUp = &H4
        RightDown = &H8
        RightUp = &H10
    End Enum


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        InitializeComponent()

        Me.Left = 100
        Me.Top = 100

        SimButton.Left = 100
        SimButton.Top = 100
        SimButton.Text = "Klik mij"
        Me.Controls.Add(SimButton)

        Cursor.Position = New Point(240, 240)
        mouse_event(MouseEventType.LeftDown, Cursor.Position.X, Cursor.Position.Y, 0, IntPtr.Zero)
        mouse_event(MouseEventType.LeftUp, Cursor.Position.X, Cursor.Position.Y, 0, IntPtr.Zero)

    End Sub

End Class

bedankt maar hoe kan je hem laten clikken?

 

[Pizara]

mouse_event(MouseEventType.LeftDown, Cursor.Position.X, Cursor.Position.Y, 0, IntPtr.Zero)
mouse_event(MouseEventType.LeftUp, Cursor.Position.X, Cursor.Position.Y, 0, IntPtr.Zero)

 

[Pizara]

er is geen 'standaard' functie die een muisklik kan emuleren.
Deze API doet dat wel.

 

[infur]

bedankt

bedankt