10 UG后处理如何设置加密使用限制
最佳答案 2021-04-28 22:44
##########################################################################
#通过时间限制后处理试用
#=============================================================
proc PB_CMD_shi_jian_xian_zhi { } {
#=============================================================
set xl_clock [clock format [clock seconds] -format %Y%m%d%H%M%S -gmt 0]
if { $xl_clock > "20991010200000" } {
MOM_abort "\n\n提醒你:后处理己过期~~谢谢.\n\n"
}
}
其中的20991010就是限制日期2099年10月10日
改成你想要的日期
还有一种是通过后处理次数的
#=============================================================
proc PB_CMD_linera { } {
#=============================================================
##################开始
global t1 t2 turn
set t "ug1.txt"
set cam_post_dir [MOM_ask_env_var UGII_ROOT_DIR]
if {[file exists $cam_post_dir$t]} {
set t1 [open $cam_post_dir$t r+]
set buf ""
while { [gets $t1 buf] > 0 } {
set turn $buf
}
close $t1
} else {
set turn 0
}
set turn [expr $turn+1 ]
set t2 [open $cam_post_dir$t w+]
global tl
set tl 0
puts $t2 $turn
#MOM_output_literal "t2 $turn "
close $t2
if { $turn > 999 } {
MOM_abort "\n\n\n 后处理已经到达试用次数\n\n \
试用到期 \n\n \ "
}
}
其中的$turn > 999 999就是次数 用999后就受限了
