probleme bim senden von tasten

[novabeat]

hallo !!

ich verwende folgenden code, nachzusehen, ob in einem fenster bestimmte pixel weiß sind, un dann die pfeiltesten zu drücken:

Delphi-Quellcode:

  dc := GetDC(0);

  if (GetPixel(dc,rect.Left + 146,rect.top + 155)= clwhite) and (GetPixel(dc,rect.Left + 174,rect.top + 155)= clwhite) then begin
     keybd_event(VK_down, MapVirtualKey(VK_down, 0), 0, 0);
     keybd_event(VK_down, MapVirtualKey(VK_down, 0), KEYEVENTF_KEYUP, 0);
     label1.Caption := 'DOWN';
  end;
  if (GetPixel(dc,rect.Left + 149,rect.top + 130)= clwhite) and (GetPixel(dc,rect.Left + 149,rect.top + 158)= clwhite) then begin
     keybd_event(VK_LEFT, MapVirtualKey(VK_LEFT, 0), 0, 0);
     keybd_event(VK_LEFT, MapVirtualKey(VK_LEFT, 0), KEYEVENTF_KEYUP, 0);
     label1.Caption := 'LEFT';
  end;
  if (GetPixel(dc,rect.Left + 146,rect.top + 133)= clwhite) and (GetPixel(dc,rect.Left + 174,rect.top + 133)= clwhite) then begin
     keybd_event(VK_UP, MapVirtualKey(VK_UP, 0), 0, 0);
     keybd_event(VK_UP, MapVirtualKey(VK_UP, 0), KEYEVENTF_KEYUP, 0);
     label1.Caption := 'UP';
  end;
  if (GetPixel(dc,rect.Left + 171,rect.top + 130)= clwhite) and (GetPixel(dc,rect.Left + 171,rect.top + 158)= clwhite) then begin
     keybd_event(VK_RIGHT, MapVirtualKey(VK_RIGHT, 0), 0, 0);
     keybd_event(VK_RIGHT, MapVirtualKey(VK_RIGHT, 0), KEYEVENTF_KEYUP, 0);
     label1.Caption := 'RIGHT';
  end;

  ReleaseDC(0, dc);

im label wird auch richtig angezeigt, was er erkannt hat, also "DOWN" oder so, aber er drückt nicht die taste in dem (aktiven) Programm. Das ist in VB geschrieben, kann es daran liegen ?

danke

[Assarbad]

Das sollte mit VB nix zu tun haben. Hast du mal getestet bei welchem Fenster die entsprechende Fensternachricht ankommt? zB mit Spy++ oder SpyXX oder Motzis Spy-Tool.

[novabeat]

nee, hab ich nicht. wie macht man denn das genau ?

ich kenn den programmierer auch und hab ihm das mal erzählt und der hat gemeint, dass er in VB die tastatureingaen direkt mit irgendeinen DLL aus dem system abfrägt. kann das das prob sein ?

[toms]

Hi,

Bist du auch sicher, dass das Programm den Fokus hat?

[Assarbad]

Zitat:

Zitat von novabeat

ich kenn den programmierer auch und hab ihm das mal erzählt und der hat gemeint, dass er in VB die tastatureingaen direkt mit irgendeinen DLL aus dem system abfrägt. kann das das prob sein ?

Das wäre mir neu und klingt auch faszinierend. Schreib ihm doch mal ne PN ;) ... Schönen Gruß von mir *g*

[novabeat]

ich bin mir 100% sicher das das fenster den fokus hat ! die titelleiste ist blau.
und selber kann ich in dem fenster auch das machen was gemacht wreden soll. also ich mein das fenster reagiert auf die pfeltesten, wenn ich die manuell drücke.

mein code ist doch eigendlich korrekt oder ?

[toms]

Was ist denn das für eine App? Wenn sie ja nicht zu gross ist, könntest du mir eine Kopie schicken, dann werde ich's mir anschauen.

[novabeat]

gerne. deine Mail adresse ?

[toms]

Per PN geschickt.

[novabeat]

das prog ist bei dir.

ich bekomm evtl heute noch den code mit der der progger die pfeiltasen abfrägt. ich poste den hier dann

[novabeat]

soo hier mal die mail, die ich von dem progger bekommen hab:

Zitat:

Hiermit wird die funktion eingebunden/definiert
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

und so wird sie benutzt:
result = GetAsyncKeyState(X)

X ist die taste, jede taste hat eine zahl ....
result gibt jenach status halt nen wert zurück:

key up
key down
key hold

in irgentwelchen zahlen werten (k.a. so ca um die -30000)

cYa

[Robert Marquardt]

Die Pfeiltasten sind gemein. Es gibt sie zweimal. Einmal als separate Pfeiltasten und dann nochmal im Ziffernblock.
Oft ignorieren Programme die Pfeiltasten des Zehnerblocks.
Setz mal das Extended-Bit aka KEYEVENTF_EXTENDED.

[novabeat]

das bit gibts bei mir nicht

[toms]

er meint KEYEVENTF_EXTENDEDKEY

[novabeat]

nee bringt auch nix.