Hi,
ich beiße mir seit einiger zeit an einem Problem die Zähne aus.
Ich versuche meinen Bildschirm nach einen Farbwert abzusuchen und dann eine bestimmte Aktion auszuführen.
Ich hoffe ihr könnt mir ein bisschen unter die Arme greifen!
Die Variable "breite" beinhaltet die Bildschirm breite und die Variable "hoehe" die Bildschirm höhe.
Ich hoffe ihr könnt mir helfen. (sry das Forum hat das so Formatiert)
mfg
B1ackByte
ich beiße mir seit einiger zeit an einem Problem die Zähne aus.
Ich versuche meinen Bildschirm nach einen Farbwert abzusuchen und dann eine bestimmte Aktion auszuführen.
Ich hoffe ihr könnt mir ein bisschen unter die Arme greifen!
Die Variable "breite" beinhaltet die Bildschirm breite und die Variable "hoehe" die Bildschirm höhe.
VB.NET-Quellcode
- Private Sub find() Dim rasterx As Double = breite / 8Dim rastery As Double = hoehe / 100
- Dim x2 As Double = rasterxDim y2 As Double = rastery
- While x2 <= breite
- While y2 <= hoehe
- SetCursorPos(x2, y2)
- Dim pixColor As Color = GetPixelColor(Cursor.Position.X, Cursor.Position.Y)
- If Convert.ToString(pixColor) = "Color [A=255, R=153, G=0, B=0]" ThenMsgBox("Found at:" + x2 + "-" + y2)End If
- y2 = y2 + rasteryEnd While
- x2 = x2 + rasterxEnd While
- End Sub
Ich hoffe ihr könnt mir helfen. (sry das Forum hat das so Formatiert)
mfg
B1ackByte