删除自己

VB一直以来被认为有以下优缺点：优点是上手快、开发效率高；缺点是能力有限，运行效率低。VB被其它语言的拥护者诟病的有很多，不支持指针，不支持重载，不支持内联汇编等等等等。当我们享受着VB的简单时，却发现我们的发挥空间越来越小。的确，简单和功能强大这两者本身就是一对矛盾。那怕一行代码不写，仅仅起动运行一个空窗体这样简单动作，VB在底下就为我们做了大量复杂的工作（决不仅仅是注册窗口类、显示窗口、起动消息循环这么简单），而这些工作对程序员来说是透明的。 
由于本人的水平有限，以及相关硬件的制约（我的台式电脑CPU还是ＰＩＩ４５０，只能装ＷＩＮ2000），以下的结论没特殊声明只对WIN2000有效。 
好了，开始吧！我们需要的软件，VB6+SP6，反编译软件W32dsm89（VC也行）；相关知识：熟悉VB，最好知道Ｃ语言中的指针，堆栈，当然，不懂也不要紧，相关知识笔者都会一一给出解释的。 
一．基本概念 
1、CopyMemory 
如CopyMemory的声明，它是定义在Kernel32.dll中的RtlMoveMemory这个API，32位C函数库中的memcpy就是这个API的包装。它的功能是将从Source指针所指处开始的长度为Length的内存拷贝到Destination所指的内存处。它不会管我们的程序有没有读写该内存所应有的权限，一但它想读写被系统所保护的内存时，我们就会得到著名的Access Violation Fault(内存越权访问错误)，甚至会引起更著名的general protection (GP) fault（通用保护错误） 。所以，在进行本系列文章里的实验时，请注意随时保存你的程序文件，在VB集成环境中将"工具"->"选项"中的"环境"选项卡里的"启动程序时"设为"保存改变"，并记住在"立即"窗口中执行危险代码之前一定要保存我们的工作成果。

2、VatPtr/StrPtr 
它们是VB提供给我们的宝贝，它们是VBA函数库中的隐藏函数。VarPtr返回的是变量的地址，StrPtr返回的是BSTR指向的Unicode字符数组的地址。下面详细阐述一下BSTR。 
假设变量str位于地址aaaa处，而这个字符数组在地址xxxx处，它是变量str的内容。 
为了看到以下的内容： 
VarPtr＝aaaa 
StrPtr＝xxxx 
我们只要运行以下的代码： 
Dim lng as Long 
Dim I as Integer 
Dim s as String 
Dim b(1 to 10) as Byte 
Dim sp as Long, vp as Long

S=”Help”

sp=StrPtr(s) 
Debug.Print “StrPtr:” & sp

vp=VarPtr(s) 
Debug.Print “VarPtr:” & vp

‘验证vp＝aaaa和sp＝xxxx 
CopyMemory lng,Byval vp,4 
Debug.print lng=sp 
‘查看sp包含的字符数组的地址，从那个地址复制一个字节数组然后打印 
CopyMemory b(1),ByVal sp,10 
For I=1 to 10 
Debug.print b(i) 
Next I

输出结果是： 
StrPtr=xxxx 
VarPtr=aaaa 
True 
104 0 101 0 108 0 112 0 0 0

为什么要隐藏VatPtr/StrPtr？因为VB开发小组不鼓励我们用指针。以下就是VarPtr函数在C和汇编语言里的样子： 
在C里样子是这样的： 
long VarPtr(void* pv){ 
return (long)pv; 
} 
所对就的汇编代码就两行： 
mov eax,dword ptr [esp+4] 
ret 4 '弹出栈里参数的值并返回。 
之所以让大家了解VarPtr的具体实现，是想告诉大家它的开销并不大，因为它们不过两条指令，即使加上参数赋值、压栈和调用指令，整个获取指针的过程也就六条指令。当然，同样的功能在C语言里，由于语言的直接支持，仅需要一条指令即可。但在VB里，它已经算是最快的函数了，所以我们完全不用担心使用VarPtr会让我们失去效率！速度是使用指针技术的根本要求。 
一句话，VarPtr返回的是变量所在处的内存地址，也可以说返回了指向变量内存位置的指针，它是我们在VB里处理指针最重要的武器之一。

3、ByVal和ByRef 
ByVal传递的参数值，而ByRef传递的参数的地址。在一般程序中我们很少关心两者的区别，就算是传递了参数地址，只要在代码中小心不出现赋值语句，也是没有影响的。但是在一些api的应用中，规定要ByVal应用的，典型的应用就是CopyMemory。 
'体会ByVal和ByRef 
Sub TestCopyMemory() 
Dim l As Long 
l = 5 
Note: CopyMemory ByVal VarPtr(l), 40000, 4 
Debug.Print l 
End Sub 
上面标号Note处的语句的目的，是将l赋值为40000，等同于语句l=40000，你可以在"立即"窗口试验一下，会发现l的值的确成了40000。 
实际上上面这个语句，翻译成白话: 
----------------------------------------------------------------- 
就是从保存常数40000的临时变量处拷贝4个字节到变量k所在的内存中。