VB 呼叫 C DLL

C 之 DLL 原型
　
__declspec(dllexport) void __stdcall PR_QuotaResetRequest (const BYTE * lpInData　);
　
　
在 VB 可以有兩種 宣告方式:
1. 在 VB 程式內以固定長度的字串，將資料傳遞至 DLL 內.
在模組內 .BAS 宣告:
Declare Sub PR_QuotaResetRequest Lib "DongleAPI.dll" ( ByVal lpInData As String )
　
VB 呼叫使用:
dim AAA as string * 38
AAA = "ABCDEFG"
　
PR_QuotaResetRequest AAA
　
　
　
2. 在 VB 程式內以陣列的第 0 個元素位址，將資料傳遞至 DLL 內.
在模組內 .BAS 宣告:
Declare Sub PR_QuotaResetRequest Lib "DongleAPI.dll" ( ByRef lpInData As Byte )
　
VB 呼叫使用:
Dim x_input() As Byte
　
x_input(0) = ..
x_input(1) = ..
x_input(2) = ..
x_input(3) = ..
　　...
　　...
　　...
　
PR_QuotaResetRequest x_input(0)