VB从零开始编外挂(十二)
2006-02-27 21:11:25 来源:WEB开发网--------------------------------------------------------------------------------------------------------------------------------------------------------
VB实现指针访问!DLL的访问
--------------------------------------------------------------------------------------------------------------------------------------------------------
CopyMemory函数提供了一个简单的方法来执行C 中见解访问运算符(*),这个运算符可以访问被一个指针变量所指向的变量的值。
即如有指针变量P,在C 中可以简单的用*P来访问,那在VB中怎么访问呢?
在VB中,我们可以使用CopyMemory函数别名。
DeclareSubVBGetTargetLb"kernel32"Alias"RtlMoveMemory"(TargetAsAny,ByVallPointAsLong,ByValcbCopyAsLong)
例子:
DimPointerAsLong
DimTargetAsInteger
DimiAsInteger
i=123
Pointer=VarPtr(i)'获得指针
VBGetTargetTarget,Pointer,LenB(Target)
Debug.PRintTarget
--------------------------------------------------------------------------------------------------------------------------------------------------------
很长时间以来,都认为只能通过绝对路径引用标准DLL中的函数。其实,你也可以用相对路径。很简单的,现在就尝试一下吧。
1)绝对路径方法
比如你的DLL文件位于c:\testDLL\debug\testDLL.dll
一般来说,你需要在VB中作如下声明
DeclareSubmytestLib"c:\testDLL\dubug\testDLL.dll"(ByValxAsLong)
另外的一个变通方法是把testDLL.dll放在windows的系统目录下,这样,你就可以直接引用文件名了。不过,需要把一个文件放到windows系统目录下,很是不爽!
2)相对路径方法
看看我们如何用相对路径,假设你的DLL文件位于c:\testDLL\debug\testDLL.dll,你的VB程序位于目录c:\testDLL\vbClient
你可以在VB程序中作如下声明:
DeclareSubmytestLib"../dubug/testDLL.dll"(ByValxAsLong)
如果直接运行你的VB程序,系统会提示错误:找不到../dubug/testDLL.dll.
为了使上面的声明其作用,先暂时关闭你的VB工程。然后用一个文本编辑器(notepad,editplus,etc)打开工程文件(就是那个后缀是vbp的家伙),通常vbp文件由几个部分组成。
更多精彩
赞助商链接