分享
 
 
 

VB深度下潜 之 一米深度(VB指针入门)

王朝vb·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

前 言

本来我也是非常赞同网上一个流行的观点,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

猪。

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

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有