frm_autologin.pas

完全操作delphi webbrowser 用於自動登陸某些網站如 雅虎 百度

unit frm_AutoLogin;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,ComObj,SHDocVw_TLB ,MSHTML_TLB, StdCtrls,shellapi, OleCtrls,
  SHDocVw,IniFiles, ExtCtrls;

type
  TExButton = class(TButton)
  private
      Data: Pointer;
  end;

  PWebData = ^TWebData;
  TWebData = record
      URL: String;
      FormID: Integer;
      AccountName,
      AccountType,
      AccountValue,
      PasswordName,
      PasswordType,
      PasswordValue,
      SubmitName,
      SubmitType,
      AutoTranslate: String;
  end;

  TfrmAutoLogin = class(TForm)
    sbBtnList: TScrollBox;
    btnSetup: TButton;
    Image1: TImage;
    Label1: TLabel;
    procedure btnSetupClick(Sender: TObject);
    procedure Image1DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState;
      var Accept: Boolean);
    procedure Image1DragDrop(Sender, Source: TObject; X, Y: Integer);
    procedure FormResize(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    procedure btnWebMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,
      Y: Integer);
    procedure btnWebClick(Sender: TObject);
  public
    function ReloadData: Boolean;
  end;

var
  frmAutoLogin: TfrmAutoLogin;

implementation

{$R *.dfm}

uses frm_PostEdit;

const
    INIFileName = 'LazySave.INI';

procedure TfrmAutoLogin.btnWebMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
  X, Y: Integer);
begin
    if Button = mbRight then
        TButton(Sender).BeginDrag(True);
end;

procedure TfrmAutoLogin.btnWebClick(Sender: TObject);
var ShellWindow: IShellWindows;
    IWeb: IWebbrowser2;
    IDoc: Variant;
    spDisp: IDispatch;
    WebData: PWebData;
    btnSubmit: OleVariant;
    ovElements: OleVariant;
    I, J: Integer;
    vEmpty : oleVariant;
begin
    WebData := TExButton(Sender).Data;

    ShellExecute(Handle, 'Open', 'iexplore.exe', Pchar(WebData^.URL), nil, SW_MAXIMIZE);

    // 倒 2