怎么用delphi向网页提交登陆信息? (100分)

  • 主题发起人 主题发起人 hlsoft
  • 开始时间 开始时间
H

hlsoft

Unregistered / Unconfirmed
GUEST, unregistred user!
怎么用delphi向网页提交登陆信息?
比如在程序中的edit中填好网易通行证的ID和密码,就可以以登陆到网易通行证的页面中去。
 
stdcall; far; export;

这不是写了
 
抄一个给你看看...
procedure TForm1.Button2Click(Sender: TObject);

var

o : Olevariant;

begin

webbrowser1.Navigate('http://www.163.com');



delay(2000);

o := WebBrowser1.OleObject.document.all.item('username',0);

o.value := 'username';

o := WebBrowser1.oleobject.document.all.item('Password',0);

o.value := 'password';

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

o.Click;

end;
 
后退
顶部