通过webbrowser自动登陆web邮箱 ( 积分: 100 )

我想通过webbrowser打开hotmail网页后自动在网页中填上用户名和密码,然后自动的登录到邮箱中,请问有哪位高手能支两招?感谢!!

我想通过webbrowser打开hotmail网页后自动在网页中填上用户名和密码,然后自动的登录到邮箱中,请问有哪位高手能支两招?感谢!!

procedure TForm2.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
var
k:integer;
t:OleVariant;

begin


if (WebBrowser1.LocationURL='网页登录地址') then
begin
t := WebBrowser1.Document;
for k := 0 to t.all.length - 1 do
begin
if (uppercase(t.all.item(k).tagName)='INPUT')and (uppercase(t.all.item(k).Name)='用户名框 的name 名称') then
t.all.item(k).value:=editUserName.Text;
if (uppercase(t.all.item(k).tagName)='INPUT')and (uppercase(t.all.item(k).Name)='密码框的name 名称') then
t.all.item(k).value:=editPasswd.Text ;
if (uppercase(t.all.item(k).tagName)='INPUT')and (uppercase(t.all.item(k).Name)='登录按钮 的name 名称') then
begin
t.all.item(k).click;
break;
end;
end;





if (WebBrowser1.LocationURL='登录后转向的页面地址') then
showmessage('登录成功')

end;