Hallo Zusammen,
ich versuche mich derzeit mit "AxMSTSCLib" anzufreunden und meine ersten Geh-Versuche damit zu wagen. Leider stoße ich mit einer tollen Fehlermeldung derzeit ein wenig Gegen die Wand. Folgend einmal mein simpler Code:
Spoiler anzeigen
Ich habe das Steuerelement auch schon mal visuell in die Form gepackt und dann so aufgerufen, das funktioniert. Aber wieso denn nicht, mit dem o.g. Code? Als "Fehlermeldung" erhalte ich einfach nur:
Kennt sich damit jemand ein wenig aus und kann mir netterweise ein wenig weiterhelfen? Danke schön und viele Grüße
Toorms
*Topic verschoben*
ich versuche mich derzeit mit "AxMSTSCLib" anzufreunden und meine ersten Geh-Versuche damit zu wagen. Leider stoße ich mit einer tollen Fehlermeldung derzeit ein wenig Gegen die Wand. Folgend einmal mein simpler Code:
VB.NET-Quellcode
- Imports MadMilkman
- Imports MSTSCLib
- Public Class frmMain
- Private mobjConfigurationReader As New Ini.IniFile()
- Public mstrDomainName As String
- Private mobjRDPConntor As AxMSTSCLib.AxMsRdpClient10 = New AxMSTSCLib.AxMsRdpClient10
- Sub New()
- ' Dieser Aufruf ist für den Designer erforderlich.
- InitializeComponent()
- ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
- InitializeConfiguration()
- End Sub
- Private Sub InitializeConfiguration()
- Try
- mobjConfigurationReader.Load(Application.StartupPath & "/Configuration.ini")
- txtBxUserName.Text = mobjConfigurationReader.Sections("UserInformations").Keys("Username").Value
- txtBxUserName.ReadOnly = True
- lblServer.Text = mobjConfigurationReader.Sections("ServerInformations").Keys("Server").Value
- mstrDomainName = mobjConfigurationReader.Sections("UserInformations").Keys("Domain").Value & "\"
- Catch ex As Exception
- MsgBox(ex.ToString)
- End Try
- End Sub
- Private Sub btnConnectToServer_Click(sender As Object, e As EventArgs) Handles btnConnectToServer.Click
- Try
- mobjRDPConntor.Server = lblServer.Text
- mobjRDPConntor.UserName = mstrDomainName & txtBxUserName.Text
- Dim isSecured As IMsTscNonScriptable =
- DirectCast(mobjRDPConntor.GetOcx(), IMsTscNonScriptable)
- isSecured.ClearTextPassword = txtBxPassword.Text
- mobjRDPConntor.ColorDepth = 32
- mobjRDPConntor.FullScreen = True
- mobjRDPConntor.Connect()
- Catch ex As Exception
- MsgBox(ex.ToString)
- End Try
- End Sub
- End Class
Ich habe das Steuerelement auch schon mal visuell in die Form gepackt und dann so aufgerufen, das funktioniert. Aber wieso denn nicht, mit dem o.g. Code? Als "Fehlermeldung" erhalte ich einfach nur:
Kennt sich damit jemand ein wenig aus und kann mir netterweise ein wenig weiterhelfen? Danke schön und viele Grüße
Toorms
*Topic verschoben*
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()