Visual Basic Forum

psychonitro · Tutorial Leser Anmeldedatum: 05.05.2008 Beiträge: 26

Will mir demnächst mal so ne art bot coden und dafür brauchen ich einen code,dass das prog auf eine bestimmte farbe klick
Und wie kann ich einen Mausklick halten^^
_________________

Marduk · Überflieger Anmeldedatum: 16.04.2008 Beiträge: 374

Im Grunde musst du nur deine Maus auf die gewünschte Position setzen und einen Klick simulieren. Geht wunderbar per API. Hier mal zwei Beispiele
http://www.activevb.de/tipps/vb6tipps/tipp0006.html
http://www.vbarchiv.net/tipps/details.php?id=223

jojo4ever · Tutorial Leser Anmeldedatum: 01.05.2008 Beiträge: 42

Und hier noch was für dich:

http://www.vbarchiv.net/api/details.php?id=getpixel

psychonitro · Tutorial Leser Anmeldedatum: 05.05.2008 Beiträge: 26

Es geht mir darum dass es die position eines farbwerts sucht und an dieser position klick^^

Marduk · Überflieger Anmeldedatum: 16.04.2008 Beiträge: 374

Is doch kein Problem. Dann gehst du mit einer Schleife deinen kompletten Bildschirm ab.
Visual Basic: [code]for x as integer = 0 to 1024
for y as integer = 0 to 768
GetPixel(x,y)
If pixel = "rot" then
endif
next
next
[/code]
So sollte es ungefähr gehen. Damit wird ein ganzer Bildschirm nach der Pixelfarbe abgesucht. Wenn du natürlich einen bestimmten Bereich festlegen kannst, in dem sich die Farbe befindet, musst du natürlich die Schleifen anpassen. Denn wenn du den ganzen Bildschirm absuchen lässt, dauert das bestimmt ne ganze Weile

psychonitro · Tutorial Leser Anmeldedatum: 05.05.2008 Beiträge: 26

irgendwie check ich das gradnicht ganz^^
Ich habs zwar schon so das man das man auf dem Bildschirm eine Farbe anklicken kann und der FArbwert wird mir angezeigt,aber wie lasse ich diesen Farbwert jetzt die maus zu diesem punkt^^

zb. http://www.vbfun.de/cgi-bin/loadframe.pl?I...s/tip0255.shtml

Marduk · Überflieger Anmeldedatum: 16.04.2008 Beiträge: 374

Mal hier ein kleiner Pseudocode

Visual Basic: [code]
For x as integer = 0 to 1024
For y as integer = 0 to 768
Dim point as Point
point.X = x
point.Y = y

Dim Result as color
Result = GetPixel point
If Result = "rot" Then 'RGB-Farbwert muss hier stehen
SetCursorPos x, y
Mouse_event klick ' kA musste anpassen
EndIf
next
next

[/code]

Sollte so ungefähr hinkommen

psychonitro · Tutorial Leser Anmeldedatum: 05.05.2008 Beiträge: 26

ich checks irgendwie nicht^^ sry

Marduk · Überflieger Anmeldedatum: 16.04.2008 Beiträge: 374

Was verstehst du denn nicht? Die Schleifen, die If-Abfrage oder was anderes?

psychonitro · Tutorial Leser Anmeldedatum: 05.05.2008 Beiträge: 26

zb bei dem getpixel oder dem point usw hauts mir mmmer fehler rein
_________________

Marduk · Überflieger Anmeldedatum: 16.04.2008 Beiträge: 374

Das war ja auch nur ein Beispiel von mir. Du musst das jetzt noch abändern.
Irgendwie so:
Visual Basic: [code]
Dim Result as Long
Result = GetPixel x,y
If Result = deinfarbwert then
...[/code]

Und das mit dem point kommt ganz weg, das sollte nur Pseudocode sein, damit mans leichter versteht Very Happy

Und die Mouse_event API musst du auch noch anpassen, musst dir mal den Link oben angucken wie die das mit dem Mausklick gemacht haben