热血江湖V40006版喊话CALL(Delphi2010源码)

热血江湖最新V40006版的喊话CALL,找了好长时间也无法找到,只找到了逐字符发送的CALL,由于我是在DELPHI2010版下写的代码,所以字符串做了些转换,2010版以下就不用转换直接用了.

好长时间没写代码了,脑子快不行了,该忘的都忘的差不多了.现在得找点东西写写了,呵呵,找游戏的CALL也蛮好玩的,其他的CALL慢慢的找吧..．怎么江湖只能用＂bp WSASend＂下断了哦?

procedure TfrmMain.Button1Click(Sender: TObject);
var
neirong: PAnsiChar;
I: Integer;

// 发送字符的CALL
procedure SendByte(b:Byte);
var
Address: Pointer;
begin
Address := Pointer($0043C5C0);
asm
pushad
xor   eax, eax
mov   al, [b]
mov   edi, $00020001
mov   esi, dword ptr [$1764540]
mov   ecx, esi
push  edi
push  eax
call  Address
popad
end;
end;
begin
// 将Unicode字符串转换成PAnsiChar型,并在最后加个回车符
neirong := PAnsiChar(AnsiString(Edit3.Text)+#$0D);
// 逐一发送字符
for I := 0 to Length(neirong)-1 do
SendByte(Byte(neirong[i]));
end;

www.tansoo.cn