Hallo, liebe Profis!!
Ich möchte eine Windows Forms App erstellen, mit der man die Maus steuern kann, d.h. ein paar Klicks auf Schaltflächen einer Videoschnitt-Software (außerhalb der Form!) ausführen kann.
Der erste Klick geht auf das Taskleisten-Kästchen der Software - um diese in den Vordergrund zu holen.
Der zweite Klick soll auf eine Schaltfläche der Software gehen.
Das Positionieren des Zeigers funktioniert - der linke Mausklick nicht...
Allerdings sehe ich beim Zeiger, wenn der Klick ausgeführt wird, einmal kurz die Kreis-Animation des Zeigers...
Habe den Code mit meinem Versuch angehängt...
Ich würde mich sehr freuen, wenn ihr mir sagen könntet, was ich falsch mache, bzw. was ich besser machen könnte...
Vielen Dank für die Hilfe im Voraus!!
Viele Grüße,
kwon
Ich möchte eine Windows Forms App erstellen, mit der man die Maus steuern kann, d.h. ein paar Klicks auf Schaltflächen einer Videoschnitt-Software (außerhalb der Form!) ausführen kann.
Der erste Klick geht auf das Taskleisten-Kästchen der Software - um diese in den Vordergrund zu holen.
Der zweite Klick soll auf eine Schaltfläche der Software gehen.
Das Positionieren des Zeigers funktioniert - der linke Mausklick nicht...
Allerdings sehe ich beim Zeiger, wenn der Klick ausgeführt wird, einmal kurz die Kreis-Animation des Zeigers...
Habe den Code mit meinem Versuch angehängt...
Ich würde mich sehr freuen, wenn ihr mir sagen könntet, was ich falsch mache, bzw. was ich besser machen könnte...
Vielen Dank für die Hilfe im Voraus!!
Viele Grüße,
kwon
VB.NET-Quellcode
- Imports System.Runtime.InteropServices
- Imports System.Threading
- Public Class Form1
- <DllImport("user32.dll")>
- Private Shared Sub mouse_event(dwFlags As UInteger, dx As UInteger, dy As UInteger, dwData As UInteger, dwExtraInfo As Integer)
- End Sub
- Public Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal dwData As Long, ByVal dwExtraInfo As Long)
- Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- 'Koordinaten für Video Easy Fenster aktivieren
- Mk(830, 1055)
- Thread.Sleep(2000)
- 'Koordinaten für Video Easy Aufnahme beenden
- Mk(720, 590)
- End Sub
- Function Mk(Xpos As Integer, Ypos As Integer)
- 'Mauszeiger positionieren
- System.Windows.Forms.Cursor.Position = New Point(Xpos, Ypos)
- Timer1.Enabled = True
- Timer1.Start()
- Timer1.Stop()
- Timer1.Enabled = False
- End Function
- Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
- Const MOUSEEVENT_LEFTDOWN As UInteger = &H2
- Const MOUSEEVENT_LEFTUP As UInteger = &H4
- mouse_event(MOUSEEVENT_LEFTDOWN, 0, 0, 0, 0)
- Thread.Sleep(100)
- mouse_event(MOUSEEVENT_LEFTUP, 0, 0, 0, 0)
- End Sub
- End Class