在delphi中实现网页的自动输入

如果webbrowser由你创建

如果网页内容可知

用263举个例子

procedure TForm1.FormCreate(Sender: TObject);

begin

b := false;

webbrowser1.Navigate('http://www.263.net');

end;

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;

const pDisp: IDispatch; var URL: OleVariant);

begin

b := True;

end;

procedure TForm1.Button1Click(Sender: TObject);

var

o : Olevariant;

begin

if b then

begin

// 263页面上的"用户名"输入的input的name=user,密码输入的input的name=pass

// 所以直接用名字取

// 也可以用webbroser1.oleobject.document.all.tags('input',第几个input);

// 其它属性见msdn

o := webbrowser1.OleObject.document.all.item('user',0);

o.value := '12345';

o := webbrowser1.oleobject.document.all.item('pass',0);

o.value := '54321';

o := webbrowser1.oleobject.document.all.item('login',0);

o.submit;

// 登陆成功

end

end;