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

[Daiver]

单位要我编写一个程序，实现自动向一个网页中输入信息的功能，就如自动注册一样。我利用 delphi&webbrowser，利用keybd_event来写，只可以打开网页，但是难以把焦点放在输入控件上，进行自动输入。这个程序单位催的比较急，一个星期内就的交货，请尽快答复我。请详细些，最好有源程序！

[zyb]

Listen

[wang1st]

关注

[gameboy999]

要你做如同自动填写网页刷出后出现在webbrowser内部的控件呀？这个比较难,当初我查的结果是：webbrowser对其网页式的，例如填写password的啦（我的程序是填写外部程序的框），但也不能把输入内部的控件进行了扩展，我们能访问到的并不是真正的那个控件。。。云云

我做的自动刷屏机也可以刷焦点自动定到网页内部去。我以前也讨论过这个问题，但是一直得不到满意的答复，我看你还是去看看IE提供的SDK包，看看有什么可用的API吧。解决了能否告诉我一声，谢谢

[e-mail]

[yqbwork]

guan zhu

[wx_zhang]

你们单位不是想穷举别人的密码吧？^v^

[koala]

何必去找输入焦点
例如263的登陆:
直接用webbrowser.navigate('http://freemail.263.net/cgi/login?user=***&pass=***')不就行了

[Daiver]

多谢Koala的回答，但是我是要控制网页中的项目而不是只为了等入！！

[ace]

如果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;

[dana]

这样如何判断表单提交是否成功?

[dana]

还有个问题当控件为单选钮和复选框时如何表示?