VB 深度下潛之 海蛇纏繞

2021-03-31 08:56:58 字數 4744 閱讀 8393

海蛇」有人在驚呼。

只見在海底深處遊來一條黑色的長長的海蛇,幾乎所有的人都在發呆。但是海蛇說了一句讓我們膽寒的話「我就是有名的

vb字串,如果你們繼續下潛的話,就得想通過我」。

我習慣性的觀察著它,因為我知道要打敗乙個對手,就必須深入的了解對手。

因此我寫了一段小

code

來了解它。

dim str as string

str = "give me a 美女"

dim l1 as long

dim l2 as long

l1 = len(str)

l2 = lenb(str)

debug.print l1, l2

這個**執行得很好,完全符合我的想像,在立即視窗中顯示了12,

24,

good

,於是我準備在視窗中用

textout

把它列印出來,至於為什麼我一定要這個函式而不用其它的,你管得著麼?所以我寫下了於下**

dim str as string

str = "give me a 美女"

dim l1 as long

dim l2 as long

l1 = len(str)

l2 = lenb(str)

debug.print l1, l2

textout me.hdc, 100, 100, str, l1

結果我發現不對?看來是字串長度不對,想起來了,在

vb中字串是

bstr

型的,那麼應該用

l2作長度,對不對呢,試試就知道了。

天呀,在字串後出現了天書,難道是上帝在暗示我什麼時候給我乙個美女?

不過我想上帝沒有這麼快就會答應我,因此一定是我的**有問題。

當我正在沉思的時候,所有的人都在觀注著我。沒辦法,太帥了。

所以我又迅速寫下了以下的**

private declare function lenansi lib "kernel32" alias "lstrlena" (byval string1 as string) as long……

dim str as string

str = "give me a 美女"

dim truelen as long

truelen = lenansi(str)

textout me.hdc, 100, 100, str, truelen

當我快速地按下

f5後,天空中便有了迴響,「

give me a 美女」

這句話已得到了正確的響應。

這時候我看著這條海蛇,滿有信心地向它游去,但是它卻很詭秘的一笑。

你見過蛇的笑容麼,它也很緩緩的游過來了。

「如果你們打算就這樣通過我的話,也想得太容易了」這句話為什麼這麼熟悉呢。是不是在**十二宮裡的什麼人說的吧,

「給你們乙個小考驗,你們知道vbnullstring

「」

有什麼區別麼?」

「別以為你是海蛇就了不起,你這問題也太簡單了吧」我身邊乙個長得不是很難看的小夥子,人送外號(天下第七帥),「你以為我沒讀過海洋生物指南呀(物件瀏覽器)

const vbnullstring = ""

vba.constants

的成員

當呼叫乙個外部過程,需要乙個非零值的字串時,所使用的常數

「那你的意思是說是一樣的了,那麼

vbnullchar

呢?」海蛇不懷好意地看著天下第七帥。

「那當然是一樣的了,你看

vb的說明麼」天下第七帥衝口而出,不過他又覺得好象有些不對。但是

vb的物件瀏覽器上的確寫著

const vbnullchar = ""

vba.constants

的成員

那麼下面這段**代表什麼呢?

海蛇給出了它的**

dim s1 as string

dim s2 as string

dim s3 as string

s1 = vbnullstring

s2 = vbnullchar

s3 = ""

debug.print strptr(s1), strptr(s2), strptr(s3)

debug.print lenb(s1), lenb(s2), lenb(s3)

天下第七帥按下

f5後,他很驚訝海蛇**的執行結果

018992841434596

020

那麼就是說

vb的說明和海蛇之間一定有人錯了。而且,對於採用

s1兩個值都是零,指標指向零,長度為零,它不是乙個普通意義上的零值呀。

天下第七帥於是轉過頭來看著我。

「小子,出風頭吧,來吧,我先給你們看點東西」

「你們想要打敗海蛇,就一定要了解海蛇的結構」 vb

的字串是乙個標準的

bstr

字串,比如說

」hello」

這個字串它的結構是這樣的 a

0 0

0

h』 0

e』 0

l』 0

l』 0

o』 0

0 0

可以看到前面四個位元組代表

字串實際長度所佔位元組數,它是乙個

long值。

而最後兩個位元組是代表零值的結尾字元。

而中間的十個位元組正好是字串的內容。

如果我們用

s1=」hello」

,那麼s1

是指向什麼地方呢。

「最初我以為

s1是指向第乙個位元組,但是當我用自編的

vb記憶體觀測工具來看

strptr(s1)

後面所跟的位元組值時發現s1是指向第五個位元組,也就是我們字串真正開始的地方。

「大家都了解了海蛇的結構了,那麼它剛才提出的三種情況為什麼會有不同呢?」我向還在發呆的下潛者。

「是呀,為什麼?」

好了,拿出你們的

oleview

,在file-> view typelib

中開啟vb6.dll

,你是不是看到了乙個很奇妙的天地,別發呆,找到以下部分

modules->modules constants

開啟他們你便會看到

vb內部真正的定義了。

[helpcontext(0x0010aa32)] const lpstr vbnullstring = "";

[helpcontext(0x0010aa32)] const lpstr vbnullchar = "/0";

看到了沒有,

vbnullstring

指向乙個空字串,但這個空字串是零址的。而

vbnullchar

則是乙個零字元(相當於

c中字串中最後乙個字元)。那麼我們來看海蛇的**執行時發生了什麼

s1 = vbnullstring

vb看到這句時,它很清楚把

s1的值變成了零

s2 = vbnullchar

vb看到這句時,它做了幾個動作,它用

sysallocstringlen

在堆中分配了乙個

bstr

字串,然後將

』/0』

複製到這個字串裡。

s3 = ""

這裡vb

做了很多任務作,首先,

vb在編譯時,把

」」當成了乙個常量,它必須為這個空字串內部申請乙個變數。當

exe檔案載入後,也得把它設定乙個位址,雖然它什麼都不代表

是乙個

00 00 00 00 00 00

這樣的字串,它需要

6個位元組(四個頭位元組和

2個尾位元組)

然後當看到這句時再把第五個位元組的位址值傳給s3

所以,雖然你只是信手寫了乙個

」」,結果

vb多作了很多任務作。

6個位元組雖然不多,但是在乙個大工程裡,大家都到處寫「」,那麼也是很可觀的一筆開銷。所以下次你絕對不要再用」」,而一定要用

vbnullstring

「你說,是麼,海蛇

」,我輕蔑地看著它。

海蛇看到大家都恍然大悟的樣子,再此發出了它的笑聲(海蛇會笑麼?)

「了解我,並不是真正的掌控我,很多

c的潛水員會對

vb不屑一顧,你們知道是為什麼?」

「慢,

vb的字串操作太慢了」很多潛水者都回搶著回答這個問題。

「呵呵,是的,」海蛇放聲大笑,慢慢地游向深海「i will back!

留下我們這群潛水的人,大家在思索,我們真正了解海蛇了麼,因為

vb海洋傳說中海蛇是相當可怕的,它會這麼輕易地走開麼,而且,它所說的

i will back

又是指什麼?

但是我們會繼續下潛

…….

「看,珊瑚礁」有人在驚呼!

VB深度下潛

海蛇 有人在驚呼。只見在海底深處遊來一條黑色的長長的海蛇,幾乎所有的人都在發呆。但是海蛇說了一句讓我們膽寒的話 我就是有名的 vb字串,如果你們繼續下潛的話,就得想通過我 我習慣性的觀察著它,因為我知道要打敗乙個對手,就必須深入的了解對手。因此我寫了一段小 code 來了解它。dim str as ...

深度拷貝和潛拷貝

淺 復 制 在複製操作時,對於被複製的物件的每一層複製都是指標複製。深 復 制 在複製操作時,對於被複製的物件至少有一層複製是物件複製。完全複製 在複製操作時,對於被複製的物件的每一層複製都是物件複製。注 1 在複製操作時,對於物件有n層是物件複製,我們可稱作n級深複製,此處n應大於等於1。2 對於...

VB工程下的各個檔案

ctl vb 使用者控制項 的 檔案 儲存了其中的 屬性等 ctx vb 使用者控制項 的資源檔案 儲存了該使用者控制項中使用的 ico等資源 frm vb 窗體 的 檔案 儲存了其中的 屬性等 frx vb 窗體 的資源檔案 儲存了該使用者控制項中使用的 ico等資源 bas vb 模組 的 檔案...