分享vb内嵌汇编学习心得 - VB / COM/DCOM/COM+
经过一段时间的学习，总算把vb的函数调用，以及类方法的压栈方式弄懂了。
虽然vb可以通过类型库定义接口方法，更方便，但是直接用vb的类的方式，调用函数指针也是可以的。网上有很多方法是通过callwindowproc那个回调函来实现vb使用函数指针。不过我实现了用vb嵌汇编来实现调用函数指针。
'IVBoost类模块
Public Function UAdd(ByVal x As Long, ByVal y As Long) As Long
'0
End Function
Public Function UDif(ByVal x As Long, ByVal y As Long) As Long
'1
End Function
Public Function CallLongReturnLong(ByVal pFn As Long, ByVal x As Long) As Long
'2 还可以加入更多的调用方式
End Function
‘--------------------------
'VBoostImp.cls
Private mVBoost As IVBoost
Private Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" ( _
ByRef Destination As Any, _
ByRef Source As Any, _
ByVal Length As Long)
Private ASM(300) As Long
Dim pTVable As Long
Private Sub Class_Initialize()
Set mVBoost = New IVBoost
Dim pObj As Long
pObj = ObjPtr(mVBoost)
CopyMemory pTVable, ByVal pObj, 4
'-------------------
'UAdd
ASM(0) = &H824448B
ASM(1) = &HC244403
ASM(2) = &H10245C8B
ASM(3) = &HC0330
相关问答：
DIM ds as new DataSet
我这样声明 怎老是报 用户定义类型未定义？ 这个需要引用什么吗？？
前提是DataSet对象要存在,就是对象浏览器中有它.没有就要引用.
dataset是ADO.NET对象
如果你用的是vb.net，那么在� ......
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' 打开刚创建的文件。
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' 读入所有字符到变量中 ......
数据库里有一个字段的内容是二进制，怎么才能把这个二进制读出来
使用字节流对象可以实现
例如现在数据库里有个字段的内容是0x504B03040A0000000800407F263C3B02465390000000820000000A0000006273CECACCE22E7478 ......
vb WebBrowser 小问题，请教：
WebBrowser里的网址跳转后，怎么取得跳转后的页面的URL地址
顶下顶下
引用
BeforeNavigate2
好像没有这个吧 vb6.0
BeforeNavigate2
这个可以有，呵呵。
......
