3389端口修改器 源码

qiuweihg

各位我又来献丑了。没什么技术含量，就是修改一下注册表。

我直接贴入源码吧。

控件如下：
标签3个，编辑框1个，按钮1个。创建好控件后直接贴入下面源码即可。


.版本 2
.支持库 spec

.程序集 窗口程序集1
.程序集变量 取端口, 整数型
.程序集变量 取端口1, 整数型

.子程序 __启动窗口_创建完毕

取端口 ＝ 取数值注册项 (4, “SYSTEM\CurrentControlSet\Control\Terminal Server\WinStations\RDP-Tcp\PortNumber”, )
取端口1 ＝ 取数值注册项 (4, “SYSTEM\CurrentControlSet\Control\Terminal Server\Wds\rdpwd\Tds\tcp\portNumber”, )
调试输出 (取端口, 取端口1)
.如果真 (取端口 ≠ 取端口1)
    写注册项 (4, “SYSTEM\CurrentControlSet\Control\Terminal Server\WinStations\RDP-Tcp\PortNumber”, 3389)
    写注册项 (4, “SYSTEM\CurrentControlSet\Control\Terminal Server\Wds\rdpwd\Tds\tcp\portNumber”, 3389)
    信息框 (“端口修复成功”, 0, )
.如果真结束
标签3.标题 ＝ 到文本 (取端口)


.子程序 _按钮1_被单击

.如果真 (编辑框1.内容 ＝ “”)
    信息框 (“请您输入端口号！”, 0, )
    返回 ()
.如果真结束
.如果真 (65535 ≤ 到数值 (编辑框1.内容))
    编辑框1.内容 ＝ “”
    信息框 (“您的端口过大，请小于65535！”, 0, )
    返回 ()
.如果真结束
.如果真 (0 ≥ 到数值 (编辑框1.内容))
    编辑框1.内容 ＝ “”
    信息框 (“您输入的端口过小，请大于0！”, 0, )
    返回 ()
.如果真结束
写注册项 (4, “SYSTEM\CurrentControlSet\Control\Terminal Server\WinStations\RDP-Tcp\PortNumber”, 到数值 (编辑框1.内容))
写注册项 (4, “SYSTEM\CurrentControlSet\Control\Terminal Server\Wds\rdpwd\Tds\tcp\portNumber”, 到数值 (编辑框1.内容))
' ---------
取端口 ＝ 取数值注册项 (4, “SYSTEM\CurrentControlSet\Control\Terminal Server\WinStations\RDP-Tcp\PortNumber”, )
取端口1 ＝ 取数值注册项 (4, “SYSTEM\CurrentControlSet\Control\Terminal Server\Wds\rdpwd\Tds\tcp\portNumber”, )
调试输出 (取端口, 取端口1)
标签3.标题 ＝ 到文本 (取端口)
信息框 (“端口修改成功！”, 0, )

坏猫

大爱楼主，，感谢楼主。。

jiang196771

这个怎么用啊？不会啊，菜鸟啊，可以教教我吗 ？

悠悠然

3.......

Lin°

  不会用，菜鸟一个

y123456789

哇   很好  很强大啊  
支持哈  吾爱破解