关于自动登陆的问题

[banghack]

<form name="STLogins" method="post" action="login.php">

<a href="javascript:document.STLogins.submit();"><img src="images/login02.gif" width="82" border="0"></a>（login02.gif是登陆的图标）

这个是网页的代码

请问下怎么用delphi实现自动登陆

用户名 username 密码password

[edongxu]

这样就ok了
Olevariant((WebBrowser1.Document as IHTMLDocument2).all.item('STLogins',0)).submit();

[banghack]

大侠 能否写个完整的自动登陆源码

[banghack]

procedure TForm1.Button1Click(Sender: TObject);
var
Doc:IHTMLDocument2;
input:OleVariant;
userinputelement,pwdinputelement:ihtmlinputelement;
begin
doc:=webbrowser1.document as ihtmldocument2;
userinputelement:=(doc.all.item('username',0) as ihtmlinputelement);
userinputelement.value:=edit1.text;
pwdinputelement:=(doc.all.item('password',0) as ihtmlinputelement);
pwdinputelement.value:=edit2.text;
end;

登陆那段代码怎么写？

[banghack]

Olevariant((WebBrowser1.Document as IHTMLDocument2).all.item('STLogins',0)).submit();
直接加进去一下子可以登陆

一下子又不可以登陆 - -！

[banghack]

可以了，自己调试成功了 谢谢edongxu 提醒

[banghack]

额！ 为什么给edongxu 20分怎么也给不了

斑竹来帮我转20分给他可以不？