UG后处理网络时间加密
通过学习研究网络上的源码片段终于实现UG后处理网络时间加密，最后源码以图片方式分享大家拿来研究一下 这个用处大不大？ 拿来研究一下:P:P:P 先收来用用，我准备给我用在公司的后处理加个密 感谢分享 大哥能分享源码不，一个个敲头疼:L 执念11 发表于 2025-1-18 21:13
大哥能分享源码不，一个个敲头疼
这样能加深印象;P;P;P 感谢分享 #检测网络连接
#设置连接的网络及端口
set host "www.baidu.com"
set port 123
#使用socket检查网络连接，判断电脑是否连接网络，如果没有连接处理报警及停止输出。
if {}]} {
MOM_display_message "电脑没有连接网络，请连网后使用后处理。"
MOM_abort "\n\n电脑没有连接网络，请连网后使用后处理。\n\n"
} else {
MOM_outputto_listing_device "网络连接成功"
catch {close $socket}
}
#获取系统注册表中的时间设置
set reg_key "HKEY_LOCAL_MACHINE\\SYSTEM\\CurrentControlSet\\Services\\W32Time\\Parameters"
set reg_value "Type"
set cmd
#系统注册表解析输出，判断电脑系统是否开启自动设置时间，如果没有开启则后处理报警及停止输出。
if { } {
if {$value eq "NTP"} {
MOM_output_to_listing_device "电脑系统开启自动设置时间"
} else {
MOM_output_to_listing_device "请开启电脑系统自动设置时间"
MOM_abort "\n\n电脑系统没有开启自动设置时间\n\n"
}
}
#当前时间大于设置的时间，输出报警信息
#获取当前时间（精确到秒）
set cktm -format &Y&m&d&H&M&S -gmt 0]
#设置后处理过期时间，如果当前时间大于设置时间则停止输出
if {$cktm > "20260130173000"} {
MOM_abort "\n\n提示:后处理已经过期！\n\n"
}