sendmessage.pas

这是天翼外挂的源代码

unit sendmessage;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,qsocket2,winsock,DePacket,packetstruct,unit2,unit1,queue;
procedure send_1(s:Tsocket);
procedure send_7(s:Tsocket);
procedure pulichar(s:Tsocket;pbuf:pchar;len:integer);//公聊函数
procedure privatechar(s:Tsocket;pbuf:pchar;par:pchar;len:integer;length:integer);//密聊函数
implementation

procedure send_1(s:Tsocket);  //送所选的人给服务器
var
  s1:string;
  i,j:integer;
begin
  fillchar(precode,255,$00);
  precode[0]:=char($2B);
  s1:=form2.bsSkinComboBox2.Text;
  i:=strlen(pchar(s1));
  precode[1]:=char(i);
  for j:=1 to i do
    begin
      precode[j+1]:=s1[j];
    end;
  {s1:=format('%s',[precode]);
  msgsend(s,pchar(s1),strlen(pchar(s1)));}
 j:=strlen(precode);
  encode(j);
  //msgsend(s,precode,strlen(precode));
  msgsend(s,coded,strlen(coded));
end;

{procedure send_2(s:Tsocket);
var
  j:integer;
begin
  fillchar(precode,255,$00);
  precode[0]:=char($1B);
  precode[1]:=char($01);
  N:=$03;
  j:=strlen(precode);
  encode(j);
  msgsend(s,coded,strlen(coded));
end;

procedure send_3(s:Tsocket);
var
  j:integer;
begin
  fillchar(precode,255,$00);
  precode[0]:=char($0F);
  precode[1]:=char($03);
  j:=strlen(precode);
  encode(j);
  msgsend(s,coded,strlen(coded));
end;

procedure send_4(s:Tsocket);
var
  j:integer;
begin
  fillchar(precode,255,$00);
  precode[0]:=char($37);
  precode[1]:=char($01);
  j:=strlen(precode);
  encode(j);
  msgsend(s,coded,strlen(coded));
end;

procedure send_5(s:Tsocket);
var
  j:integer;
begin
  fillchar(precode,255,$00);
  precode[0]:=char($37);
  precode[1]:=char($00);
  j:=strlen(precode);
  encode(j);
  msgsend(s,coded,strlen(coded));
end;

procedure send_6(s:Tsocket);
var
  j:integer;
begin
  fillchar(precode,255,$00);
  precode[0]:=char($72);
  precode[1]:=char($03);
  j:=strlen(precode);
  encode(j);
  msgsend(s,coded,strlen(coded));
end; }
procedure send_7(s:Tsocket);
var
  j:integer;
begin
  fillchar(precode,255,$00);
  precode[0]:=char($24);
  j:=strlen(precode);
  encode(j);
  msgsend(s,coded,strlen(coded));
end;

procedure pulichar(s:Tsocket;pbuf:pchar;len:integer);//公聊函数
begin
  fillchar(precode,255,$00);
  precode[0]:=char($0E);
  precode[1]:=char($00);
  precode[2]:=char(len);
  copymemory(precode+3,pbuf,len-1);
  precode[len+2]:=char($00);
  encode(len+3);
  msgsend(s,coded,len+3);
end;

procedure privatechar(s:Tsocket;pbuf:pchar;par:pchar;len:integer;length:integer);//密聊函数
begin
  fillchar(precode,255,$00);
  precode[0]:=char($19);
  precode[1]:=char($13);
  precode[2]:=char(len);                   
  copymemory(precode+3,pbuf,len);
  precode[len+3]:=char(length);
  copymemory(precode+len+4,par,length);
  encode(len+4+length);
  msgsend(s,coded,len+4+length);
end;

end.