Maus Klick Befehl ...

07/04/2018 08:57 Kapuzini#1
Hey Com,

ich habe folgendes Problem:
Ich möchte gern ein Programm schreiben der für mich ein paar Mausklicks (die ich Tag täglich mehrere male machen muss) in einem Browser macht.
Ich scheitere aber schon Gnadenlos am Anfang.
Das einzige was ich schaffe ist dass das Programm die Maus in die richtige Position bringt. Aber das war's auch.

Folgendes habe ich mir für den Anfang gedacht:
Button 1 wird gedrückt -> Maus wird zu Pos. XY gebracht -> Klick -> Pos XY etc.

Folgendes habe ich (ich weiß ist nichts):

Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Windows.Forms.Cursor.Position = New Point(465, 9)
'Windows.Forms.MouseButtons.Left (Will nicht gehen)

End Sub
End Class

Kann jemanden einen sehr blutigen Anfänger helfen? habe viel Gegoogelt und auch das brachte mir nichts >.>
07/04/2018 09:07 Ludder231#2
Dazu eignet sich wohl am besten AutoIT. Da brauchste auch keine DLLs oderso einbinden.

PHP Code:
Global $g_bPaused = False


HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")
HotKeySet("{F1}", "Start")

While 1
    Sleep(100)
WEnd

func Start()
   MoveMouse()
EndFunc

Func MoveMouse()

   while True
      MouseClick($MOUSE_CLICK_LEFT, 0, 500, 2)
      MouseClick($MOUSE_CLICK_LEFT, 0, 100, 2)
   WEnd

EndFunc

Func TogglePause()
    $g_bPaused = Not $g_bPaused
    While $g_bPaused
        Sleep(100)
        ToolTip('Script is "Paused"', 0, 0)
    WEnd
    ToolTip("")
EndFunc   ;==>TogglePause

Func Terminate()
    Exit
 EndFunc   ;==>Terminate 
[Only registered and activated users can see links. Click Here To Register...]
07/04/2018 09:15 Kapuzini#3
Quote:
Originally Posted by Ludder231 View Post
Dazu eignet sich wohl am besten AutoIT. Da brauchste auch keine DLLs oderso einbinden.

PHP Code:
Global $g_bPaused = False


HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")
HotKeySet("{F1}", "Start")

While 1
    Sleep(100)
WEnd

func Start()
   MoveMouse()
EndFunc

Func MoveMouse()

   while True
      MouseClick($MOUSE_CLICK_LEFT, 0, 500, 2)
      MouseClick($MOUSE_CLICK_LEFT, 0, 100, 2)
   WEnd

EndFunc

Func TogglePause()
    $g_bPaused = Not $g_bPaused
    While $g_bPaused
        Sleep(100)
        ToolTip('Script is "Paused"', 0, 0)
    WEnd
    ToolTip("")
EndFunc   ;==>TogglePause

Func Terminate()
    Exit
 EndFunc   ;==>Terminate 
[Only registered and activated users can see links. Click Here To Register...]
An AutoIT habe ich schon gedacht aber die Script-Sprache fand ich zu verwirrend.
Darum VB.net , ist für mich geordneter.
Aber ich versuche mich mal später an AutoIT wenn ich keine VB Lösung finde.

Vielen Dank für die schnelle Antwort & den Code!
07/04/2018 09:23 Ludder231#4
Für sowas ist AutoIT echt genial. Und die Dokumentation dazu ist auch super.
07/05/2018 15:40 DIXIScheisshaus#5
[Only registered and activated users can see links. Click Here To Register...]
07/05/2018 18:49 Kapuzini#6
Quote:
Originally Posted by DIXIScheisshaus View Post
[Only registered and activated users can see links. Click Here To Register...]
Thanks, versuche es auf diese Art zu realisieren.