Linux中国 Linux中国门户站!
设为主页 设为主页
收藏本站 收藏本站
 
当前位置 :首页 ->编程语言 ->ViualBasic ->正文

VisualBasic深度下潜之海蛇缠绕

来源:Linuxdby.com 作者:Webmaster 时间:2007-06-05 点击: [收藏] [投稿]
海蛇”有人在惊呼。

  只见在海底深处游来一条黑色的长长的海蛇,几乎所有的人都在发呆。但是海蛇说了一句让我们胆寒的话“我就是有名的VB字符串,如果你们继续下潜的话,就得想通过我”。

  我习惯性的观察着它,因为我知道要打败一个对手,就必须深入的了解对手。

  因此我写了一段小CODE来了解它。

-> DimstrAsString
str="Givemea美女"
DimL1AsLong
DimL2AsLong
L1=Len(str)
L2=LenB(str)
Debug.PrintL1,L2->

  这个代码运行得很好,完全符合我的想像,在立即窗口中显示了12,24,

  Good,于是我准备在窗口中用TextOut把它打印出来,至于为什么我一定要这个函数而不用其它的,你管得着么?所以我写下了于下代码

->DimstrAsString
str="Givemea美女"
DimL1AsLong
DimL2AsLong
L1=Len(str)
L2=LenB(str)
Debug.PrintL1,L2
TextOutMe.hDC,100,100,str,L1->

  结果我发现不对?看来是字符串长度不对,想起来了,在VB中字符串是BSTR型的,那么应该用L2作长度,对不对呢,试试就知道了。

  天呀,在字符串后出现了天书,难道是上帝在暗示我什么时候给我一个美女?

  不过我想上帝没有这么快就会答应我,因此一定是我的代码有问题。

  当我正在沉思的时候,所有的人都在观注着我。没办法,太帅了。

  所以我又迅速写下了以下的代码

->PrivateDeclareFunctionLenANSILib"kernel32"Alias"lstrlenA"(ByValstring1AsString)AsLong
……
DimstrAsString
str="Givemea美女"
DimTrueLenAsLong
TrueLen=LenANSI(str)
TextOutMe.hDC,100,100,str,TrueLen->

  当我快速地按下F5后,天空中便有了回响,“Givemea美女”这句话已得到了正确的响应。

  这时候我看着这条海蛇,满有信心地向它游去,但是它却很诡秘的一笑。

  你见过蛇的笑容么,它也很缓缓的游过来了。

  “如果你们打算就这样通过我的话,也想得太容易了”这句话为什么这么熟悉呢。是不是在黄金十二宫里的什么人说的吧,

  “给你们一个小考验,你们知道vbNullString和“”有什么区别么?”

  “别以为你是海蛇就了不起,你这问题也太简单了吧”我身边一个长得不是很难看的小伙子,人送外号(天下第七帅),“你以为我没读过海洋生物指南呀(对象浏览器)

ConstvbNullString=""

  VBA.Constants的成员

  当调用一个外部过程,需要一个非零值的字符串时,所使用的常数

  “那你的意思是说是一样的了,那么vbNullChar呢?”海蛇不怀好意地看着天下第七帅。

  “那当然是一样的了,你看VB的说明么”天下第七帅冲口而出,不过他又觉得好象有些不对。但是VB的对象浏览器上的确写着

->ConstvbNullChar=""->

  VBA.Constants的成员

  那么下面这段代码代表什么呢?

  海蛇给出了它的代码

->Dims1AsString
Dims2AsString
Dims3AsString
s1=vbNullString
s2=vbNullChar
s3=""

Debug.PrintStrPtr(s1),StrPtr(s2),StrPtr(s3)
Debug.PrintLenB(s1),LenB(s2),LenB(s3)->

  天下第七帅按下F5后,他很惊讶海蛇代码的运行结果

018992841434596

020

  那么就是说VB的说明和海蛇之间一定有人错了。而且,对于采用S1两个值都是零,指针指向零,长度为零,它不是一个普通意义上的零值呀。

  天下第七帅于是转过头来看着我。

  “小子,出风头吧,来吧,我先给你们看点东西”

  “你们想要打败海蛇,就一定要了解海蛇的结构”

  VB的字符串是一个标准的BSTR字符串,比如说”Hello”这个字符串它的结构是这样的

-width="24">A->-width="30">0
->-width="26">0
->-width="37">0
->-width="40">‘H
->-width="35">0
->-width="48">‘e'
->-width="44">0
->-width="42">‘l'
->-width="40">0
->-width="40">‘l'
->-width="39">0
->-width="38">‘o'
->-width="35">0
->-width="35">0
->-width="38">0->

  可以看到前面四个字节代表字符串实际长度所占字节数,它是一个Long值。

  而最后两个字节是代表零值的结尾字符。

  而中间的十个字节正好是字符串的内容。

  如果我们用s1=”Hello”,那么s1是指向什么地方呢。

  “最初我以为s1是指向第一个字节,但是当我用自编的VB内存观测工具来看strptr(s1)后面所跟的字节值时发现s1是指向第五个字节,也就是我们字符串真正开始的地方。”

  “大家都了解了海蛇的结构了,那么它刚才提出的三种情况为什么会有不同呢?”我向还在发呆的下潜者。

  “是呀,为什么?”

  好了,拿出你们的OleView,在File->ViewTypeLib中打开VB6.DLL,你是不是看到了一个很奇妙的天地,别发呆,找到以下部分

->Modules->ModulesConstants->

  打开他们你便会看到VB内部真正的定义了。

->[helpcontext(0x0010aa32)]constLPSTRvbNullString="";

[helpcontext(0x0010aa32)]constLPSTRvbNullChar="\0";->

  看到了没有,vbNullString指向一个空字串,但这个空字串是零址的。而vbNullChar则是一个零字符(相当于C中字符串中最后一个字符)。那么我们来看海蛇的代码运行时发生了什么

->s1=vbNullString->

  VB看到这句时,它很清楚把S1的值变成了零

->s2=vbNullChar->

  VB看到这句时,它做了几个动作,它用SysAllocStringLen在堆中分配了一个BSTR字符串,然后将'\0'复制到这个字符串里。

->s3=""->

  这里VB做了很多工作,首先,VB在编译时,把""当成了一个常量,它必须为这个空字符串内部申请一个变量。当EXE文件加载后,也得把它设定一个地址,虽然它什么都不代表

 如果您对本文有任何疑问或者建议,请到讨论区发表您的意见: >> 论坛入口 <<

上一页12 下一页


上一篇:用VisualBasic6.0实现电影特效   下一篇:用VB实现“木马”式隐形运行程序

文章评论】 【收藏本文】 【推荐好友】 【打印本文】 【我要投稿】 【论坛讨论
更多相关文章
·VB图像处理之像素的获取和输出
·VB实现图像在数据库的存储与显示
·VB图像处理之二次线性插值的应用
·VB图像处理之几个常用滤镜的实现
·VB图像处理之铅笔画算法和木雕算法
·用VB6.0编写磁盘格式化程序
·VB实现文件数据对SQLServer上传下载
·用VB实现实时曲线的绘制和保存
·VB图像处理之图像的亮度对比度调整
·VB图像处理之图像的色彩纠正
推荐文章
·用DAO或ADO正确访问Access2000
·应用VB4.0实现工业控制的实时曲线和
·HierarchicalFlexGrid控件的使用
·VisualBasic工程管理三
·翻转一个字符串
·Excel中的“宏”的应用
·用API函数定义热键又一法
·感悟VB细水长流话API
精彩文章
·获得、设置鼠标双击间隔
·VB6.0初学者的10个编程小技巧
·巧用VBA自动处理Word表格
·快速初始化Variant和String类型数组
·利用API播放声音文件
·基于Windows95平台的VB5串行端口通
·用VisualBasic窗体背景花纹的实现
·用VB实现在程序运行时使系统日期和
·VB的API编程精粹(一)
·MoveMethod速度较快
·清除字符串中指定的字符
·在VB中建立可旋转的文本特效
·利用VB6.0设计屏幕保护程序
·如何获得系统光驱的盘符
·如何取得中英混合字符串的长度
·VB访问数据库的方案比较
·用VB计算1 1=2
·VisualBasic变态用法之函数指针
·由VisualBasic5.0调用Explorer的方
·用VB6.0编写磁盘格式化程序
·直接使用ODBCAPI访问数据库的VB程序
·函数名巧做局部变量
·加速VisualBasicForApplication(VBA
·如何在VB中使用回调(CallBack)过程
·VBCOM基础讲座之添加属性和方法
·利用VB设计聊天室
Power by linux-cn.com 粤ICP备05006655号