请问一下我这个时间检测的后处理构造器改如何使用

hyl921124@gmail

请问一下后处理构造器使用TCL是这样用的吗？我使用构造器就不行，使用后处理配置器就可以闪退，这种是怎么解决呢？

why6666133

这个不是网友分享的代码吗

hyl921124@gmail

why6666133 发表于 2025-4-10 20:48
这个不是网友分享的代码吗

是啊  就是不知道添加在哪里，我不懂构造器的TCL加哪里去  PC的配置器我还会一些

NX编程小学生

不用刻意研究这个，这种加密基本没什么用，也就糊弄一下小白，直接找到TCL文件中的这一段删除就不受限制了！

tombai691019

这个代码要变通一下才可以。不过加上这个代码后后处理特别慢，下面是代码，不过没太大作用，还不如TCL直接加密，那样没人能改了。
代码：

global host socket port
set host "www.baidu.com"
set port 80
if {[catch {set socket [socket $host $port]}]} {
MOM_display_message " 电脑没有连接网络 "
MOM_abort "\n\n 电脑没有连接网络，请连接网络后使用后处理\n\n"
} else {
MOM_output_to_listing_device "网络连接成功"
catch { close $socket }
}
set reg_key "HKEY_LOCAL_MACHINE\\SYSTEM\\CurrentControlSet\\Services\\W32Time\\Parameters"
set reg_value "type"
set cmd [exec reg query "$reg_key" /v "$reg_value"]
if {[regexp {Type \s+REG_SZ\s+(\w+)} $cmd match value] } {
   if {$value eq "NTP"} {
   MOM_output_to_listing_device "电脑系统自动设置时间"
   } else {
   MOM_output_to_listing_device "请开启电脑自动设置时间"
   MOM_abort "\n\n 电脑没有自动设置时间\n\n"
   }
}

set cktm [clock format [clock seconds] -format "%Y%m%d%H%M%S" -gmt 0]
MOM_output_to_listing_device "$cktm"
if { $cktm > "20240120173000" } {
  MOM_abort "后处理已过期"
  }

hyl921124@gmail

tombai691019 发表于 2025-4-11 19:00
这个代码要变通一下才可以。不过加上这个代码后后处理特别慢，下面是代码，不过没太大作用，还不如TCL直接 ...

谢谢大佬