虎门做网站公司/专业搜索引擎seo服务
本帖最后由 qqmmcc 于 2011-10-27 23:12 编辑
未命名1.jpg (40.29 KB, 下载次数: 48)
2011-10-27 15:51 上传
/*
* 远程端口开启关闭以及远程连接端口修改
* 作者: H.T
* Q Q: 80616655
* 版本: 0.0.1
* 日期：2011/10/27
* 备注:
* -----------------------------
* 重要修改记录
* -----------------------------
* 日 期 修改人 修改备注
*/importwin.ui;importwin.reg;importweb.mshtml;importsys;/*DSG{{*/varwinform = win.form(parent=...; min=false;bottom=296;max=false;text="3389远程端口修改工具";right=341 )
winform.add(
radiobutton2={ bottom=149;text="关闭";left=212;top=136;z=15;right=264;cls="radiobutton"};
static11={ bottom=242;color=128;text="修改完成软件会提示重启才能生效！";left=24;top=228;z=18;nWrap=1;transparent=1;right=325;cls="static"};
static6={ bottom=115;color=255;nWrap=1;left=158;top=98;transparent=1;text="";z=11;right=208;cls="static"};
button3={ bottom=273;text="重启系统";left=227;top=250;z=6;right=299;cls="button"};
static5={ bottom=112;nWrap=1;left=23;top=99;transparent=1;right=158;z=10;text="当前系统远程连接状态：";cls="static"};
static3={ bottom=119;color=16711680;right=325;left=292;top=99;z=7;text="";transparent=1;nWrap=1;cls="static"};
button={ bottom=273;text="修改";left=35;top=250;z=5;right=107;cls="button"};
picturebox={ notify=1;right=342;left=0;top=0;z=9;bottom=78;text="picturebox";image=$"\bg.jpg";cls="picturebox"};
groupbox={ bottom=279;text="远程端口修改";left=5;top=78;z=1;right=332;edge=1;cls="groupbox"};
edit={ num=1;bottom=192;text="";left=112;multiline=1;top=172;z=2;right=175;edge=1;cls="edit"};
static8={ bottom=153;nWrap=1;left=23;top=134;transparent=1;right=133;z=13;text="系统远程服务开关：";cls="static"};
static={ bottom=113;nWrap=1;left=208;top=99;transparent=1;right=306;z=4;text="当前远程端口：";cls="static"};
static2={ bottom=191;nWrap=1;left=23;top=176;transparent=1;right=108;z=3;text="输入更改端口：";cls="static"};
static7={ bottom=193;nWrap=1;left=183;top=176;transparent=1;right=330;z=12;text="(建议范围：1000-65535)";cls="static"};
radiobutton={ bottom=152;text="开启";left=145;top=136;z=14;right=188;cls="radiobutton"};
static10={ bottom=225;color=128;right=316;left=24;top=212;z=17;text="本软件会自动添加新端口到防火墙例外。";transparent=1;cls="static"};
static12={ bottom=297;nWrap=1;left=11;top=281;transparent=1;right=221;z=19;text="支持Windows 2000/XP/2003/2008";cls="static"};
static9={ bottom=211;color=128;text="端口最大值为65535，请修改未使用的端口。";left=25;top=197;z=16;nWrap=1;transparent=1;right=323;cls="static"};
static4={ disabled=1;bottom=297;nWrap=1;left=258;top=282;transparent=1;text="BY：H.T";z=8;right=312;cls="static"}
)/*}}*/winform.radiobutton2.oncommand =function(id,event){
reg = win.reg("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Terminal Server");
reg.setDwValue("fDenyTSConnections",1);
winform.static6.text ="未开启";
win.msgbox("关闭成功","成功");
winform.radiobutton2.disabled = 1;
winform.radiobutton.disabled = 0;
reg.close();
}
winform.radiobutton.oncommand =function(id,event){
reg = win.reg("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Terminal Server");
reg.setDwValue("fDenyTSConnections",0);
winform.static6.text ="开启";
win.msgbox("开启成功","成功");
winform.radiobutton.disabled = 1;
winform.radiobutton2.disabled = 0;
reg.close();
}
winform.picturebox.oncommand =function(id,event){
web.mshtml().document.location.href ="http://bbs.aardio.com";
}
winform.button3.oncommand =function(id,event){varrestart = win.msgboxTest("你真的要重启计算机吗？","重启系统");if(restart =true){
restart();
}
}
winform.button.oncommand =function(id,event){varport = winform.edit.text;ifport =""{
win.msgbox("端口不能为空","错误");
}elseif(tonumber(port) > 65535 ){
win.msgbox("端口值不能大于65535","错误");
}else{
reg = win.reg("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Terminal Server\Wds\rdpwd\Tds\tcp");
reg.setDwValue("PortNumber",port);
reg = win.reg("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Terminal Server\WinStations\RDP-Tcp");
reg.setDwValue("PortNumber",port);
reg = win.reg("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\GloballyOpenPorts\List");
reg.setSzValue(""+port+":TCP",""+port+":TCP:*:Enabled:"+port+"远程端口放行");
win.msgbox("端口修改成功,请重启计算机生效","修改成功");
}
reg.close();
}
winform.show();
reg = win.reg("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Terminal Server\Wds\rdpwd\Tds\tcp");
winform.static3.text = reg.queryValue("PortNumber");
reg = win.reg("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Terminal Server");ifreg.queryValue("fDenyTSConnections") = 1{
winform.static6.text ="未开启";
winform.radiobutton2.disabled = 1;
}else{
winform.static6.text ="开启";
winform.radiobutton.disabled = 1;
}
reg.close();
win.loopMessage();returnwinform;
没什么技术含量，上边是源码，本来要上传工程的，只是做的有图片还有图标，我把压缩了也比论坛规定的大，所以全部工程我上传到我网盘上了，地址是：http://www.xundou.net/index.php?/file/view-ELTPS7D.html