Тема: keybd_event
Показать сообщение отдельно
Старый 13.05.2012, 01:26   #1
Nikopal
Оператор ЭВМ
 
Регистрация: 28.03.2010
Сообщений: 34
Написано одно полезное сообщение
Лампочка keybd_event

не работает keybd_event, и портит всю роботу открития элемента, открытие просто циклитса...
procedure TForm2.Timer2Timer(SenderTObject);
begin

 inc
(ii);

            
Edit1.Text := Utf8ToAnsi(zapp[ii]);
            
ClipboardAsText:= Edit1Text;
    
b:=webbrowser1.oleobject.document.getelementbyid('ldF9');

   
b.click;    


 
Application.ProcessMessages();

    
keybd_event(VK_LCONTROL,0,0,0);
  
keybd_event(Ord('V'),0,0,0);
  
keybd_event(Ord('V'),0,KEYEVENTF_KEYUP,0);
  
keybd_event(VK_LCONTROL,0,KEYEVENTF_KEYUP,0);

   
keybd_event(VK_RETURN,0,0,0);
  
keybd_event(VK_RETURN,0,KEYEVENTF_KEYUP,0);


timer3.Interval:=2000;
timer3.Enabled:=true;
timer2.enabled:=false;

  
end
(Offline)
 
Ответить с цитированием