最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
VB 从零开始编外挂(十二)
时间:2008-01-12 编辑:简简单单 来源:一聚教程网
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: estDLLdebug estDLL.dll
一般来说,你需要在VB中作如下声明
Declare Sub mytest Lib "c: estDLLdubug estDLL.dll" (ByVal x As Long)
另外的一个变通方法是把testDLL.dll放在windows的系统目录下,这样,你就可以直接引用文件名了。不过,需要把一个文件放到windows系统目录下,很是不爽!
2)相对路径方法
看看我们如何用相对路径,假设你的DLL文件位于c: estDLLdebug estDLL.dll,你的VB程序位于目录c: estDLLvbClient
你可以在VB程序中作如下声明:
--------------------------------------------------------------------------------------------------------------------------------------------------------
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: estDLLdebug estDLL.dll
一般来说,你需要在VB中作如下声明
Declare Sub mytest Lib "c: estDLLdubug estDLL.dll" (ByVal x As Long)
另外的一个变通方法是把testDLL.dll放在windows的系统目录下,这样,你就可以直接引用文件名了。不过,需要把一个文件放到windows系统目录下,很是不爽!
2)相对路径方法
看看我们如何用相对路径,假设你的DLL文件位于c: estDLLdebug estDLL.dll,你的VB程序位于目录c: estDLLvbClient
你可以在VB程序中作如下声明:
相关文章
- 口袋妖怪:日月从零开始的精灵图鉴分享 11-23
- lol2016冰雪节什么时候开始,冰雪节新皮肤有哪些? 11-19
- 远离亚健康可可轻黑枸杞花青素果纤饮品 从喝可可轻开始 11-10
- NBA2K17所有模式第四节都是两分钟开始解决方法 09-25
- 网约车新规定下月实施 司机的审核清理开始了 09-12
- dnf8周年冒险家征集令活动什么时候开始,活动奖励有什么? 06-14