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 获取鼠标当前位置的相对坐标

Delphi trystrtoint字符转换成整数

paramstr返回运行当行程序的某个参数

Delphi 采集功能代码getstr

Delphi splitstring 字符串分割成字符串组

Delphi版的创建高权限进程

Delphi-基础（for循环）

Delphi字符串加密解密

Delphi 一个定时器timer1相关的简单例子

Delphi xe6 grid试用结果

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi利用Webbrowser登陆QQ群文档