真入用户名,密码,然后点登陆 var ov: OleVariant; begin if WebBrowser.Busy then Exit; {未加载完判断} {the sec paramer is the em index} ov :=WebBrowserb.OleObject.document.all.item('id',0); ov.Value :='hottey'; ov := WebBrowser.OleObject.document.all.item('passwd',0); ov.Value := '8810603'; WebBrowser.oleobject.document.Forms.Item(0, 0).submit; end;
你是要实现用Delphi开发网页浏览软件呢还是要向IE那样,在同一个界面实现用户登录和其他操作功能。
http://www.morning-tech.com/MCGbook11/Disgbook.asp?pid=48
网页上要填写的一些比如登陆信息,以及一些要选择的信息等我不是在网页上面操作,而把这些要输入或者选择的信息移植到我用delphi写的应用程序中,然后在程序中操作!
var
ov: OleVariant;
begin
if WebBrowser.Busy then Exit; {未加载完判断}
{the sec paramer is the em index}
ov :=WebBrowserb.OleObject.document.all.item('id',0);
ov.Value :='hottey';
ov := WebBrowser.OleObject.document.all.item('passwd',0);
ov.Value := '8810603';
WebBrowser.oleobject.document.Forms.Item(0, 0).submit;
end;