VB从零开始编外挂(十二)

【 tulaoshi.com - 编程语言 】

--------------------------------------------------------------------------------------------------------------------------------------------------------

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:estDLLdebugestDLL.dll
　　
　　一般来说，你需要在VB中作如下声明
　　
　　DeclareSubmytestLib"c:estDLLdubugestDLL.dll"(ByValxAsLong)
　　
　　另外的一个变通方法是把testDLL.dll放在windows的系统目录下，这样，你就可以直接引用文件名了。不过，需要把一个文件放到windows系统目录下，很是不爽！
　　
　　2）相对路径方法
　　
　　看看我们如何用相对路径，假设你的DLL文件位于c:estDLLdebugestDLL.dll，你的VB程序位于目录c:estDLLvbClient
　　你可以在VB程序中作如下声明：
　　
　　DeclareSubmytestLib"../dubug/testDLL.dll"(ByValxAsLong)
　　
　　如果直接运行你的VB程序，系统会提示错误：找不到../dubug/testDLL.dll.
　　
　　为了使上面的声明其作用，先暂时关闭你的VB工程。然后用一个文本编辑器(notepad,editplus,etc)打开工程文件（就是那个后缀是vbp的家伙），通常vbp文件由几个部分组成。