收藏个函数,PctGL那里搞来的,还不清楚啥作用.....
作者:admin 日期:2010-04-21
复制内容到剪贴板
程序代码
程序代码Declare Function GetIDsOfNames Lib "msvbvm60.dll" Alias "BASIC_CLASS_GetIDsOfNames" (ByVal ThisInterface As Long, Optional ByVal RIID As Long = &H733AAE58, Optional ByVal VarptrStringMethodNames As Long, Optional ByVal CountNames As Long = 1, Optional ByVal LCID As Long = &H409&, Optional ResultDispID As Integer) As Long
收着先.
***************** 补充 ******************
这个函数是根据方法名称取方法地址的,示例:
复制内容到剪贴板 程序代码
程序代码If (GetIDsOfNames(ObjPtr(Me), &H733AAE58, ByVal VarPtr(cName), 1, &H409&, IDs)) = 0 Then
Dim mePtr As Long
Dim jmpAddress As Long
mePtr = ObjPtr(Me)
CopyMemory jmpAddress, ByVal mePtr, 4
CopyMemory jmpAddress, ByVal jmpAddress + IDs * 4 + &H1C, 4
MsgBox Hex(jmpAddress)
End If
Dim mePtr As Long
Dim jmpAddress As Long
mePtr = ObjPtr(Me)
CopyMemory jmpAddress, ByVal mePtr, 4
CopyMemory jmpAddress, ByVal jmpAddress + IDs * 4 + &H1C, 4
MsgBox Hex(jmpAddress)
End If
cName是方法名称,jmpAddress是cName地址.
上一篇: 
下一篇: 
文章来自: 评论: 7 | 引用: 0 | 查看次数: 939
yimins[2010-05-14 04:14 PM | 
]大哥的东西果然和他的RP一样WS
admin 于 2010-05-14 08:25 PM 回复
admin 于 2010-05-14 08:25 PM 回复说得好哇,哈哈.
admin[2010-04-21 10:57 PM | ]........谁?想干嘛?
admin[2010-04-21 12:43 AM | ]主要是要睡了,明天还要早起,就先扔这里,以后再补充.
刚刚补充了一点.
刚刚补充了一点.
admin[2010-04-21 12:42 AM | ]
你还真速度.........fisheep[2010-04-21 12:36 AM | ]那你还收藏。。。
