VB 從零開始編外掛(十二)
2024-07-21 02:20:46
供稿：網友
vb實現指針訪問！dll的訪問
--------------------------------------------------------------------------------------------------------------------------------------------------------
copymemory函數提供了一個簡單的方法來執行c++中見解訪問運算符（*），這個運算符可以訪問被一個指針變量所指向的變量的值。
即如有指針變量 p，在c++中可以簡單的用 *p 來訪問，那在 vb 中怎么訪問呢？
在 vb 中，我們可以使用 copymemory函數別名。
declare sub vbgettarget lb "kernel32" alias "rtlmovememory"(target as any,byval lpoint as long,byval cbcopy as long)
例子：
dim pointer as long
dim target as integer
dim i as integer
i=123
pointer=varptr(i) '獲得指針
vbgettarget target,pointer,lenb(target)
debug.print target
--------------------------------------------------------------------------------------------------------------------------------------------------------
很長時間以來，都認為只能通過絕對路徑引用標準dll中的函數。其實，你也可以用相對路徑。很簡單的，現在就嘗試一下吧。
1）絕對路徑方法
比如你的dll文件位于c:/testdll/debug/testdll.dll
一般來說，你需要在vb中作如下聲明
declare sub mytest lib "c:/testdll/dubug/testdll.dll" (byval x as long)
另外的一個變通方法是把testdll.dll放在windows的系統目錄下，這樣，你就可以直接引用文件名了。不過，需要把一個文件放到windows系統目錄下，很是不爽！
2）相對路徑方法
看看我們如何用相對路徑，假設你的dll文件位于c:/testdll/debug/testdll.dll，你的vb程序位于目錄c:/testdll/vbclient
你可以在vb程序中作如下聲明：
declare sub mytest lib "../dubug/testdll.dll" (byval x as long)
如果直接運行你的vb程序，系統會提示錯誤：找不到../dubug/testdll.dll.
為了使上面的聲明其作用，先暫時關閉你的vb工程。然后用一個文本編輯器(notepad,editplus,etc)打開工程文件（就是那個后綴是vbp的家伙），通常vbp文件由幾個部分組成。
國內最大的酷站演示中心!
