unit1.pas

传奇假人登陆器 原代码 不完全 但是可以拿来研究

   csocket1.Port := 0;
  // with csocket1 do begin
  //    tmr30.Enabled := True;
      tmr26.Enabled := True;
  // end;
   end;

procedure Tform1.ClientGetStartPlay2 (body: string);
begin
   str2 := DecodeString (body);
   sport2 := GetValidStr3 (str2, addr2, ['/']);
   lport2:=Str_ToInt (sport2, 0);
   csocket2.Active := False;
   csocket2.Address := '';
   csocket2.Port := 0;
 //  with csocket2 do begin
  //    tmr31.Enabled := True;
      tmr27.Enabled := True;
 //  end;
   end;

procedure Tform1.ClientGetStartPlay3 (body: string);
begin
   str3 := DecodeString (body);
   sport3 := GetValidStr3 (str3, addr3, ['/']);
   lport3:=Str_ToInt (sport3, 0);
   csocket3.Active := False;
   csocket3.Address := '';
   csocket3.Port := 0;
 //  with csocket3 do begin
    //  tmr32.Enabled := True;
      tmr28.Enabled := True;
 //  end;
   end;

procedure Tform1.ClientGetStartPlay4 (body: string);
begin
   str4 := DecodeString (body);
   sport4 := GetValidStr3 (str4, addr4, ['/']);
   lport4:=Str_ToInt (sport4, 0);
   csocket4.Active := False;
   csocket4.Address := '';
   csocket4.Port := 0;
  // with csocket4 do begin
   //   tmr33.Enabled := True;
      tmr29.Enabled := True;
 //  end;
   end;

procedure Tform1.SendNewAccount (ue: TUserEntry; ua: TUserEntryAdd);
var
   msg: TDefaultMessage;
begin
   msg := MakeDefaultMsg (CM_ADDNEWUSER, 0, 0, 0, 0);
   SendCSocket(EncodeMessage (msg) + EncodeBuffer(@ue, sizeof(TUserEntry)) + EncodeBuffer(@ua, sizeof(TUserEntryAdd)));
end;

procedure Tform1.SendNewAccount1 (ue: TUserEntry; ua: TUserEntryAdd);
var
   msg: TDefaultMessage;
begin
   msg := MakeDefaultMsg (CM_ADDNEWUSER, 0, 0, 0, 0);
   SendCSocket1(EncodeMessage (msg) + EncodeBuffer(@ue, sizeof(TUserEntry)) + EncodeBuffer(@ua, sizeof(TUserEntryAdd)));
end;

procedure Tform1.SendNewAccount2 (ue: TUserEntry; ua: TUserEntryAdd);
var
   msg: TDefaultMessage;
begin
   msg := MakeDefaultMsg (CM_ADDNEWUSER, 0, 0, 0, 0);
   SendCSocket2(EncodeMessage (msg) + EncodeBuffer(@ue, sizeof(TUserEntry)) + EncodeBuffer(@ua, sizeof(TUserEntryAdd)));
end;

procedure Tform1.SendNewAccount3 (ue: TUserEntry; ua: TUserEntryAdd);
var
   msg: TDefaultMessage;
begin
   msg := MakeDefaultMsg (CM_ADDNEWUSER, 0, 0, 0, 0);
   SendCSocket3(EncodeMessage (msg) + EncodeBuffer(@ue, sizeof(TUserEntry)) + EncodeBuffer(@ua, sizeof(TUserEntryAdd)));
end;

procedure Tform1.SendNewAccount4 (ue: TUserEntry; ua: TUserEntryAdd);
var
   msg: TDefaultMessage;
begin
   msg := MakeDefaultMsg (CM_ADDNEWUSER, 0, 0, 0, 0);
   SendCSocket4(EncodeMessage (msg) + EncodeBuffer(@ue, sizeof(TUserEntry)) + EncodeBuffer(@ua, sizeof(TUserEntryAdd)));
end;

procedure Tform1.SendQueryChr;
var
   msg: TDefaultMessage;
begin
   msg := MakeDefaultMsg (CM_QUERYCHR, 0, 0, 0, 0);
   if ClientSocket1.Socket.Connected then begin
   SendCSocket(EncodeMessage (msg) + EncodeString(loginid + '/' + IntToStr(Certification)));
   end else begin
   tmr4.Enabled := True;
  end;
end;

procedure Tform1.SendQueryChr1;
var
   msg: TDefaultMessage;
begin
   msg := MakeDefaultMsg (CM_QUERYCHR, 0, 0, 0, 0);
   if csocket1.Socket.Connected then begin
   SendCSocket1(EncodeMessage (msg) + EncodeString(loginid1 + '/' + IntToStr(Certification1)));
   end else begin
   tmr39.Enabled := True;
   end;
end;

procedure Tform1.SendQueryChr2;
var
   msg: TDefaultMessage;
begin
   msg := MakeDefaultMsg (CM_QUERYCHR, 0, 0, 0, 0);
   if csocket2.Socket.Connected then begin
   SendCSocket2(EncodeMessage (msg) + EncodeString(loginid2 + '/' + IntToStr(Certification2)));
   end else begin
   tmr40.Enabled := True;
   end;
end;

procedure Tform1.SendQueryChr3;
var
   msg: TDefaultMessage;
begin
   msg := MakeDefaultMsg (CM_QUERYCHR, 0, 0, 0, 0);
   if csocket3.Socket.Connected then begin
   SendCSocket3(EncodeMessage (msg) + EncodeString(loginid3 + '/' + IntToStr(Certification3)));
   end else begin
     tmr41.Enabled := True;
     end;
end;

procedure Tform1.SendQueryChr4;
var
   msg: TDefaultMessage;
begin
   msg := MakeDefaultMsg (CM_QUERYCHR, 0, 0, 0, 0);
   if csocket4.Socket.Connected then begin
   SendCSocket4(EncodeMessage (msg) + EncodeString(loginid4 + '/' + IntToStr(Certification4)));
   end else begin
   tmr42.Enabled := True;
   end;
end;


procedure Tform1.ClientGetPasswdSuccess (body: string);
begin
   sstr := DecodeString (body);
   sstr := GetValidStr3 (sstr, runaddr, ['/']);
   sstr := GetValidStr3 (sstr, runport, ['/']);
   sstr := GetValidStr3 (sstr, certifystr, ['/']);
   Certification := Str_ToInt(certifystr, 0);
   ClientSocket1.Active := False;
   ClientSocket1.Host := '';
   clientsocket1.Port := 0;
 // with ClientSocket1 do begin
    //  tmr4.Enabled := True;
      tmr34.Enabled := True;
 //  end;
   end;

procedure Tform1.ClientGetPasswdSuccess1 (body: string);
begin
   sstr1 := DecodeString (body);
   sstr1 := GetValidStr3 (sstr1, runaddr1, ['/']);
   sstr1 := GetValidStr3 (sstr1, runport1, ['/']);
   sstr1 := GetValidStr3 (sstr1, certifystr1, ['/']);
   Certification1 := Str_ToInt(certifystr1, 0);
   csocket1.Active := False;
   csocket1.Host := '';
   csocket1.Port := 0;
  // with csocket1 do begin
      tmr35.Enabled := True;
   //   tmr39.Enabled := True;
 //  end;
   end;

procedure Tform1.ClientGetPasswdSuccess2 (body: string);
begin
   sstr2 := DecodeString (body);
   sstr2 := GetValidStr3 (sstr2, runaddr2, ['/']);
   sstr2 := GetValidStr3 (sstr2, runport2, ['/']);
   sstr2 := GetValidStr3 (sstr2, certifystr2, ['/']);
   Certification2 := Str_ToInt(certifystr2, 0);
   csocket2.Active := False;
   csocket2.Host := '';
   csocket2.Port := 0;
 //  with csocket2 do begin
      tmr36.Enabled := True;
   //   tmr40.Enabled := True;
 //  end;
   end;

procedure Tform1.ClientGetPasswdSuccess3 (body: string);
begin
   sstr3 := DecodeString (body);
   sstr3 := GetValidStr3 (sstr3, runaddr3, ['/']);
   sstr3 := GetValidStr3 (sstr3, runport3, ['/']);
   sstr3 := GetValidStr3 (sstr3, certifystr3, ['/']);
   Certification3 := Str_ToInt(certifystr3, 0);
   csocket3.Active := False;
   csocket3.Host := '';
   csocket3.Port := 0;
 //  with csocket3 do begin
      tmr37.Enabled := True;
  //    tmr41.Enabled := True;

 //  end;
   end;

procedure Tform1.ClientGetPasswdSuccess4 (body: string);
begin
   sstr4 := DecodeString (body);
   sstr4 := GetValidStr3 (sstr4, runaddr4, ['/']);
   sstr4 := GetValidStr3 (sstr4, runport4, ['/']);
   sstr4 := GetValidStr3 (sstr4, certifystr4, ['/']);
   Certification4 := Str_ToInt(certifystr4, 0);
   csocket4.Active := False;
   csocket4.Host := '';
   csocket4.Port := 0;
  // with csocket4 do begin
      tmr38.Enabled := True;
   //   tmr42.Enabled := True;
 //  end;
   end;


procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
var
   n: integer;
   data, data2: string;
begin
   data := ClientSocket1.socket.ReceiveText;
   n := pos('*', data);
   if n > 0 then begin
      data2 := Copy (data, 1, n-1);
      data := data2 + Copy (data, n+1, Length(data));
      ClientSocket1.Socket.SendText ('*');
   end;
   SocStr := SocStr + data;

end;



procedure TForm1.tmr1Timer(Sender: TObject);
var
    data: string;
begin
BufferStr := BufferStr + SocStr;
      SocStr := '';
      if BufferStr <> '' then begin
         while Length(BufferStr) >= 2 do begin
            if Pos('!', BufferStr) <= 0 then break;
            BufferStr := ArrestStringEx (BufferStr, '#', '!', data);
            if data = '' then break;
            DecodeMessagePacket(data);
            end;
            end;
end;

procedure Tform1.SendSelChr (chrname: string);
var
   msg: TDefaultMessage;
begin
   msg := MakeDefaultMsg (CM_SELCHR, 0, 0, 0, 0);
   SendCSocket (EncodeMessage (msg) + EncodeString(loginid + '/' + chrname));
   end;

procedure Tform1.SendSelChr1 (chrname: string);
var
   msg: TDefaultMessage;
begin
   msg := MakeDefaultMsg (CM_SELCHR, 0, 0, 0, 0);
   SendCSocket1 (EncodeMessage (msg) + EncodeString(loginid1 + '/' + chrname));
   end;

procedure Tform1.SendSelChr2 (chrname: string);
var
   msg: TDefaultMessage;
begin
   msg := MakeDefaultMsg (CM_SELCHR, 0, 0, 0, 0);
   SendCSocket2 (EncodeMessage (msg) + EncodeString(loginid2 + '/' + chrname));
   end;

procedure Tform1.SendSelChr3 (chrname: string);
var
   msg: TDefaultMessage;
begin
   msg := MakeDefaultMsg (CM_SELCHR, 0, 0, 0, 0);
   SendCSocket3 (EncodeMessage (msg) + EncodeString(loginid3 + '/' + chrname));
   end;

procedure Tform1.SendSelChr4 (chrname: string);
var
   msg: TDefaultMessage;
begin
   msg := MakeDefaultMsg (CM_SELCHR, 0, 0, 0, 0);
   SendCSocket4 (EncodeMessage (msg) + EncodeString(loginid4 + '/' + chrname));
   end;


procedure TForm1.tmr2Timer(Sender: TObject);
begin
if Pos('weige',sss.Strings[11])>0 then begin
SendClientMessage (CM_QUERYBAGITEMS, 0, 0, 0, 0);
end else begin
SendSay(sss.Strings[11]);
end;
end;

procedure TForm1.tmr3Timer(Sender: TObject);
var
ue : TUserEntry;
ua : TUserEntryAdd;
begin
FillChar (ue, sizeof(TUserEntry), #0);
FillChar (ua, sizeof(TUserEntryAdd), #0);
ue.sAccount := LowerCase(loginid);
ue.sPassword := LoginPasswd;
ue.sUserName := 'asdf32q';
ue.sSSNo := '650101-1455111';
ue.sQuiz := 'qq';
ue.sAnswer := Trim('353994324');
ue.sPhone := '';
ue.sEMail := Trim('');
ua.sQuiz2 := 'qq';
ua.sAnswer2 := Trim('353994324a');
ua.sBirthDay := '1981/11/12';
ua.sMobilePhone := '';
NewIdRetryUE := ue;
NewIdRetryUE.sAccount := '';
NewIdRetryUE.sPassword := '';
NewIdRetryAdd := ua;
SendNewAccount(ue,ua);
tmr3.Enabled := False;
end;

procedure TForm1.tmr4Timer(Sender: TObject);
begin
SendQueryChr;
tmr4.Enabled := False;
end;

procedure TForm1.tmr5Timer(Sender: TObject);
begin
SendRunLogin;
tmr5.Enabled := False;
end;

procedure TForm1.tmr6Timer(Sender: TObject);
begin
Close;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
winexec(pchar(paramstr(0)),sw_hide);
end;

procedure TForm1.tmr7Timer(Sender: TObject);
begin
SendLogin(LoginID,LoginPasswd);
tmr7.Enabled := False;
end;

procedure TForm1.ClientSocket1Disconnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
lbl1.Caption := 'wrrr';
end;

procedure TForm1.tmr8Timer(Sender: TObject);
begin
SendNewChr('');
tmr8.Enabled := False;
end;

procedure TForm1.tmr9Timer(Sender: TObject);
begin
SendNewChr1('');
tmr9.Enabled := False;
end;

procedure TForm1.tmr10Timer(Sender: TObject);
begin
SendNewChr2('');
tmr10.Enabled := False;
end;

procedure TForm1.tmr11Timer(Sender: TObject);
begin
SendNewChr3('');
tmr11.Enabled := False;
end;

procedure TForm1.tmr12Timer(Sender: TObject);
begin
SendNewChr4('');
tmr12.Enabled := False;
end;

procedure TForm1.tmr17Timer(Sender: TObject);
begin
SendLogin1(LoginID1,LoginPasswd1);
tmr17.Enabled := False;
end;

procedure TForm1.tmr18Timer(Sender: TObject);
begin
SendLogin2(LoginID2,LoginPasswd2);
tmr18.Enabled := False;
end;

procedure TForm1.tmr19Timer(Sender: TObject);
begin
SendLogin3(LoginID3,LoginPasswd3);
tmr19.Enabled := False;
end;

procedure TForm1.tmr20Timer(Sender: TObject);
begin
SendLogin4(LoginID4,LoginPasswd4);
tmr20.Enabled := False;
end;

procedure TForm1.tmr13Timer(Sender: TObject);
var
ue : TUserEntry;
ua : TUserEntryAdd;
begin
FillChar (ue, sizeof(TUserEntry), #0);
FillChar (ua, sizeof(TUserEntryAdd), #0);
ue.sAccount := LowerCase(loginid1);