HanDs
NO.2

[Delphi文章] 制作自动登录的Windows终端服务客户端 





学习中请遵循国家相关法律法规,黑客不作恶。没有网络安全就没有国家安全

本站需要登陆后才能查看

运行delphi-->Components-->Import Active Control,在列表中找到下面的Microsoft Terminal Services Active Client 1.0 Type Library (Version 1.0),点击install

参考代码如下:

var
  proj: ImsRdpclientAdvancedSettings;
//定义密码用
   p1: IMsRdpClientAdvancedSettingsDisp;  //自定义端口用

begin

 if MsRdpClient21.AdvancedSettings.QueryInterface(ImsRdpclientAdvancedSettings, proj) = S_OK then
  begin

    MsRdpClient21.UserName := 'dfdf';
    proj.Set_ClearTextPassword('fg');

if RDform.MsRdpClient21.AdvancedSettings.QueryInterface(IMsRdpClientAdvancedSettingsDisp, p1) = S_OK then
            p1.RDPPort := StrToInt(Rport);

  end;
  MsRdpClient21.Server := '127.0.0.1';
  MsRdpClient21.Connect;

....

end;


学习中请遵守法律法规,本网站内容均来自于互联网,本网站不负担法律责任
制作
#1楼
发帖时间:2016-7-9   |   查看数:0   |   回复数:0
游客组