VPN Connection mit DotRas, Erstellen/Verbinden/Trennen/Löschen

  • VB.NET

    VPN Connection mit DotRas, Erstellen/Verbinden/Trennen/Löschen

    Hallo Zusammen,

    Habe hier gesucht, leider nichts gefunden. Selber als "Noob" probiert, geschafft xD
    Deshalb Poste ich hier das DotRas Beispiel vom Example:


    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Net
    2. Imports DotRas
    7. Public Class MainForm
    8. Public Const EntryName As String = "VPN Connection"
    9. Private connectionHandle As RasHandle
    14. Private Sub CreateEntryButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CreateEntryButton.Click
    15. ' This opens the phonebook so it can be used. Different overloads here will determine where the phonebook is opened/created.
    16. Me.AllUsersPhoneBook.Open()
    18. ' Create the entry that will be used by the dialer to dial the connection. Entries can be created manually, however the static methods on
    19. ' the RasEntry class shown below contain default information matching that what is set by Windows for each platform.
    20. Dim entry As RasEntry = RasEntry.CreateVpnEntry(EntryName, IPAddress.Loopback.ToString(), RasVpnStrategy.Default, RasDevice.GetDeviceByName("(PPTP)", RasDeviceType.Vpn))
    22. ' Add the new entry to the phone book.
    23. Me.AllUsersPhoneBook.Entries.Add(entry)
    24. End Sub
    26. Private Sub DialButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DialButton.Click
    27. Me.StatusTextBox.Clear()
    29. ' This button will be used to dial the connection.
    30. Me.Dialer.EntryName = EntryName
    31. Me.Dialer.PhoneBookPath = RasPhoneBook.GetPhoneBookPath(RasPhoneBookType.AllUsers)
    33. Try
    34. ' Set the credentials the dialer should use.
    35. Me.Dialer.Credentials = New NetworkCredential(userBox.Text, passBox.Text)
    38. ' NOTE: The entry MUST be in the phone book before the connection can be dialed.
    39. ' Begin dialing the connection; this will raise events from the dialer instance.
    40. Me.Dialer.DialAsync()
    43. ' Enable the disconnect button for use later.
    44. Me.DisconnectButton.Enabled = True
    45. Catch ex As Exception
    46. Me.StatusTextBox.AppendText(ex.ToString())
    47. End Try
    48. End Sub
    53. Private Sub Dialer_StateChanged(ByVal sender As System.Object, ByVal e As DotRas.StateChangedEventArgs) Handles Dialer.StateChanged
    54. Me.StatusTextBox.AppendText(e.State.ToString() + Chr(13) + Chr(10))
    55. End Sub
    58. Private Sub Dialer_DialCompleted(ByVal sender As System.Object, ByVal e As DotRas.DialCompletedEventArgs) Handles Dialer.DialCompleted
    59. If (e.Cancelled) Then
    60. Me.StatusTextBox.AppendText("Cancelled!")
    61. ElseIf (e.TimedOut) Then
    62. Me.StatusTextBox.AppendText("Connection attempt timed out!")
    63. ElseIf (e.Error IsNot Nothing) Then
    64. Me.StatusTextBox.AppendText(e.Error.ToString())
    65. ElseIf (e.Connected) Then
    66. Me.StatusTextBox.AppendText("Connection successful!")
    67. End If
    72. If (Not e.Connected) Then
    73. Me.DisconnectButton.Enabled = False
    74. End If
    75. End Sub
    80. Private Sub DisconnectButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DisconnectButton.Click
    81. If (Me.Dialer.IsBusy) Then
    82. Me.Dialer.DialAsyncCancel()
    83. Else
    84. ' The connection attempt has completed, attempt to find the connection in the active connections.
    85. Dim connection As RasConnection = RasConnection.GetActiveConnectionByHandle(Me.connectionHandle)
    86. If (connection IsNot Nothing) Then
    87. ' The connection has been found, disconnect it.
    88. connection.HangUp()
    89. End If
    90. End If
    91. End Sub
    96. End Class




    Eigene IP Eintragen: Original

    VB.NET-Quellcode

    1. IPAdress.Loopback.ToString()

    ändern in:

    VB.NET-Quellcode

    1. "IP-Adresse"


    und zum den User und das Passwort zu übermitteln:

    VB.NET-Quellcode

    1. Me.Dialer.Credentials = New NetworkCredential(userBox.Text, passBox.Text)


    http://dotras.codeplex.com

    *Topic verschoben*

    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „Marcus Gräfe“ ()

Facebook
Telefonspende