www.pudn.com > HgzVip1.2_code.rar > LOGIN.PAS

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.