[VB.NET] Maus Klick Befehl ...

[Kapuzini]

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 >.>

[Ludder231]

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 


[Kapuzini]

Originally Posted by Ludder231

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 


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!

[Ludder231]

Für sowas ist AutoIT echt genial. Und die Dokumentation dazu ist auch super.

[DIXIScheisshaus]

[Kapuzini]

Originally Posted by DIXIScheisshaus

Thanks, versuche es auf diese Art zu realisieren.