.NET (Core and Framework)

Balagurunathan S wrote:

Dont reply asking to try in google...

<StructLayout(LayoutKind.Sequential,CharSet:=CharSet.Unicode)> _
Public Structure RASENTRYNAME
    Public dwSize As Integer
    <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=257)> Public szEntryName As String
    Public dwFlags As Integer
    <MarshalAs(UnmanagedType.ByValTStr,SizeConst=261)> Public szPhonebook As String
End Structure

Private Declare Auto Function RasEnumEntries Lin "rasapi32" ( _
        ByVal reserved As String, _
        ByVal phonebook As String, _
        <[In](), Out()> ByVal RasEntries() AS RASENTRYNAME, _
        ByRef BufferSize As Integer, _
        ByRef EntryCount As Integer) _
            As Integer

Dim bufferSize As Integer = Marshal.SizeOf(GetType(RASENTRYNAME))
Dim entryCount As Integer = 1
Dim entryNames(0) As RASENTRYNAME
Dim returnCode As Integer

entryNames(0).dwSize = Marshal.SizeOf(GetType(RASENTRYNAME))
rc = RasEnumEntries(Nothing, Nothing, entryNames, bufferSize, entryCount)
If rc = 0 Then
    ' Return, there was only one entry and it's been filled into the "dummy"
    ' entry that we made before calling RasEnumEntries.
End If

If rc <> 603 Then
    ' So if we get here, the call bombed.  It would be a good idea to find out why here!
    Return
End If

' 603 means that there are more entries than we have allocated space for.
' So, expand the entryNames array and make sure we fill in the structure size
' for every entry in the array!  This is important!!  Without it, you'll get 632 errors!
ReDim entryNames(numEntries - 1)
For i As Integer = 0 to numEntries - 1
    entryNames(i).dwSize = Marshal.SizeOf(GetType(RASENTRYNAME))
Next
rc = RasEnumEntries(Nothing, Nothing, entryNames, bufferSize, entryCount)
'
'  Now we should have all the Ras entries.  Do with as you will...

Private Const MAX_PATH As Integer = 260 + 1
Private Const MAX_RAS_ENTRY_NAMES As Integer = 256 + 1

<StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Unicode)> _
Public Structure RASENTRYNAME
	Public dwSize As Integer
	<MarshalAs(UnmanagedType.ByValTStr, SizeConst:=MAX_RAS_ENTRY_NAMES)> _
	Public szEntryName As String
	Public dwFlags As Integer
	<MarshalAs(UnmanagedType.ByValTStr, SizeConst:=MAX_PATH)> _
	Public szPhonebook As String
End Structure

Private Declare Auto Function RasEnumEntries Lib "rasapi32.dll" ( _
	ByVal reserved As String, _
	ByVal phonebook As String, _
	<[In](), Out()> ByVal RasEntries() As RASENTRYNAME, _
	ByRef BufferSize As Integer, _
	ByRef EntryCount As Integer _
) As Integer

''' <summary>
''' Returns an array with available RAS connection names
''' </summary>
Public Shared Function GetConnectionsNames() As String()

	Dim res As New List(Of String)

	Try
		Dim bufferSize As Integer = Marshal.SizeOf(GetType(RASENTRYNAME))
		Dim entryCount As Integer = 1
		Dim entryNames(0) As RASENTRYNAME
		Dim rc As Integer

		entryNames(0).dwSize = Marshal.SizeOf(GetType(RASENTRYNAME))
		rc = RasEnumEntries(Nothing, Nothing, entryNames, bufferSize, entryCount)

		If rc = 0 Then
			' There was only one entry and it's been filled into the "dummy"
			' entry that we made before calling RasEnumEntries.
			res.Add(entryNames(0).szEntryName.Trim)

		ElseIf rc = 603 Then
			' 603 means that there are more entries than we have allocated space for.
			' So, expand the entryNames array and make sure we fill in the structure size
			' for every entry in the array!  This is important!!  Without it, you'll get 632 errors!
			ReDim entryNames(entryCount - 1)
			For i As Integer = 0 To entryCount - 1
				entryNames(i).dwSize = Marshal.SizeOf(GetType(RASENTRYNAME))
			Next
			rc = RasEnumEntries(Nothing, Nothing, entryNames, bufferSize, entryCount)
			For i As Integer = 0 To entryCount - 1
				res.Add(entryNames(i).szEntryName.Trim)
			Next

		Else
			' So if we get here, the call bombed. It would be a good idea to find out why here!
			MsgBox("Error reading RAS connections names, error code:" & rc.ToString(), MsgBoxStyle.SystemModal)

		End If

	Catch ex As Exception
		MsgBox("Error reading RAS connection names: " & ex.Message.ToString(), MsgBoxStyle.SystemModal)

	End Try

        Return res.ToArray

End Function

ma se wrote:

Just a quick question on Enterprise Library April 2007. If 3.0 is installed, it will install all the necessary projects for 3.0? Is there a way that I can check it?

ma se wrote:

Have you started working on .NET 3.5??

ma se wrote:

Is there anything available for download.

ma se wrote:

3.0 is basically for workflows, right?

Dave Kreskowiak wrote:

.NET 3.0 is actually .NET 2.0 with some extensions added to it. As far as the Base Class Library, there's no difference between the two.

ma se wrote:

Will this still be the case with .NET 3.5? Where can I found out what new features they are planning to add with .NET 3.5?

• .NET 2.0 core (CLR)
  
• The 3.0 extensions (WCF, WPF, WF, CardSpaces)
  
• Language Integrated Query (LINQ) and data awareness
  
• ASP.NET AJAX
  
• New web protocol support for building WCF services including AJAX, JSON, REST, POX, RSS, ATOM and several new WS-* standards
  
• Full tooling support for WF, WCF and WPF including the new workflow-enabled services technology
  
• New classes in the base class library (BCL) for the .NET Framework 3.5 address the most common customer requests.
  
  
  
  
  -----------------------------
  In just two days, tomorrow will be yesterday.