HanDs
管理员

[Delphi文章] 实现网页的自动输入 



如果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;


学习中请遵守法律法规,本网站内容均来自于互联网,本网站不负担法律责任
实现 网页 自动 输入
#1楼
发帖时间:2016-7-9   |   查看数:0   |   回复数:0
游客组
快速回复