Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
How do I automate terminal services
Message
General information
Forum:
Visual FoxPro
Category:
Web Services
Environment versions
Visual FoxPro:
VFP 9
OS:
Windows XP SP2
Network:
Windows 2003 Server
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01199592
Message ID:
01202271
Views:
9
Almost got it! The code below works grand, the only issue is the size of the application screen....
The app shows up in the center of the screen about the size of a postage stamp! How do I maximize it?

Thanks,
Mike



>>I am able to run my application on terminal services if I do it by hand. i.e. I login in remotely via rdp, and then when the desktop appears, I run my app.
>>
>>This is too messy for my users...
>>
>>Is there a way to automate this?
>>
>>i.e.
>>The user picks the location, and based on this selection, I connect to the remote location via terminal services and run my application.
>>
>>I found something here, or was it on WIKI, not sure, called tasc... but I can't seem to get it to work. It requires some ole control to be registered. (msrdp.ocx) I tried placing the control in the default directory of my app and then running regsvr32 msrdp.ocx. There were no complaints, but the form still didn't work.
>>
>>Thanks in advance,
>>Mike
>>
>>There is no error returned but the control does not seem to work.
>
>I have created just such an app using MSRDP.OCX The user starts up my VFP application locally and on clicking a button I open a RDP session and open another application that now runs on TS within that window. The user cannot run any other application in the TS session. Once they quit my app they are logged off.
>
>Some code...
>
>WITH ThisForm.bbRDP
>* bbRDP is the MSRDP.OCX object dropped on my form and sized.
>* most properties are self explanatory.
>    IF .Connected = 0
>        .Server = "MyServerName"
>        .Object.UserName = "MyDomain\"+"MyUsername"
>        .AdvancedSettings2.ClearTextPassword = "MyPassword"
>        .SecuredSettings.FullScreen = .T.
>        .SecuredSettings.StartProgram = "MyappPath+MyApp"
>        .SecuredSettings.WorkDir = "MyWorkingDirectory"
>        .Visible = .T.
>        .ConnectingText = "Now connecting"
>        .DisconnectedText = "Your session has ended"
>        .Connect
>    ENDIF
>ENDWITH
>
>
>You can set the .Width and .Height if not full screen. This can be added to the OnConnected Event of the RDP object.
>
>
>Check out the other events like the OnDisconnected which you can hook into.
>Drop me a line if you need more help with this.
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform