vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Mails senden, abrufen und decodieren - ganz easy ;-)  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Ein- und Umsteiger
Mausklick simulieren 
Autor: Caron
Datum: 21.04.12 22:07
Hallo zusammen

Ich schreibe gerade ein Programm das Mausbewegungen und Klicks aufzeichnen und später wieder abspielen können soll.

Das mit dem Aufzeichnen funktioniert soweit auch ganz gut. Ich speichere die Daten dann via Timer in einer Listbox ab

Beim Abspielen gibts dann aber Probleme.

Ich kann die Maus richtig Positionieren, aber wenn ich einen Klick simulieren will funktioniert das nicht bzw findet sich meine Maus plötzlich an einer ganz anderen Position wieder.

Hier noch der Code den ich verwende um einen klick zu simulieren: 
 Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles Button4.Click
        If ListBox1.SelectedItem.ToString.Contains("Linksrunter") = False Then
            If ListBox1.SelectedItem.ToString.Contains("Linksrauf") = False Then
                If ListBox1.SelectedItem.ToString.Contains("Rechtsrunter") = _
                  False Then
                    If ListBox1.SelectedItem.ToString.Contains("Rechtsrauf") = _
                    False Then
                        If ListBox1.SelectedItem.ToString.Contains( _
                        "Mitterunter") = False Then
                            If ListBox1.SelectedItem.ToString.Contains( _
                            "Mitterauf") = False Then
                                koord = Split(ListBox1.SelectedItem.ToString, _
                                ";")
                                System.Windows.Forms.Cursor.Position = New _
                                Point(Convert.ToInt32(koord(0)), _
                                Convert.ToInt32(koord(1)))
                            Else
                                koord = Split(ListBox1.SelectedItem.ToString, _
                                  ";")
                                Call mouse_event(MOUSEEVENTF_MIDDLEUP, _
                                Convert.ToInt32(koord(1)), Convert.ToInt32( _
                                koord(2)), 0, 0)
                            End If
                        Else
                            koord = Split(ListBox1.SelectedItem.ToString, ";")
                            Call mouse_event(MOUSEEVENTF_MIDDLEDOWN, _
                              Convert.ToInt32(koord(1)), Convert.ToInt32(koord( _
                              2)), 0, 0)
                        End If
                    Else
                        koord = Split(ListBox1.SelectedItem.ToString, ";")
                        Call mouse_event(MOUSEEVENTF_RIGHTUP, Convert.ToInt32( _
                          koord(1)), Convert.ToInt32(koord(2)), 0, 0)
                    End If
                Else
                    koord = Split(ListBox1.SelectedItem.ToString, ";")
                    Call mouse_event(VK_RBUTTON, Convert.ToInt32(koord(2)), _
                      Convert.ToInt32(koord(1)), 0, 0)
                End If
            Else
                koord = Split(ListBox1.SelectedItem.ToString, ";")
                Call mouse_event(MOUSEEVENTF_LEFTUP, Convert.ToInt32(koord(1)), _
                  Convert.ToInt32(koord(2)), 0, 0)
            End If
        Else
            koord = Split(ListBox1.SelectedItem.ToString, ";")
            Call mouse_event(VK_LBUTTON, Convert.ToInt32(koord(2)), _
              Convert.ToInt32(koord(1)), 0, 0)
        End If
 
    End Sub
Ich hoffe da kann jemand helfen
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Mausklick simulieren1.401Caron21.04.12 22:07
Re: Mausklick simulieren955Manfred X21.04.12 23:44

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel