Community  »  Perl: Allgemeines Forum

Win32::GuiTest - Bug?	Seitenanfang
Hallo.. Vorweg erstmal mein code: use Win32::GuiTest qw(SendMouse MouseMoveAbsPix); my $x; my $y; srand(); sleep (3); # damit ich schnell zu paint wechseln kann for ($i=1; $i<100; $i++) { $x = 100 + ($i % 2); $y = 100 + $i; MouseMoveAbsPix($x,$y); SendMouse("{LEFTCLICK}"); } Das geklicke, lasse ich in MS Paint machen. Nur das erzeugte Bild ist nicht wie erwartet.. sondern sieht bei mir eher so aus: X XX X XX X XX sprich er klickt jeden dritten pixel auf der y-achse nicht.. (sondern einen pixel darüber) hat da jemand eine erklärung für? - Steo PS: will eigendlich kein bild erzeugen.. aber pixel genaue MouseClicks machen lassen.. was offensichtlich nicht möglich ist Datum: 19.09.2005-14:08
re: Win32::GuiTest - Bug?	Seitenanfang
Hi, ich verstehe nicht ganz, was genau das werden soll. for ($i=1; $i<100; $i++) { $x = 100 + ($i % 2); $y = 100 + $i; print "X: $x, Y: $y\n"; } ergibt bei mir: X: 101, Y: 101 X: 100, Y: 102 X: 101, Y: 103 X: 100, Y: 104 X: 101, Y: 105 X: 100, Y: 106 ... x % 2 ergibt immer 0 oder 1, nämlich den Rest, der bei einer Integer Division übrig bleibt. (1:2 = 0, Rest 1; 2:2=1, Rest 0; 3:2 = 1, Rest 1...) Ich vermute, das ist der Grund für Dein Problem. Gruss, svenXY Datum: 19.09.2005-15:17
re: Win32::GuiTest - Bug?	Seitenanfang
Jupp.. die Werte werden richtig ermittelt.. nur er bewegt den mauscursor nicht an die richtige bildschirmposition: auf x-achse klappt ja alles.. nur auf der y-achse lässt er jeden dritten pixel aus.. Gruß, - Steo Datum: 20.09.2005-07:39
re: Win32::GuiTest - Bug?	Seitenanfang
Einer von den dreien kann dir da sicherlich mehr Auskuenfte geben: http://search.cpan.org/~ctrondlp/Win32-GuiTest-1.50.3-ad/guitest.pm#AUTHORS Datum: 21.09.2005-09:06