如何为非托管dll确定正确的参数结构？

Question

我从VBA加载了一些旧的VB函数，并且大部分更新到VB.NET，但是在"wininet.dll“中有一些函数声明似乎不匹配。

我得到的错误是：

引发的异常:托管调试助手，“PInvokeStackImbalance”：.

它的长短在于声明的参数的长度需要是显式的，并且它与dll中的实际函数不匹配。

我查了一下，只要删除检查就可以了，但是随着时间的推移，它会出现“堆栈不平衡”，随着时间的推移，当调用完成时，所有堆栈都会被吃掉。另外，这些都被称为“非托管”dll，一些声明已经在PInvoke函数wiki上http://pinvoke.net上发布。这个wiki确实有我正在使用的一些函数调用，但不是所有函数调用。他们中的一些人，我不得不猜测一些事情，但这是行不通的。

我从旧代码中复制的大部分更改都是从long更改为int32或integer，还有一些更改是对IntPtr的更改，这在旧代码中从未使用过。我假设这将使所有整数大小正确(即16/32/64位)，这可能是大多数问题所在。不过，有一个例子是从long更改为string()，这看起来有点奇怪，没有编译好。

所以，我如何在dll中查找函数的长度并匹配API?？

我查了一些东西，但是当我试图在Visual中向我的c:\windows\system32\wininet.dll项目添加一个对VB.NET的引用时，它说我不能添加它。这似乎阻止了我在Visual中使用对象或程序集浏览器。它似乎不是COM对象。这里有什么帮助吗？

作为参考，下面是失败的旧代码：

Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" ( _
    ByVal Agent As String, ByVal AccessType As Long, ByVal ProxyName As String, _
    ByVal ProxyBypass As String, ByVal Flags As Long) As Long

Private Declare Function InternetConnect Lib "wininet.dll" Alias "InternetConnectA" ( _
    ByVal hInternetSession As Long, ByVal ServerName As String, ByVal ServerPort As Integer, ByVal UserName As String, _
    ByVal Password As String, ByVal Service As Long, ByVal Flags As Long, ByVal Context As Long) As Long

Private Declare Function InternetCloseHandle Lib "wininet.dll" ( _
    ByVal hInet As Long) As Boolean

Private Declare Function InternetReadFile Lib "wininet.dll" ( _
    ByVal hConnect As Long, ByVal Buffer As String, ByVal NumberOfBytesToRead As Long, _
    NumberOfBytesRead As Long) As Boolean

Private Declare Function HttpOpenRequest Lib "wininet.dll" Alias "HttpOpenRequestA" ( _
    ByVal hHttpSession As Long, ByVal Verb As String, ByVal ObjectName As String, ByVal Version As String, _
    ByVal Referer As String, ByVal AcceptTypes As Long, ByVal Flags As Long, Context As Long) As Long

Private Declare Function HttpSendRequest Lib "wininet.dll" Alias "HttpSendRequestA" ( _
    ByVal hHttpRequest As Long, ByVal Headers As String, ByVal HeadersLength As Long, _
    ByVal sOptional As String, ByVal OptionalLength As Long) As Boolean

Answer 1

由于已经使用了noted by Hans Passant，所以您应该使用托管替代方案。

但是，要回答您的实际问题:基本上只需要检查MSDN文档文章https://msdn.microsoft.com/en-us/library/windows/desktop/aa383751(v=vs.85).aspx)，并根据类型的声明确定相应的.NET类型。

例如，一个DWORD

DWORD 32位无符号整数。范围是0到4294967295小数点。 此类型在IntSafe.h中声明如下： typedef unsigned long DWORD;

在这种情况下，我们可以使用范围(0 - 4294967295)或定义(unsigned long)来确定这应该是一个无符号32位整数(UInt32或UInteger)。在C/C++中，long和int是一样的，这就是为什么它被映射到整数而不是Long/ULong。

以下是最常见类型的总结：

(非常感谢https://stackoverflow.com/users/505088帮助我更正了一些字符串声明！)

+------------------+------------------------------------------------------+
|   Windows Type   |                   .NET equivalent                    |
+------------------+------------------------------------------------------+
| BOOL             | <MarshalAs(UnmanagedType.Bool)> Boolean  (vb.net)    |
| BOOL             | [MarshalAs(UnmanagedType.Bool)] bool     (c#)        |
| BYTE             | Byte   / Byte     (vb.net) / byte  (c#)              |
| CHAR             | Char   / Char     (vb.net) / char  (c#)              |
| DWORD            | UInt32 / UInteger (vb.net) / uint  (c#)              |
| DWORDLONG        | UInt64 / ULong    (vb.net) / ulong (c#)              |
| DWORD_PTR        | UIntPtr                                              |
| FLOAT            | Single / Single   (vb.net) / float (c#)              |
|                  |                                                      |
| HANDLE           | IntPtr                                               |
| HBITMAP          | IntPtr                                               |
| HCURSOR          | IntPtr                                               |
| HDESK            | IntPtr                                               |
| HDC              | IntPtr                                               |
| HICON            | IntPtr                                               |
| HINSTANCE        | IntPtr                                               |
| HRESULT          | Int32 / Integer (vb.net) / int (c#)                  |
| HWND             | IntPtr                                               |
|                  |                                                      |
| INT              | Int32 / Integer (vb.net) / int (c#)                  |
| INT_PTR          | IntPtr                                               |
| INT8             | SByte                                                |
| INT16            | Int16 / Short   (vb.net) / short (c#)                |
| INT32            | Int32 / Integer (vb.net) / int   (c#)                |
| INT64            | Int64 / Long    (vb.net) / long  (c#)                |
| LONG             | Int32 / Integer (vb.net) / int   (c#)                |
| LONGLONG         | Int64 / Long    (vb.net) / long  (c#)                |
| LONG_PTR         | IntPtr                                               |
| LPARAM           | IntPtr                                               |
|                  |                                                      |
| LPCSTR           | String (Specify CharSet.Ansi in DllImport)           |
| LPCTSTR          | String                                               |
| LPCWSTR          | String (Specify CharSet.Unicode in DllImport)        |
| LPDWORD          | (= DWORD,  declared as ByRef (vb.net) / ref (c#))    |
| LPHANDLE         | (= HANDLE, declared as ByRef (vb.net) / ref (c#))    |
| LPINT            | IntPtr                                               |
| LPLONG           | IntPtr                                               |
|                  |                                                      |
| LPSTR            | StringBuilder (Specify CharSet.Ansi in DllImport)    |
| LPTSTR           | StringBuilder                                        |
| LPVOID           | IntPtr                                               |
| LPWORD           | (= WORD, declared as ByRef (vb.net) / ref (c#))      |
| LPWSTR           | StringBuilder (Specify CharSet.Unicode in DllImport) |
|                  |                                                      |
| QWORD            | UInt64 / ULong (vb.net) / ulong (c#)                 |
| SHORT            | Int16  / Short (vb.net) / short (c#)                 |
| SIZE_T           | UIntPtr                                              |
| UCHAR            | Byte   / Byte    (vb.net) / byte (c#)                 |
| UINT             | UInt32 / UInteger (vb.net) / uint  (c#)                 |
| UINT_PTR         | IntPtr                                               |
| UINT8            | Byte   / Byte     (vb.net) / byte   (c#)             |
| UINT16           | UInt16 / UShort   (vb.net) / ushort (c#)             |
| UINT32           | UInt32 / UInteger (vb.net) / uint    (c#)             |
| UINT64           | UInt64 / ULong    (vb.net) / ulong   (c#)             |
| ULONG            | UInt32 / UInteger (vb.net) / uint    (c#)             |
| ULONGLONG        | UInt64 / ULong    (vb.net) / ulong   (c#)             |
| ULONG_PTR        | UIntPtr                                              |
| USHORT           | UInt16 / UShort   (vb.net) / ushort (c#)             |
| WORD             | UInt16 / UShort   (vb.net) / ushort (c#)             |
+------------------+------------------------------------------------------+