VB中訪問API函數之防錯技巧

      功能強大的API（應用程序接口）函數對于VB（Visual Basic For Windows）程序員來說，不愧是很好的編程工具，然而使用API函數的程序員也許都遇到這樣的現象。在VB集成環境下，程序運行后，出現一錯誤信息對話框，按確定鍵后系統自動退出VB集成環境，此時如果你的程序尚未存盤，那末很遺憾挽回損失已回天乏力。最后一次存盤之后的程序都不復存在。這是你對API函數使用不當引起的一般保護故障（GPF）。
      當一個GPF錯發生時，你應允許Windows關閉你的應用。有些情況下你可能需要退出Windows或者重新引導系統。出錯程度視哪里內存被破壞而定。DLL（動態鏈接庫）函數中的類型不一致等錯誤是GPF錯的主要原因。這些錯誤會導致GPF甚至使Windows系統完全崩潰（需要重新引導系統）。下面談避免GPF的一些技巧。
       用別名來提供強類型檢查是避免GPF的有效措施之一。有些情況下，DLL函數可以接受多種類型，LoadCursor函數就是這樣一個例子，其定義如下：
HCURSOR LoadCursor（hInstance，lpCursorName）
這里HCURSOR是一個指向光標對象的16位句柄，hInstance是一個16位實例句柄，lpCursorName是光標的名字或者是光標資源的32位整數ID。為了支持兩種類型的lpCursorName參數。VB有必要包含如下兩個聲明：
Declare Function LoadCursorLib＂USER＂（ByVal hInstance As Integer，ByVal lpCursorName As String）As Integer和
Declare Function LoadCursor Lib＂USER＂（Byval hInstance As Integer，ByVal lpCursorName As Long）As Integer
但是，這兩個聲明不能在一個程序中同時存在，因為Visual Basic會報重復聲明錯。我們知道，As Any聲明可使得任何參數都可以傳遞給DLL函數，因此可以如下聲明：
Declare Function LoadCursor Lib＂USER＂（ByVal hInstance As Integer ，ByVal lpCursorName As Any ）As Integer
上述聲明意味著Visual Basic能支持一個參數可接受多種類型的DLL函數，然而這就可能帶來各種災難性的后果，每當偶然情況下用不正確的參數調用該函數時，都可以引發一個GPF，我們可以這樣進行嚴格的類型檢查并且幫助防止這類問題。
這種方法就是在函數的聲明中使用Alias技巧，看看下面的兩個聲明：
Declare Function LoadCursorByName lib＂USER＂Alias ＂LoadCursor＂（ByVal hInstance As Integer，ByVal lpCursorName As String）As Integer和
Declare Function LoadCursorByID Lib＂USER＂Alias ＂LoadCursor＂（Byval hInstance As Integer ，ByVal lpCursorName As Long）As Integer
LoadCursorByName用字符串做lpCursorName參數訪問DLL函數LoadCursor， 而LoadCursorByID訪問同樣的DLL函數LoadCursor，但是用長整型做lpCursorName參數，這兩個函數都對lpCursorName參數進行嚴格的類型檢查，使Visual Basic能在調用DLL函數之前識別出不正確的變量類型，最大限度地減少引起GPF或者導致系統崩潰的機會。
除此之外，使用API函數時運行之前最好先存盤，仔細檢查調用API函數的參數與聲明的類型是否一致，以及嚴格檢查參數是否有效都能減少引發GPF或者系統崩潰。

原文轉自：http://www.kjueaiud.com