VB 从零开始编外挂(十二)
2024-07-21 02:20:46
供稿：网友
vb实现指针访问！dll的访问
--------------------------------------------------------------------------------------------------------------------------------------------------------
copymemory函数提供了一个简单的方法来执行c++中见解访问运算符（*），这个运算符可以访问被一个指针变量所指向的变量的值。
即如有指针变量 p，在c++中可以简单的用 *p 来访问，那在 vb 中怎么访问呢？
在 vb 中，我们可以使用 copymemory函数别名。
declare sub vbgettarget lb "kernel32" alias "rtlmovememory"(target as any,byval lpoint as long,byval cbcopy as long)
例子：
dim pointer as long
dim target as integer
dim i as integer
i=123
pointer=varptr(i) '获得指针
vbgettarget target,pointer,lenb(target)
debug.print target
--------------------------------------------------------------------------------------------------------------------------------------------------------
很长时间以来，都认为只能通过绝对路径引用标准dll中的函数。其实，你也可以用相对路径。很简单的，现在就尝试一下吧。
1）绝对路径方法
比如你的dll文件位于c:/testdll/debug/testdll.dll
一般来说，你需要在vb中作如下声明
declare sub mytest lib "c:/testdll/dubug/testdll.dll" (byval x as long)
另外的一个变通方法是把testdll.dll放在windows的系统目录下，这样，你就可以直接引用文件名了。不过，需要把一个文件放到windows系统目录下，很是不爽！
2）相对路径方法
看看我们如何用相对路径，假设你的dll文件位于c:/testdll/debug/testdll.dll，你的vb程序位于目录c:/testdll/vbclient
你可以在vb程序中作如下声明：
declare sub mytest lib "../dubug/testdll.dll" (byval x as long)
如果直接运行你的vb程序，系统会提示错误：找不到../dubug/testdll.dll.
为了使上面的声明其作用，先暂时关闭你的vb工程。然后用一个文本编辑器(notepad,editplus,etc)打开工程文件（就是那个后缀是vbp的家伙），通常vbp文件由几个部分组成。
国内最大的酷站演示中心!
