HanDs
管理员

[Delphi文章] 写3389自动登录器 





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

本站需要登陆后才能查看

自动登陆器 ! 实现自动登录 , 代码也很少

运行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 := 'test';
proj.Set_ClearTextPassword('123456');
if RDform.MsRdpClient21.AdvancedSettings.QueryInterface(IMsRdpClientAdvancedSettingsDisp, p1) = S_OK then
p1.RDPPort := StrToInt(Rport);
end;
MsRdpClient21.Server := '127.0.0.1';
MsRdpClient21.Connect;
....
end;


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