2 replies to this topic

[draker]

Buenas tardes les explico, tratando de conseguir la URL de Crhome, realizo:

1.- una enumeración de ventajas hijas

2.- una vez encontrada pulso F6, para que me lleve a la barra de direcciones del crhome

3.- copio lo que esta seleccionado al portapapeles

4.- pego la url en un memo

 

Pero el copiado y pegado no lo realiza, ya probe a poner sleep() despues del F6, despues del copiado y aveces lo hace y la mayoria de veces no, adjunto el codigo:

 

php

function Chrome(wnd: THandle; Param: Integer): Bool; stdcall;
var
  wndClass: array[0..127] of char;
  Buffer: PChar;
begin
  GetClassName(wnd, wndClass, SizeOf(wndClass));
  if wndClass = 'Chrome_WidgetWin_1'
  then
    begin
      ClipBoard.Clear;
      SetForegroundWindow(wnd);
 
 
      While ClipBoard.AsText='' do
      begin
        PostMessage(wnd, WM_SYSKEYDOWN, VK_F6,0);
        keybd_event(VK_CONTROL, 0, 0, 0);
        keybd_event($43, 0, 0, 0);
        keybd_event($43, 0, KEYEVENTF_KEYUP, 0);
        keybd_event(VK_CONTROL, 0, KEYEVENTF_KEYUP, 0);
      end;
      
      Form1.memo1.Lines.Add(Clipboard.AsText);
      Result := False;
    end
  else Result := True;
 
 
  SetForegroundWindow( Form1.Handle);
end;

 

Y en ocaciones manda error, que el clipboard esta cerrado.

[egostar]

Hola draker, bienvenido a delphiaccess

Veo que validas que Clipboard.AsText tenga algo para realizar los eventos del teclado, pero ¿que pasa cuando no tiene nada? si haces un debug en esa función podrías encontrar el problema.

Saludos
 

[draker]

jejejeje, claro amigo egostar, sorry por el horror, a la hora de quitar todas las basurillas de como tengo el código le cambie el signo, ahí lo edite, como vez primero limpio el clipboard y después hago la validación, el punto de validarlo es por que si mando a llamar nuevamente a la función y si ya se dio F6 una vez el crhome deja de seleccionar el texto, vuelves a pulsarlo y no hace nada, hasta la tercera vez vuelve a seleccionar el texto.