三级士官
UID2141241
U币21
G币562
技术0
主题14
精华0
阅读权限50
注册时间2014-1-3
最后登录2018-11-29
在线时间36 小时
自我介绍UG二次开发博客:www.ugufun.com
三级士官
|
UG GRIP中几种加密写法,可以做成子程序。
- proc/n_cmp,n_usd,n_dat,n_dom
- string/r_dir(132),l_con(50,132),l_add(132)
- string/user(132),c_name(132),comp(132)
- number/n_usd,n_dat,n_cmp,n_dom$=========================================================n_cmp=0
- n_usd=0
- n_dat=0
- n_dom=0$=========================================================comp=envvar/'computername',ask
- ifthen/cmpstr(comp,'XXX')==0
- n_cmp=1
- endif$=========================================================
- n_dom:
- comp=envvar/'userdomain',ask
- ifthen/cmpstr(comp,'yue-SUZHOU')==0
- n_dom=1
- endif$=========================================================
- n_usr:ifthen/&userid=='tagore'
- n_usd=1
- endif$=========================================================n_dat:
- &fulldt=2
- ifthen/date<='10-01-2014'
- n_dat=1
- endif$=========================================================
- hal:
- return
- $halt
复制代码
原帖地址:http://www.ugufun.com/?p=83
|
评分
-
查看全部评分
版权声明 |
|
本人声明此帖为本人原创帖,未经允许,不得转载!
|
|