RSS订阅 | 匿名投稿
您的位置:网站首页 > 网络 > 正文

Delphi利用Webbrowser登陆QQ群文档

作者:admin 来源: 日期:2018/4/6 13:33:00 人气: 标签:

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

读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址:
下一篇:没有资料