热血江湖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