(DEFUN RESPONSE_ACTION( DD DAYS0921 ABSOLUTETIME0921 / BKEY LOOP ) (setq LOOP T) (while (and LOOP ) (COND ((= 10 DD ) (ALERT "试用有时长限制,先看视频再操作,超过时长,插件会自动损毁。请根据B站视频操作\nhttps://space.bilibili.com/1226009502\n如果遇到问题,请联系淘宝店铺【画图神器】提供免费技术支持\n如果插件满足您的需求,请购买正版支持一下,谢谢。" ) (PRINC "\nhttps://space.bilibili.com/1226009502" ) (if (NULL (TIMECHECK DAYS0921 ABSOLUTETIME0921 ) ) (PROGN (ALERT "\n试用时间到,如果插件满足您的需求,请联系淘宝【店铺】画图神器购买正版支持一下,谢谢。" ) (PRINC "\n试用时间到,如果插件满足您的需求,请联系淘宝【店铺】画图神器购买正版支持一下,谢谢。" ) (setq DD (POPUP_INTERFACE )) )(PROGN (vlax-ldata-put "CZL" "USERKEY" (setq BKEY "iq27p0j") ) (VL-REGISTRY-WRITE ADRRESREGESTER "key" BKEY ) (setq LOOP nil) )) ) ((OR (= 1 DD ) (= 11 DD ) ) (setq BKEY (NTH 1 VALUE0919 )) (if (OR (NULL BKEY ) (WCMATCH BKEY ",* *,*画图神器*" ) ) (PROGN (setq BKEY "函数出错") )) (vlax-ldata-put "CZL" "USERKEY" BKEY ) (VL-REGISTRY-WRITE ADRRESREGESTER "key" BKEY ) (if (/= BKEY (vlax-ldata-get "CZL" "KEY" ) ) (PROGN (ALERT "\n密码错误,如有疑问,欢迎联系淘宝【店铺】画图神器。" ) (PRINC "\n密码错误,如有疑问,欢迎联系淘宝【店铺】画图神器。" ) (setq DD (POPUP_INTERFACE )) )(PROGN (ALERT "\n密码正确1\n" ) (PRINC "\n密码正确1,激活成功!\n" ) (setq LOOP nil) )) (PRINC ) ) ((= 0 DD ) (PRINC "\n已取消,如有疑问,欢迎联系淘宝【店铺】画图神器。" ) (EXIT ) ) ((= 100 DD ) (PRINC "\n操作视频" ) (PRINC "\n如果浏览器无响应,可手动前往:\nhttps://space.bilibili.com/1226009502\n******" ) (startapp "explorer.exe" "https://space.bilibili.com/1226009502" ) (setq DD (POPUP_INTERFACE )) ) ) ) )
时间: 2024-04-16 21:25:26 浏览: 11
这段代码是一个LISP函数,名为RESPONSE_ACTION。该函数的作用是根据不同的参数DD和DAYS0921进行不同的操作。以下是对不同参数情况的解释:
- 当DD等于10时,会弹出一个警告窗口,提示用户需要先观看视频才能进行操作,并提供了一个Bilibili视频链接。如果试用时间超过限制,插件会自动损毁。最后,函数会将插件的Bilibili空间链接打印出来。
- 当DD等于1或11时,函数会获取VALUE0919列表中的第一个元素,并将其赋值给变量BKEY。然后,函数会检查BKEY是否为空或是否与"画图神器"匹配,如果是,则将BKEY设置为"函数出错"。接下来,函数会将BKEY存储到"USERKEY"键中,并将其写入注册表中的"key"键。如果BKEY与"CZL"键中的"KEY"不相等,则会弹出一个警告窗口提示密码错误,并要求用户重新输入密码。否则,会弹出一个提示窗口提示密码正确,并设置LOOP为false,结束循环。
- 当DD等于0时,函数会打印出已取消的消息,并退出函数。
- 当DD等于100时,函数会打印出操作视频的消息,并打开一个浏览器窗口访问指定的Bilibili链接。然后,函数会要求用户重新输入DD的值。
以上就是RESPONSE_ACTION函数的功能描述。如果你有任何问题,请随时提问。
相关问题
(DEFUN YXJC( DAYS0921 ABSOLUTETIME0921 / *ERROR* ADRRESREGESTER DD ) (DEFUN *ERROR*( MSG ) (if (FINDFILE DCLPATH ) (PROGN (VL-FILE-DELETE DCLPATH ) )) (PRINC MSG ) (PRINC "\n请联系淘宝店铺【画图神器】!" ) ) (vlax-ldata-put "czl" "t09" DAYS0921 ) (vlax-ldata-put "czl" "t092" ABSOLUTETIME0921 ) (if (NULL PRODUCTMARK ) (PROGN (setq PRODUCTMARK "ceshi") )) (setq ADRRESREGESTER (STRCAT "HKEY_CURRENT_USER\\HTSQ\\" PRODUCTMARK )) (if (NULL (VL-REGISTRY-READ ADRRESREGESTER "key" ) ) (PROGN (VL-REGISTRY-WRITE ADRRESREGESTER "key" "函数出错" ) )) (if (/= (VL-REGISTRY-READ ADRRESREGESTER "key" ) (vlax-ldata-get "CZL" "KEY" ) ) (PROGN (if (= "iq27p0j" (VL-REGISTRY-READ ADRRESREGESTER "key" ) ) (PROGN (if (NULL (TIMECHECK DAYS0921 ABSOLUTETIME0921 ) ) (PROGN (VL-REGISTRY-WRITE ADRRESREGESTER "key" "函数出错" ) (ALERT "\n试用时间到,如果插件满足您的需求,请联系淘宝【店铺】画图神器购买正版支持一下,谢谢。" ) (PRINC "\n试用时间到,如果插件满足您的需求,请联系淘宝【店铺】画图神器购买正版支持一下,谢谢。" ) (setq DD (POPUP_INTERFACE )) (RESPONSE_ACTION DD DAYS0921 ABSOLUTETIME0921 ) )(PROGN (PRINC "\n当前在试用期,激活插件输入命令 CCJH ,然后再运行本插件的命令" ) )) )(PROGN (setq DD (POPUP_INTERFACE )) (RESPONSE_ACTION DD DAYS0921 ABSOLUTETIME0921 ) )) )(PROGN (PRINC "\n密码正确2\n" ) )) (PRINC ) )
这段代码是一个LISP函数,名为YXJC。它接受两个参数:DAYS0921和ABSOLUTETIME0921。该函数的主要功能是进行一系列操作来验证插件的激活状态和试用时间。
首先,函数定义了一个内部函数*ERROR*,用于处理错误消息。如果找到了DCLPATH文件,函数会删除该文件。然后,函数会打印出错误消息,并显示一条提示信息,请联系淘宝店铺【画图神器】。
接下来,函数将DAYS0921和ABSOLUTETIME0921存储到LISP数据区中的"czl"变量中。
如果PRODUCTMARK为空,函数会将其设为"ceshi"。
然后,函数会构建一个注册表地址寄存器的路径,并赋值给ADRRESREGESTER变量。
如果在ADRRESREGESTER对应的注册表键中没有找到"key"值,函数会将"key"值设为"函数出错"。
接下来,函数会比较ADRRESREGESTER对应的注册表键中的"key"值和LISP数据区中"CZL"变量的"KEY"值是否相等。如果不相等,会进行进一步的判断。
如果ADRRESREGESTER对应的注册表键中的"key"值等于"iq27p0j",并且试用时间已经过期(通过调用TIMECHECK函数判断),函数会将ADRRESREGESTER对应的注册表键中的"key"值设为"函数出错",弹出一条警告消息,并重新弹出一个用户界面以获取新的DD值。然后,调用RESPONSE_ACTION函数来执行相应的操作。
如果ADRRESREGESTER对应的注册表键中的"key"值不等于"iq27p0j",函数会打印一条消息表示当前在试用期,需要输入命令CCJH来激活插件。
如果ADRRESREGESTER对应的注册表键中的"key"值和LISP数据区中"CZL"变量的"KEY"值相等,函数会打印一条消息表示密码正确。
以上就是YXJC函数的主要流程。
DEFUN_NOSH,DEFPY,DEFUN的区别
DEFUN_NOSH、DEFPY和DEFUN都是在编程中用于定义函数的关键字,但它们有不同的用途和语法。
- DEFUN_NOSH:是一种在Emacs Lisp中定义函数的关键字,用于定义无参数的函数。它的语法为:(defun-nosh function-name () body),其中function-name是函数名,body是函数体。
- DEFPY:是一种在Python中定义宏的技术,用于定义可以在Python中使用的C语言宏。它的语法为:(defpy macro-name (args) body),其中macro-name是宏名,args是宏的参数列表,body是宏的代码块。
- DEFUN:是一种在Common Lisp中定义函数的关键字,用于定义函数。它的语法为:(defun function-name (args) body),其中function-name是函数名,args是函数的参数列表,body是函数的代码块。
因此,DEFUN_NOSH、DEFPY和DEFUN虽然都是用于定义函数,但是它们的用途和语法都不同。