Mein einziges Problem:
Die Maus bewegt sich zum Punkt klickt aber erst bei der nächsten Bewegung.
sprich der klick hängt immer einen hinterher.
Somit trift die Maus nie den Perfekten punkt.
Hier einmal der COde wo er nicht stimmt
C&P würden euch nichts bringen es fehlen sämmtliche Deklanationen.
Code:
Dim screensize As Size = New Size(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
Dim screenshot As New Bitmap(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
Dim g As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(screenshot)
g.CopyFromScreen(New Point(0, 0), New Point(0, 0), screensize)
Dim pointx As Integer = 1
Dim pointy As Integer = 1
Dim looking As Boolean = True
Try
While looking = True
Dim atpoint As Color = screenshot.GetPixel(pointx, pointy)
Dim red As Color = Color.FromArgb(255, 235, 22, 9) 'light red ball colour
[COLOR="Red"]If atpoint = red Then
Cursor.Position = New Point(pointx, pointy)
Mausklick("Links")[/COLOR]
looking = False
pointx = 1
pointy = 1
End If
pointy = pointy + 1
If pointy = My.Computer.Screen.Bounds.Height Then
pointy = 0
pointx = pointx + 1
End If
End While
Catch ex As Exception
Label1.Text += 1 'Falls die Farbe nicht exestiert
End Try
End Sub
Genauerer ablauf des Codes
[Spoiler]
Er nimmt einen Screenshot auf und ermittelt anhand dieses Screenshots wo er die Maus positionieren soll und dann klickt er aber wie gesagt immer etwas zu spät.
[/Spoler]






