H hlsoft Unregistered / Unconfirmed GUEST, unregistred user! 2002-02-25 #1 怎么用delphi向网页提交登陆信息? 比如在程序中的edit中填好网易通行证的ID和密码,就可以以登陆到网易通行证的页面中去。
H hfghfghfg Unregistered / Unconfirmed GUEST, unregistred user! 2002-02-25 #2 stdcall; far; export; 这不是写了
快 快乐的蚂蚁 Unregistered / Unconfirmed GUEST, unregistred user! 2004-02-22 #3 抄一个给你看看... 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;
抄一个给你看看... 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;