如果webbrowser由你创建 如果网页内容可知
用263举个例子
procedure TForm1.FormCreate(Sender: TObject); begin b := false; webbrowser1.Navigate('http://www.263.net'); end;
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant); begin b := True; end;
procedure TForm1.Button1Click(Sender: TObject); var o : Olevariant; begin if b then begin // 263页面上的"用户名"输入的input的name=user,密码输入的input的name=pass // 所以直接用名字取 // 也可以用webbroser1.oleobject.document.all.tags('input',第几个input); // 其它属性见msdn o := webbrowser1.OleObject.document.all.item('user',0); o.value := '12345'; o := webbrowser1.oleobject.document.all.item('pass',0); o.value := '54321'; o := webbrowser1.oleobject.document.all.item('login',0); o.submit; // 登陆成功 end end;
|
请发表评论