以下为群员fish的分享,测试没成功,能显示连接中,但没显示出远程桌面,白屏.其它问题请自行测试.
Aardio调用Sciter自定义控件显示远程桌面:
//自定义控件
import win.ui;
/*DSG{{*/
var winform = win.form(text="Sciter 自定义控件";right=1014;bottom=523;border="none";parent=...)
winform.add()
/*}}*/
import com.lite;
import web.sciter;
var wbSciter = web.sciter( winform );
var ip = ""
var user = "administrator"
var pwd = ""
namespace web.sciter.behavior.remoteDestop {
onAttach = function (scOwner) {
var ltCtrl = scOwner.addCtrl(clipch=1);
var rdb = ..com.lite( "MsTscAx.dll" ).createEmbed( ltCtrl, "{7cacbd7b-0d99-468f-ac33-22e495c0afe5}" );
msTscAx = rdb._object;
connect = function(ip, user="administrator", pwd, width="1366", height="720"){
msTscAx.Server = ip;
msTscAx.UserName = user;
msTscAx.AdvancedSettings2.ClearTextPassword = pwd
msTscAx.AdvancedSettings2.RDPPort = 3389; //端口
msTscAx.AdvancedSettings2.RedirectPrinters = false; //取消共享打印
msTscAx.AdvancedSettings2.RedirectDrives = true; //允许共享磁盘
//msTscAx.AdvancedSettings2.SmartSizing = true; //自动调整大小
msTscAx.AdvancedSettings2.EnableCredSspSupport = true;
msTscAx.DesktopWidth = width //桌面宽度
msTscAx.DesktopHeight = height; //桌面高度
msTscAx.FullScreen = false;//是否全屏
msTscAx.FullScreenTitle = "全屏标题";//全屏标题
msTscAx.ColorDepth = 32;//32位颜色
msTscAx.ConnectingText = "正在连接......"
msTscAx.Connect(); //连接
}
connect( ip, user, pwd )
};
onDetach = function( scOwner ){
scOwner.delCtrl();
}
onSize = function (scOwner) {
scOwner.adjustCtrl();
}
}
wbSciter.html =/***
remote destop
minimize
maximize
close
***/
wbSciter.css = /**
body{
margin:20px;
height:100%%;
font:system;
}
#remoteDestop {
margin: 10px;
border: 2px solid blue;
width: *;
height: *;
behavior: remoteDestop;
}
**/
winform.show()
win.loopMessage();