WlanGetAvailableNetworkList.docVIP

WlanGetAvailableNetworkList [StructLayout(LayoutKind.Sequential, CharSet = CharSet.Unicode)] C# struct WLAN_AVAILABLE_NETWORK_LIST { internal uint dwNumberOfItems; internal uint dwIndex; internal WLAN_AVAILABLE_NETWORK[] wlanAvailableNetwork; internal WLAN_AVAILABLE_NETWORK_LIST(IntPtr ppAvailableNetworkList) { dwNumberOfItems = (uint)Marshal.ReadInt32(ppAvailableNetworkList); dwIndex = (uint)Marshal.ReadInt32(ppAvailableNetworkList, 4); wlanAvailableNetwork = new WLAN_AVAILABLE_NETWORK[dwNumberOfItems]; for (int i = 0; i dwNumberOfItems; i++) { IntPtr pWlanAvailableNetwork = new IntPtr(ppAvailableNetworkList.ToInt32() + i * Marshal.SizeOf(typeof(WLAN_AVAILABLE_NETWORK)) + 8); wlanAvailableNetwork[i] = (WLAN_AVAILABLE_NETWORK)Marshal.PtrToStructure(pWlanAvailableNetwork, typeof(WLAN_AVAILABLE_NETWORK)); } } } VB Definition: StructLayout(LayoutKind.Sequential) _ Private Structure WLAN_AVAILABLE_NETWORK_LIST Public dwNumberofItems As Int32 Public dwIndex As Int32 Public wlanAvailableNetwork As WLAN_AVAILABLE_NETWORK() Public Sub New(pList As IntPtr) dwNumberofItems = Marshal.ReadInt32(pList) dwIndex = Marshal.ReadInt32(pList, 4) wlanAvailableNetwork = New WLAN_AVAILABLE_NETWORK(dwNumberofItems - 1) {} For i As Integer = 0 To dwNumberofItems - 1 Dim pItemList As New IntPtr(pList.ToInt32() + i * Marshal.SizeOf(typeof(WLAN_AVAILABLE_NETWORK)) + 8); wlanAvailableNetwork(i) = DirectCast(Marshal.PtrToStructure(pItemList, GetType(WLAN_AVAILABLE_NETWORK)), WLAN_AVAILABLE_NETWORK) Next End Sub End Structure C# Definition: [StructLayout(LayoutKind.Sequential, CharSet=CharSet.Ansi)] public struct IP_ADAPTER_INFO { public IntPtr Next; public Int32 ComboIndex; [MarshalAs(UnmanagedType.ByValTStr, SizeConst=MAX_ADAPTER_N