VB深度下潜 之 一米深度（VB指针入门）

前 言

本来我也是非常赞同网上一个流行的观点，VB只是一个玩具。诚然，作为一个VB的普通使用者的确无法玩出更多的东东。但是，这几个月我完全不管VB的普通应用，而是一头扎入COM的海洋里，凭着潘爱民老师的一片小帆《COM原理及应用》以及一袋干粮《Advance Visual Basic》。居然在冰冷的技术海洋里转了几个月。终于发现了一个VB惊天之迷。然后当然有了这个长篇。

如里不是偶然，在五笔字型里，VB是代表“好”字。但我所说的迷不是指这个。请你跟随我来拨云见日，看清VB是什么。如果当你全部看清了以下的事实，我相信你不会说VB是一个玩具。

起初，比尔的灵运行于水上。

比尔说要有DOS，于是就有了DOS

……

第八天，比尔说要有VB，于是就创造出了VB。

                                                《 3S 新约第一章》

深度下潜

你需要一套不错的潜水服（VB6.0企业版，你不会说你没有吧，其实我只有D版的，呵呵）一个潜水镜（VC6.0所带的OleView），当然你还得有较好的游泳技术（坚实的COM技术和C/C++功底，不过我也不是很好），然而最重要的是，你可以忍受这次痛苦的经历。如果你是PLMM，可以直接与我联系，我会来保护你安全，呵呵。

Everybody ,ok? Lets go

第一天

下潜深度（一米，水温0°C），时间北京时间零点整。

“大家好！我是这次探险的队长BlueDog，其实我并不是情圣，呵呵，虽然很多MM都把我当作梦中情人。”

“你们都不舒服么，为什么大家都在呕吐，噢，我知道了，这很正常么，是晕船呀。”

“呯！”

。。。。。。。

好了，费话少说。拿出你们的JJ（操，我是指你的机器，电脑，计算机，懂不懂！）

打开一个VB工程，建一个标准的EXE。接下来的，我们需要使用到VB的指针，当我的话没有说完的时候，一只蚊子嗡嗡的说：“老大，VB中可没有指针呀”。

“啪”，世界清静了！

“我最不喜欢有人打断我的讲话了，哼！”

对了，在下水之前，我还没有发给你们一个很重要的装备氧气瓶（3S Ole TypeLib），这是居家旅行，杀人灭口的必备利器。

“哪里有得买呢？”

http://www.xtcz.net/bbs/dispbbs.asp?boardid=8&id=1096

你下载后，需要解压，你后你会得到一个3SoleLib.tlb的文件，此文件是美国进口，中国贴牌生产的。所以使用此文件我不保证没有任何官司缠身。至少如果你用于商业软件，你得请我吃当地的大排档一次，作为你的使用费。

然后用最经典的DOS命令

copy c:/3solelib.tlb c:/windows/system32

好了，你然后在你新建的工程中选择 工程->引用 ，引用这个文件，不会用，去死吧。

然后是不是发生了很奇妙的事情？？？

没有，晕，老大，你按F2看看，是不是多了一个 olelib的东东

不知道？去死吧，受我一记极度冰冻拳。

有什么用？好，我来告诉你有什么用。

以前，你写个API是不是要用Declare之类的东东，现在用不着了，你可以直接使用这个API了，至少对于大部分的与COM有关的API是这样子的了。（具体的原因以后进行说明）

如果你真的不懂也不紧，谁叫你是郭靖呢。我们需要里面一个很重要的东东，你在对象浏缆器中可以查找MoveMemory，是不是可以找到以下相关的定义。

Sub MoveMemory(pDest As Any, pSource As Any, ByteLen As Long)

这便是我们今天所要找的东东。

下面我们在一个Form上加一个按钮。然后在CODE界面录入

Private Sub Command1_Click()

  Dim i As Long

  Dim j As Long

i = 3

  j = 4

  MoveMemory ByVal Varptr(i), ByVal VarPtr(j), 4

  Debug.Print i, j

End Sub

运行，看看，发生了什么。I的值也变成了4 ，这是真的。神呀。一定发生了什么。让我们来看看倒底发生了什么。

 首先我们看到Varptr,老师告诉我们有问题问MSDN，但是MSDN没告诉我们。到GOOGLE查一查，好多不多，原来是取变量的地址。再到VB的对象浏缆器中找找，打开显示隐含成员，然后再查找，VB会显示

Function VarPtr(Ptr As Any) As Long

    VBA._HiddenModule 的成员

比尔在这里隐藏了这个东东，在它的附近有ObjPtr、StrPtr，它们又是作什么用的呢，简单的说Objptr是取对象地址，StrPtr是取字符串地址的。这两个东东明天再谈。

那么，另一个MoveMemory又是什么？来看看MSDN的原文

The MoveMemory function moves a block of memory from one location to another.

VOID MoveMemory (
 

  PVOID Destination,  // address of move destination
 

  CONST VOID *Source, // address of block to move
 

  DWORD Length        // size, in bytes, of block to move
 

);
 

对于梵文不好的同学，我给大家翻译一下（“MoveMemory这个函数的作用是将一堆钱从一个口袋移到另一个口袋，）好，太好了，那么要是写上

Movemoney(mybag,bossbag,1000000000000)

大哥，看清点是Memory不是money！

那么，

就只能将一块内存的数据搬到另一块内存

是这样。

其实很早以前，美国的高手风清杨同志（Bruce McKinney）就搞出了这个东东，让VB门人也可以象C门人一样练葵花宝典而不用自宫。实在是我等之大幸。不过他重新定义成CopyMemory，实际上Windows API中是没有这个东东的。

好了，笑话少说，看看上面那行代码是什么意思

MoveMemory ByVal Varptr(i), ByVal VarPtr(j), 4

是不是指从 j 处移到 4个字节（long型）到 I 处。

Excellent ,不过你还有一个地方没注意，为什么我要用 Byval 而不用 Byref

不信，你用

MoveMemory VarPtr(i), VarPtr(j), 4 这行代码来代替上面那行，再运行一下，

山还是那座山，I 还是等于 3 ，所以我们还要来仔细研读MoveMemory在氧气瓶里的定义

Sub MoveMemory(pDest As Any, pSource As Any, ByteLen As Long)

看出来没有，在VB中

指定 As Any 来禁止类型检查，从而允许将任意数据类型传递给该过程

那么如果我们用Byval时，传的就是j的地址值。

而用byref 传的就是储存 j的地址值的临时变量的地址值（为什么这么拗口呀）

明白？

如果你不明白，正是所谓的资质有限，呵呵，不怪你。

这位同学又说了，那要是这样，我不直接用

MoveMemory i, j, 4

就好了，何必这么麻烦。聪明，你看看人家的理解能力。

不过我只是为了告诉大家varptr是如何用的而已。

另一个同学就说了，其实还有更简单的

I=j

猪。

这时候深度计显示已达到一米，一个同学惊呼，“不明生物来袭”。。。。