• 1887阅读
  • 2回复

发个赤壁写屏CALL [复制链接]

上一主题 下一主题
离线啊冲
 

只看楼主 倒序阅读 使用道具 楼主  发表于: 2014-06-09
  type
    screensay=record
    mmmm:dword;
    straddr:dword;
    mmmm2:dword;
    mmmm3:dword;
    mmmm4:dword;
    mmmm5:dword;
    mmmm6:dword;
    mmmm7:dword;
  end;
procedure TForm1.Button13Click(Sender: TObject);
var myscreensay:screensay;
saystr:pwidechar;
addr,addrc:pointer;
begin
saystr:=pwidechar(widestring(edit4.Text));//写屏的内容
myscreensay.mmmm:=$008BB7F0;
myscreensay.mmmm2:=$008BB800;
myscreensay.mmmm3:=$008AA9EC;
myscreensay.mmmm4:=$0;
myscreensay.mmmm5:=$0;
myscreensay.mmmm6:=$0;
myscreensay.mmmm7:=$10;
myscreensay.straddr:=dword(saystr);
addr:=@myscreensay;
addrc:=pointer($0053D830);
asm
  pushad
    mov esi,addr
    push esi
    mov ecx,dword ptr[$97d558]
    mov ecx,dword ptr[ecx+$1c]
    mov ecx,dword ptr[ecx+$4]
    mov eax,dword ptr[ecx+$8]
    mov ecx,eax
    call addrc
  popad
end;
end;
善者 慈悲心常在 无怨无恨 以苦为乐
默认压缩密码www.hifyl.com
文件分享密码问题:http://www.hifyl.com/read-htm-tid-4444.html
离线李侃

只看该作者 沙发  发表于: 2014-06-10
技术为王,我辈在路上
离线nopara

只看该作者 板凳  发表于: 2016-12-13
谢谢分享!!!!
快速回复
限100 字节
如果您提交过一次失败了,可以用”恢复数据”来恢复帖子内容
 
上一个 下一个