Option Explicit On
Option Strict On
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.IO
Imports System.Drawing
Imports System.Text
Imports System.Windows.Forms
Imports MSTSCLib
 
 
Partial Public Class Form2
 
    Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs)
        Try
            rdp.Server = txtServer.Text
            rdp.UserName = txtUserName.Text
            Dim secured As IMsTscNonScriptable = DirectCast(rdp.GetOcx(), _
              IMsTscNonScriptable)
            secured.ClearTextPassword = txtPassword.Text
            rdp.Connect()
        Catch Ex As Exception
            MessageBox.Show("Verbindungsfehler", "Verbindungsfehler zu remote" & _
              "desktop " + txtServer.Text & " Fehler:  " & Ex.Message, _
              MessageBoxButtons.OK, MessageBoxIcon.[Error])
        End Try
    End Sub
 
    Private Sub button2_Click(ByVal sender As Object, ByVal e As EventArgs)
        Try
            If rdp.Connected.ToString() = "1" Then
                rdp.Disconnect()
            End If
        Catch Ex As Exception
            MessageBox.Show("keine Verbindung", "Fehler beim Trennen vom remote" & _
              "desktop " + txtServer.Text & " Fehler:  " & Ex.Message, _
              MessageBoxButtons.OK, MessageBoxIcon.[Error])
        End Try
    End Sub
 
    Private Sub Form2_Load_1(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
    End Sub
End Class