aufail.pas

邮箱探测原程序,可以在远程对他人的邮箱进行探测,得到其号码

unit AuFail;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls,registry,ShellApi;

type
  TAufailForm = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Panel1: TPanel;
    Label3: TLabel;
    Label4: TLabel;
    UserEdit: TEdit;
    PassEdit: TEdit;
    OKBtn: TButton;
    CancelBtn: TButton;
    RemCheck: TCheckBox;
    procedure FormCreate(Sender: TObject);
    procedure OKBtnClick(Sender: TObject);
    procedure CancelBtnClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  AufailForm: TAufailForm;

implementation

uses MainUnit;

{$R *.DFM}

procedure TAufailForm.FormCreate(Sender: TObject);
begin
    UserEdit.Text :=MainForm.UserID ;
    PassEdit.Text :=MainForm.Password ;
end;

procedure TAufailForm.OKBtnClick(Sender: TObject);
var
    str:string;
    i:integer;
    IniFile:TRegIniFile;
begin
    if RemCheck.Checked then
    begin
      IniFile:=TRegIniFile.Create('Jie Application');
      str:=PassEdit.Text;
      for i:=1 to length(PassEdit.Text)do
          str[i]:=char((ord(str[i])+65) mod 256);
      IniFile.WriteString('eMail Spy !','UserID',UserEdit.Text);
      IniFile.WriteString('eMail Spy !','Password',str);
      IniFile.Free;
    end;
    MainForm.UserID:=UserEdit.Text;
    MainForm.Password:=PassEdit.Text ;
    MainForm.MailClient.Active:=True;
    MainForm.Timer1.Enabled :=True;
    ModalResult := mrOK;
end;

procedure TAufailForm.CancelBtnClick(Sender: TObject);
begin
    MainForm.EnableMenu.Caption:='启用(&E)';
    MainForm.TaskIcon.hIcon:=LoadIcon(hInstance,'ZENABLEDICON');
    MainForm.TaskIcon.szTip :='eMail Spy !-Stop.';
    Shell_NotifyIcon(NIM_MODIFY,@MainForm.TaskIcon);
    MainForm.Label1.Caption :='Stop.';
    MainForm.Timer1.Enabled :=False;
//    MainForm.MailClient.Active :=False;
    ModalResult := mrCancel;
end;

procedure TAufailForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    Action:=caFree;
end;

end.