TC官方合作论坛

 找回密码
 立即注册
查看: 991|回复: 1

[问题] 写了一个修改远程桌面端口的小程序 可是修改注册表之后...

[复制链接]
发表于 2016-10-26 12:14:50 | 显示全部楼层 |阅读模式

马上加入TC

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
写了一个修改远程桌面端口的小程序 可是修改注册表之后就不对了
  1. function 远程端口修改程序_init()
  2.     ret = reggetvalue("HKEY_LOCAL_MACHINE\\SYSTEM\\CurrentControlSet\\Control\\Terminal Server\\Wds\\rdpwd\\Tds\\tcp", "PortNumber")
  3.     ret1 = reggetvalue("HKEY_LOCAL_MACHINE\\SYSTEM\\CurrentControlSet\\Control\\Terminal Server\\WinStati**\\RDP-Tcp", "PortNumber")
  4.     ret2 = reggetvalue("HKEY_LOCAL_MACHINE\\SYSTEM\\CurrentControlSet\\Control\\Terminal Server", "fDenyTSConnecti**")
  5.     if(ret == null || ret1 == null || ret2 == null)
  6.         messagebox("windows系统异常,无法获取远程状态信息!")
  7.         exit()
  8.     end
  9.     if(ret == ret1)
  10.         staticsettext("static4", ret)
  11.     else
  12.         ret = regcreatekey("HKEY_LOCAL_MACHINE\\SYSTEM\\CurrentControlSet\\Control\\Terminal Server\\Wds\\rdpwd\\Tds\\tcp", "PortNumber", 3389, 0)
  13.         ret1 = regcreatekey("HKEY_LOCAL_MACHINE\\SYSTEM\\CurrentControlSet\\Control\\Terminal Server\\WinStati**\\RDP-Tcp", "PortNumber", 3389, 0)
  14.         messagebox("端口异常,已帮您恢复默认端口3389")
  15.         远程端口修改程序_init()
  16.     end
  17.     if(ret2 == 1)
  18.         staticsettext("static3", "关闭")
  19.         butt**ettext("button0", "开启远程端口")  
  20.     elseif(ret2 == 0)
  21.         staticsettext("static3", "开启")
  22.         butt**ettext("button0", "关闭远程端口")
  23.     else
  24.         ret = regcreatekey("HKEY_LOCAL_MACHINE\\SYSTEM\\CurrentControlSet\\Control\\Terminal Server", "fDenyTSConnecti**", 1, 0)
  25.         messagebox("端口状态异常,已帮您关闭远程端口")
  26.         远程端口修改程序_init()
  27.     end
  28. end
复制代码


回复

使用道具 举报

 楼主| 发表于 2016-10-26 12:16:33 | 显示全部楼层
用regcreatekey函数修改注册表之后连接不上,用别的工具查看 发现我修改的3389端口 在别的工具却显示端口是:959984435
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关闭

推荐上一条 /2 下一条

关闭

小黑屋|TC官方合作论坛 (苏ICP备18045623号)

GMT+8, 2024-9-28 22:45 , Processed in 0.036156 second(s), 23 queries .

Powered by 海安简单软件服务部

© 2008-2019 版权所有 保留所有权利

快速回复 返回顶部 返回列表