If rdp.Connected.ToString() = "0" Then Try rdp.Server = "test-PC" rdp.UserName = "test" Dim secured As IMsTscNonScriptable = DirectCast(rdp.GetOcx(), IMsTscNonScriptable) secured.ClearTextPassword = "test" rdp.Connect() Catch ex As Exception MessageBox.Show(ex.Message, Me.Name, MessageBoxButtons.OK, MessageBoxIcon.Error) End Try End If
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)