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

J

jelllove

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-14

• #1

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

 

T

tianxin7131

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-14

• #2

心情特别好，刚才问的问题得到解决了，看到楼主这么辛苦，就再出点力帮您顶一下。

 

无

无欲则刚

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-14

• #3

如果是在网页填单的话 不用这么麻烦 直接分析一下html源码中的变量 或者分析一下封包
自己把各种信息打包 post提交到服务器就行

 

J

jelllove

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-14

• #4

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

 

C

cxz9

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-14

• #5

procedure TMainForm.SetFile2(fld, fn: string);
begin
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('ENTER', true);
end;

 

J

jelllove

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-14

• #6

接受答案了.