首页
论坛
课程
招聘
[原创]热血江湖V40004版喊话CALL(Delphi2010源码)
2010-2-2 23:28 3515

[原创]热血江湖V40004版喊话CALL(Delphi2010源码)

2010-2-2 23:28
3515
热血江湖最新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,    
      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;

[2023春季班]《安卓高级研修班(网课)》月薪两万班招生中~

收藏
点赞0
打赏
分享
最新回复 (0)
游客
登录 | 注册 方可回帖
返回