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 view
 
    Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs) _
      Handles Button1.Click
        Try
            rdp.Server = txtServer.Text
            rdp.UserName = txtUserName.Text
            rdp.Domain = txtdomain.Text
            'rdp.FullScreen = True
            rdp.DesktopHeight = 300
            rdp.DesktopWidth = 300
            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
        Dim j As String
        ' j = rdp.GetOcx
    End Sub
 
    Private Sub button2_Click(ByVal sender As Object, ByVal e As EventArgs) _
      Handles Button2.Click
        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
End Class

Imports System
Imports System.Collections.Generic
Imports System.Windows.Forms
Module Module1
    Sub New()
    End Sub
    <STAThread()>
    Sub Main()
        Application.EnableVisualStyles()
        Application.SetCompatibleTextRenderingDefault(False)
        Application.Run(New view())
    End Sub
 
End Module