谁能把这几句Delphi改成VB的？

Question

procedure TFrm_Pop.Button8Click(Sender: TObject);
var
Address:Pointer;
begin
Address:=Pointer($00593910);
asm
  pushad
  call address
  popad;
end;
end;
-----------------------------------------------------------
VB的转换不了，转成BCB的也行``

Answer 1

哈哈，这个要在VB中使用汇编啊，有点难，我现在也没有什么好的代码。对网上找找如何在VB中使用汇编的资料应该可以改写过来。

Answer 2

在vb的IDE中直接使用汇编，几乎是不可能的。
大家一般的做法是，先手工把汇编语言翻译成机器码，然后用writeprocessmemory 等函数写入进程中运行，或者通过调用callwindowproc等函数。网络上还有一些控件声称支持在vb 中直接编写汇编，原理是在vb编译之前，截获操作，然后在让vb继续编译。所有vb就无法使用调试功能了，因为你要把你的汇编源代码书写成vb中的注释语句，vb才不会报错。但是使用起来也不容易。我一般采用第一种方法，后来为了方便，自己可以写简单的汇编语言编译器，完成翻译工作，我写过简单的编译器，不是想象中的那么困难。希望你能成功。呵呵。。