Back to Questions
6.4k
views1
comment
Need help with remote desktop client im trying to code in F#
f#.net

Hi everyone!

I've been looking into automating some part of my work using a custom remote desktop client. To my surprise the only way i found to use a rdp client in .net is using the ActiveX control AxMSTSCLib.dll (Microsoft Terminal Services Active Client 1.0 Type Library)

I have no experience in using ActiveX control and the only 2 exemple i found are in C#.

I did some work and came up with the following code but it gives me an AxHost.InvalidActiveXStateException

**sorry about the code format it seems a bit messed up in the post**

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

open System
open AxMSTSCLib
open System.Windows.Forms
open System.Drawing
open MSTSCLib
open System.Threading

[STAThread]
do
    let rdp = new AxMSTSCLib.AxMsTscAxNotSafeForScripting()
    let secured = rdp.GetOcx() :?> (IMsTscNonScriptable)
    rdp.Server - "127.0.0.1"
    rdp.UserName - "test"

    secured.ClearTextPassword - "test123"
    rdp.Connect()
    if rdp.Connected.ToString() = "0" then
        System.Console.WriteLine("not connected")
    else
        System.Console.WriteLine("Connected!")
System.Threading.Thread.Sleep(100000)

I would really apreciate if someone could point me in the right direction to getting this activeX control to work in F# or even better....suggest another way to establish an rdp connection in .net

Thanks a lot!

.

Hi,

I tried as follow and it works. First the ActiveX control needs to be instantiated and initialized completely. In your code rdp.GetOcs() will always return null due to that reason, and you get the exception.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

open System 
open AxMSTSCLib 
open MSTSCLib 
open System.Threading 
open System.Windows.Forms
open System.Drawing
 
[<STAThread>] 
do 
    let form = new Form();        
    let rdp = new AxMSTSCLib.AxMsRdpClient2()
    rdp.Size <- new Size(500,500)
 
    form.Load.Add( fun _ -> 
                    let secured = rdp.GetOcx() :?> (IMsTscNonScriptable) 
                    rdp.Server <- "127.0.0.1" 
                    rdp.UserName <- "test" 
                    secured.ClearTextPassword <- "test123" 
                    rdp.Connect() 
                    if rdp.Connected.ToString() = "0" then 
                        MessageBox.Show("not connected")  |> ignore
                    else 
                        MessageBox.Show("connected")  |> ignore                     
                  )
 
    form.Controls.Add(rdp)
    form.ShowDialog() |> ignore

Regards,
nyi nyi

By on 2/17/2011 12:16 PM ()

    Topic tags

    IntelliFactory Offices Copyright (c) 2011-2012 IntelliFactory. All rights reserved.
    Home | Products | Consulting | Trainings | Blogs | Jobs | Contact Us | Terms of Use | Privacy Policy | Cookie Policy     		Built with WebSharper