kostenloser Webspace werbefrei: lima-city


Autoklick

lima-cityForumProgrammiersprachenBasic

  1. Autor dieses Themas

    b*****m

    Hi

    Wie kann ich ein Program schreiben, das in einem Interval von x Sekunden (kann man einstellen) einen Mausklick an Windows sendet?

    Da es dringend ist bitte gebt mir den Quellcode!!

    mfg Brianum
  2. Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!

    lima-city: Gratis werbefreier Webspace für deine eigene Homepage

  3. t*****b

    Die Stichworte müssten dir helfen:

    SetCursorPos
    mouse_event

    oder

    SendMessage + WM_LBUTTONDBLCLK

    Such das einfach mal in Google im Zusammenhang mit Basic, ich programmier das nicht.
  4. cbhp

    Co-Admin Kostenloser Webspace von cbhp

    cbhp hat kostenlosen Webspace.

    Du du keine Version von VB genannt hast, schreib ich mal die Lösung für VB.Net

    Intervall von x Sekunden: Über einen Timer lösen.

    Mausklicks an Windows senden: Also an "Windows" kann man keine Mausklicks senden, nur an Anwendungen.
    Über die SendKeys-Klasse lösen.

    Beispiel:

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

    AppActivate("Dokument1 - Microsoft Word")
    SendKeys.Send("abc")

    End Sub
  5. Autor dieses Themas

    b*****m

    version 5 brauch ich!
  6. cbhp

    Co-Admin Kostenloser Webspace von cbhp

    cbhp hat kostenlosen Webspace.

    Code für VB 5 (ich habs in VB 6 geschrieben, sollte aber kein Unterschied sein.)

    Option Explicit

    Private Sub Command1_Click()

    ' Beispiel: Der Taschenrechner wird gestartet,
    ' es werden Zahlen an ihn gesendet und berechnet.
    ' Anschließend wird der Taschenrechner wieder beendet.


    Dim AppID As Double
    Dim i As Integer

    ' Rechner starten.
    AppID = Shell("calc.exe", 1)

    ' Taschenrechner aktivieren.
    AppActivate AppID


    For i = 1 To 50
    ' Tastenanschläge senden, um die Werte von i zu addieren.
    SendKeys i & "{+}", True
    Next i
    ' Gesamtsumme abrufen.
    SendKeys "=", True
    ' Ergebnis in Zwischenablage kopieren
    SendKeys "^C", True
    ' Taschenrechner mit ALT+F4 beenden.
    SendKeys "%{F4}", True
    ' Ergebnis aus Zwischenablage abrufen
    MsgBox Clipboard.GetText

    End Sub
  7. cbhp

    Co-Admin Kostenloser Webspace von cbhp

    cbhp hat kostenlosen Webspace.

    Und um den Code regelmäßig auszuführen musst du das Steuerelement "Timer" zu deiner Form hinzufügen (ist dann bei der Ausführung versteckt.)

    Den Code dann in folgendes Ereignis einbauen:

    Private Sub Timer1_Timer()

    End Sub


    Tipp: Wenn du mehrere Tastenanschläge an eine Anwendung senden willst, solltest du immer vorher nochmal die Anwendung aktivieren, um sicherzustellen, dass wirklich die gewünschte Anwendung die Tastenanschläge erhält, denn der Benutzer deaktiviert durch Mausklick auf ein anderers Programm das gewünschte Programm.

    Beispiel:

    AppActivate AppID
    SendKeys '1', True
    AppActivate AppID
    SendKeys '2', True
    AppActivate AppID
    SendKeys '3', True
  8. Autor dieses Themas

    b*****m


    Danke, aber ich meinte das Programm führt einen Mausklick auf der Stelle aus, wo die Maus gerade steht. Es handelt sich um ein Porgramm, wo man die Tastatur nicht verwenden kann, sondern nur per Maus steuert. Dieses Programm will alle 5 Sekunden einen Klick.
  9. Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!

    lima-city: Gratis werbefreier Webspace für deine eigene Homepage

Dir gefällt dieses Thema?

Über lima-city

Login zum Webhosting ohne Werbung!