Delphi利用Webbrowser登陆QQ群文档

unit Unit1;

interface


uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, OleCtrls, IEBrowser, Mshtml;


type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Button1: TButton;
    Web: TCppWebBrowser;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  Doc: IHTMLDocument2;
  UserInputElement, PwdInputElement: IhtmlInputElement;
  SwitchElement, SubmitElement: IhtmlElement;
begin
  Doc := Web.Document as IHTMLDocument2;

  UserInputElement := (Doc.all.item('u', 0) as IHtmlInputElement);
  userInputElement.value := trim(Edit1.Text);

  PwdInputElement := (Doc.all.item('p', 0) as IHtmlInputElement);
  PwdInputElement.value := trim(Edit2.Text);

  Sleep(1000);

  SubmitElement := (Doc.all.item('login_button', 0) as IHtmlElement);
  SubmitElement.click;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Web.Navigate('http://ui.ptlogin2.qq.com/cgi-bin/login?appid=549000912&s_url=http://qun.qzone.qq.com/group&style=11');
end;

end.

PS:这里的TCppWebBrowser是我从新导出ShDocVW.dll后,在此基础上修改而来的,如果要测试,可以用Delphi自带的Webbrowser替代即可!


上一篇: Delphi获取系统服务描述信息
下一篇: AdminCMD
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags: Delphi Webbrowser QQ群 文档
相关日志:
评论: 0 | 引用: 0 | 查看次数: -
发表评论
昵 称:
密 码: 游客发言不需要密码.
邮 箱: 邮件地址支持Gravatar头像,邮箱地址不会公开.
网 址: 输入网址便于回访.
内 容:
验证码:
选 项:
虽然发表评论不用注册,但是为了保护您的发言权,建议您注册帐号.
字数限制 1000 字 | UBB代码 开启 | [img]标签 关闭