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