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替代即可！

来源：http://www.lsworks.net/article/98.html
Delphi利用Webbrowser登陆QQ群文档

相关推荐

评论
