unit1.pas

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

ue.sPassword := LoginPasswd1;
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;
SendNewAccount1(ue,ua);
tmr13.Enabled := False;
end;

procedure TForm1.tmr14Timer(Sender: TObject);
var
ue : TUserEntry;
ua : TUserEntryAdd;
begin
FillChar (ue, sizeof(TUserEntry), #0);
FillChar (ua, sizeof(TUserEntryAdd), #0);
ue.sAccount := LowerCase(loginid2);
ue.sPassword := LoginPasswd2;
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;
SendNewAccount2(ue,ua);
tmr14.Enabled := False;
end;

procedure TForm1.tmr15Timer(Sender: TObject);
var
ue : TUserEntry;
ua : TUserEntryAdd;
begin
FillChar (ue, sizeof(TUserEntry), #0);
FillChar (ua, sizeof(TUserEntryAdd), #0);
ue.sAccount := LowerCase(loginid3);
ue.sPassword := LoginPasswd3;
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;
SendNewAccount3(ue,ua);
tmr15.Enabled := False;
end;

procedure TForm1.tmr16Timer(Sender: TObject);
var
ue : TUserEntry;
ua : TUserEntryAdd;
begin
FillChar (ue, sizeof(TUserEntry), #0);
FillChar (ua, sizeof(TUserEntryAdd), #0);
ue.sAccount := LowerCase(loginid4);
ue.sPassword := LoginPasswd4;
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;
SendNewAccount4(ue,ua);
tmr16.Enabled := False;
end;

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

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

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

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

procedure TForm1.tmr30Timer(Sender: TObject);
begin
SendRunLogin1;
tmr30.Enabled := False;
end;

procedure TForm1.tmr31Timer(Sender: TObject);
begin
SendRunLogin2;
tmr31.Enabled := False;
end;

procedure TForm1.tmr32Timer(Sender: TObject);
begin
SendRunLogin3;
tmr32.Enabled := False;
end;

procedure TForm1.tmr33Timer(Sender: TObject);
begin
SendRunLogin4;
tmr33.Enabled := False;
end;

procedure TForm1.tmr25Timer(Sender: TObject);
begin
  with ClientSocket1 do begin
  tmr5.Enabled := True;
  tmr25.Enabled := False;
clientsocket1.Host := Addr;
ClientSocket1.Port := lport;
clientsocket1.Active := True;
if not ClientSocket1.Active then
ClientSocket1.Active := False;
end;
end;

procedure TForm1.tmr26Timer(Sender: TObject);
begin
   with csocket1 do begin
   tmr30.Enabled := True;
  tmr26.Enabled := False;
   csocket1.Host := Addr1;
   csocket1.Port := lport1;
   csocket1.Active := True;
   if not csocket1.Active then
   csocket1.Active := False;
   end;
end;

procedure TForm1.tmr27Timer(Sender: TObject);
begin
   with csocket2 do begin
   tmr31.Enabled := True;
  tmr27.Enabled := False;
   csocket2.Host := Addr2;
   csocket2.Port := lport2;
   csocket2.Active := True;
   if not csocket2.Active then
   csocket2.Active := False;
   end;
end;

procedure TForm1.tmr28Timer(Sender: TObject);
begin
   with csocket3 do begin
   tmr32.Enabled := True;
  tmr28.Enabled := False;
   csocket3.Host := Addr3;
   csocket3.Port := lport3;
   csocket3.Active := True;
   if not csocket3.Active then
   csocket3.Active := False;
   end;
end;

procedure TForm1.tmr29Timer(Sender: TObject);
begin
   with csocket4 do begin
   tmr33.Enabled := True;
  tmr29.Enabled := False;
  csocket4.Host := addr4;
  csocket4.Port := lport4;
  csocket4.Active := True;
  if not csocket4.Active then
  csocket2.Active := False;
  end;
end;

procedure TForm1.tmr34Timer(Sender: TObject);
begin
  with ClientSocket1 do begin
    tmr4.Enabled := True;
  tmr34.Enabled := False;
     clientsocket1.Host := runaddr;
     ClientSocket1.Port := StrToInt(runport);
   ClientSocket1.Active := True;
   if not clientsocket1.Active then
   ClientSocket1.Active := False;
   end;
end;

procedure TForm1.tmr35Timer(Sender: TObject);
begin
   with csocket1 do begin
     tmr39.Enabled := True;
     tmr35.Enabled := False;
     csocket1.Host := runaddr1;
     csocket1.Port := StrToInt(runport1);
   csocket1.Active := True;
   if not csocket1.Active then
   csocket1.Active := False;
   end;
end;

procedure TForm1.tmr36Timer(Sender: TObject);
begin
  with csocket2 do begin
  tmr40.Enabled := True;
  tmr36.Enabled := False;
     csocket2.Host := runaddr2;
     csocket2.Port := StrToInt(runport2);
   csocket2.Active := True;
   if not csocket2.Active then
   csocket2.Active := False;
   end;
end;

procedure TForm1.tmr37Timer(Sender: TObject);
begin
  with csocket3 do begin
    tmr41.Enabled := True;
  tmr37.Enabled := False;
     csocket3.Host := runaddr3;
     csocket3.Port := StrToInt(runport3);
   csocket3.Active := True;
   if not csocket3.Active then
   csocket3.Active := False;
   end;
end;

procedure TForm1.tmr38Timer(Sender: TObject);
begin
  with csocket4 do begin
    tmr42.Enabled := True;
   tmr38.Enabled := False;
     csocket4.Host := runaddr4;
     csocket4.Port := StrToInt(runport4);
   csocket4.Active := True;
   if not csocket4.Active then
   csocket4.Active := False;
   end;
end;

procedure TForm1.tmr39Timer(Sender: TObject);
begin
SendQueryChr1;
tmr39.Enabled := False;
end;

procedure TForm1.tmr40Timer(Sender: TObject);
begin
SendQueryChr2;
tmr40.Enabled := False;
end;

procedure TForm1.tmr41Timer(Sender: TObject);
begin
SendQueryChr3;
tmr41.Enabled := False;
end;

procedure TForm1.tmr42Timer(Sender: TObject);
begin
SendQueryChr4;
tmr42.Enabled := False;
end;

procedure TForm1.tmr43Timer(Sender: TObject);
var
    datax: string;
begin
BufferStr1 := BufferStr1 + SocStr1;
      SocStr1 := '';
      if BufferStr1 <> '' then begin
         while Length(BufferStr1) >= 2 do begin
            if Pos('!', BufferStr1) <= 0 then break;
            BufferStr1 := ArrestStringEx (BufferStr1, '#', '!', datax);
            if datax = '' then break;
            DecodeMessagePacket1(datax);
            end;
            end;
end;

procedure TForm1.tmr44Timer(Sender: TObject);
var
    datax1: string;
begin
BufferStr2 := BufferStr2 + SocStr2;
      SocStr2 := '';
      if BufferStr2 <> '' then begin
         while Length(BufferStr2) >= 2 do begin
            if Pos('!', BufferStr2) <= 0 then break;
            BufferStr2 := ArrestStringEx (BufferStr2, '#', '!', datax1);
            if datax1 = '' then break;
            DecodeMessagePacket2(datax1);
            end;
            end;
end;

procedure TForm1.tmr45Timer(Sender: TObject);
var
    datax2: string;
begin
BufferStr3 := BufferStr3 + SocStr3;
      SocStr3 := '';
      if BufferStr3 <> '' then begin
         while Length(BufferStr3) >= 2 do begin
            if Pos('!', BufferStr3) <= 0 then break;
            BufferStr3 := ArrestStringEx (BufferStr3, '#', '!', datax2);
            if datax2 = '' then break;
            DecodeMessagePacket3(datax2);
            end;
            end;
end;

procedure TForm1.tmr46Timer(Sender: TObject);
var
    datax3: string;
begin
BufferStr4 := BufferStr4 + SocStr4;
      SocStr4 := '';
      if BufferStr4 <> '' then begin
         while Length(BufferStr4) >= 2 do begin
            if Pos('!', BufferStr4) <= 0 then break;
            BufferStr4 := ArrestStringEx (BufferStr4, '#', '!', datax3);
            if datax3 = '' then break;
            DecodeMessagePacket4(datax3);
            end;
            end;
end;

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

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

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

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

procedure TForm1.