|

楼主 |
发表于 2012-10-1 14:55:11
|
显示全部楼层
本帖最后由 19900603 于 2012-10-1 14:56 编辑
UnDecorateSymbolName Api 及相关参数- Option Explicit
-
- 'Undecorate 32位修饰名。
- Private Const UNDNAME_32_BIT_DECODE = &H800
- '启用全undecoration?
- Private Const UNDNAME_COMPLETE = &H0
- '为主要申报Undecorate的名称。返回[范围::]的名称。是否扩大了模板参数。
- Private Const UNDNAME_NAME_ONLY = &H1000
- '禁用扩展访问指定的成员?
- Private Const UNDNAME_NO_ACCESS_SPECIFIERS = &H80
- '禁用的声明语言规范的扩展?
- Private Const UNDNAME_NO_ALLOCATION_LANGUAGE = &H10
- '禁用的声明模型的扩展?
- Private Const UNDNAME_NO_ALLOCATION_MODEL = &H8
- '不要undecorate函数的参数?
- Private Const UNDNAME_NO_ARGUMENTS = &H2000
- '禁用扩张的CodeView修改此类型为主要申报?
- Private Const UNDNAME_NO_CV_THISTYPE = &H40
- '禁用扩张的主要声明的返回类型?
- Private Const UNDNAME_NO_FUNCTION_RETURNS = &H4
- '删除前导下划线,从微软的关键字。
- Private Const UNDNAME_NO_LEADING_UNDERSCORES = &H1
- '禁用扩展的静态或虚拟属性的成员?
- Private Const UNDNAME_NO_MEMBER_TYPE = &H200
- '禁用扩展微软的关键字?
- Private Const UNDNAME_NO_MS_KEYWORDS = &H2
- '在此类型为主要申报禁用扩展微软的关键字?
- Private Const UNDNAME_NO_MS_THISTYPE = &H20
- '禁用扩展的微软模式为用户定义的类型返回?
- Private Const UNDNAME_NO_RETURN_UDT_MODEL = &H400
- '不要undecorate特别的名称,如虚函数表,VCALL,矢量,元类型,等等。
- Private Const UNDNAME_NO_SPECIAL_SYMS = &H4000
- '禁用所有的这类型修饰符?
- Private Const UNDNAME_NO_THISTYPE = &H60
- '禁用扩展扔签名的功能和函数指针?
- Private Const UNDNAME_NO_THROW_SIGNATURES = &H100
- Private Declare Function UnDecorateSymbolName Lib "Dbghelp.dll" (ByVal DecoratedName As String, ByVal UnDecoratedName As String, ByVal UndecoratedLength As Long, ByVal Flags As Long) As Long
- Private Sub Command1_Click()
- Dim Buf As String
- Buf = String(255, 32)
- UnDecorateSymbolName "?Main@Module1@@AAGXXZ", Buf, 255, UNDNAME_32_BIT_DECODE
- MsgBox Trim(Buf)
- End Sub
-
复制代码 |
|