小弟想知道如何才能模拟键盘输入，向webbrower控件发送一个回车键或TAB键 ( 积分: 100 )

J

jelllove

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-14

• #1

小弟想知道如何才能模拟键盘输入，向webbrower控件发送一个回车键或TAB键

 

T

tianxin7131

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-14

• #2

楼主提问题时，应该说详细一些，这样方便大家解读啊。

 

J

jelllove

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-14

• #3

我现在在FORM1中加入了一个TWebBrower控件，在FormCreate中让webbrower打开www.baidu.com这个网页，然后我又加了一个BUTTON1到窗口中，我希望在我点击button1时，它能实现webbrower中模拟的按下Tab或Enter键，从而实现对链接的跳转和进入，就跟在IE中按下TAB和ENTER一样的效果，这样说可以理解吗

 

C

cxz9

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-14

• #4

procedure TMainForm.SetFile2(fld, fn: string);
begin
if fn = '' then Exit;
if wbs1.Document <> nil then
with wbs1.Application as IOleobject do
DoVerb(OLEIVERB_UIACTIVATE, nil, wbs1, 0, Handle, GetClientRect);
((wbs1.Document as IHTMLDocument3).getElementsByName(fld).item(0, '')
as IhtmlInputFileElement).select;
SendKeys(pchar(fn), true);
end;

 

J

jelllove

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-14

• #5

[Error] Unit1.pas(54): Undeclared identifier: 'IOleobject'
[Error] Unit1.pas(54): Operator not applicable to this operand type
[Error] Unit1.pas(55): Undeclared identifier: 'DoVerb'
[Error] Unit1.pas(56): Undeclared identifier: 'IHTMLDocument3'
[Error] Unit1.pas(57): Undeclared identifier: 'IhtmlInputFileElement'
。。。。。。。。。
应该要加点什么东西呢，请高手指点
小弟现在要出去了，回来再给分，如果高手可以的话，能不能给我一个源代码，万分感谢
小弟用得是DELPHI 6。0的
谢谢
jelllove@126.com

 

C

cxz9

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-14

• #6

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, OleCtrls, SHDocVw, ActiveX, SndKey32, MSHTML,
SHDocVw_TLB, FzWebBrowser;

 

J

jelllove

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-14

• #7

接受答案了.