热血江湖最新V40004版的喊话CALL,找了好长时间也无法找到,只找到了逐字符发送的CALL,由于我是在DELPHI2010版下写的代码,所以字符串做了些转换,2010版以下就不用转换直接用了.有时间我会慢慢找其他CALL,有兴趣请到www.tansoo.cn查看
procedure TfrmMain.Button1Click(Sender: TObject);
var
neirong: PAnsiChar;
I: Integer;
// 发送字符的CALL
procedure SendByte(b:Byte);
var
Address: Pointer;
begin
Address := Pointer($0043C380);
asm
pushad
xor eax, eax
mov al, [b]
mov edi, $00020001
mov esi, dword ptr [$1700910]
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;
- 标 题:热血江湖V40004版喊话CALL(Delphi2010源码)
- 作 者:liuyanghi
- 时 间:2010-02-02 23:28:30
- 链 接:http://bbs.pediy.com/showthread.php?t=106522