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 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