Remote Desktop OCX

Discussion in 'VB6/ActiveX' started by srvmng, Dec 8, 2018.

  1. sr

    srvmng Registered User

    Joined:
    Dec 6, 2018
    Messages:
    12
    Likes Received:
    174
    [​IMG]
    [​IMG]

    Server Start Example :
    100 RDServer1.Password = "xxxxxxx"
    105 RDServer1.Port = Val(txtPort.Text)
    110 RDServer1.MaxConection = Val(txtMax.Text)
    115 RDServer1.Quality = Val(txtQuality.Text)
    120 RDServer1.Start = True

    Server Stop Example :

    100 RDServer1.Start = False
    105 cmdStart.Enabled = Not RDServer1.IsActive

    [​IMG]

    Client Connect Example :

    235 RDClient1.UserName = UserNameLogon
    240 RDClient1.Password = "xxxxxxx"
    245 RDClient1.Connect txt.Text, txtPort.Text
    250 RDClient1.ReadOnly = chkControl.Value = 0
    255 RDClient1.Stretch = chkScretch.Value = 1
    260 RDClient1.ShowCursor = True 'Still Progress
    265 Button RDClient1.IsAktiv

    Client Disconnect Example :

    100 RDClient1.DisConect
    105 Button RDClient1.IsAktiv

    Hidden Content:
    [HIDDEN CONTENT]
     
    Last edited: Dec 8, 2018
    firloni, FazeelKhan, liewjp and 17 others like this.