[Hỏi] Cách đếm số lần sử dụng lệnh lisp hoặc Giới hạn thời gian sử dụng LISP

[thanhduan2407 280]

Em chào các bác!

Em có một câu hỏi này chút ạ! Em viết một lisp phục vụ cho công việc hoàn toàn chính đáng, nhưng đã có người sử dụng không đúng mục đích, ma số liệu (bịa số liệu). Bây giờ em muốn giới hạn việc sử dụng lisp đó bằng số lần sử dụng hoặc giới hạn thời gian sử dụng lisp. Các bác có thể cho em xin 1 đoạn Code hoặc cách thức thực hiện việc này được không ạ? Em cảm ơn các bác nhiều!

P/s: Em đã từng thấy 1 anh viết lisp nếu sử dụng quá hạn nó sẽ tự xóa lisp đó. Em tò mò nhưng chưa biết cách.

[Doan Van Ha 3212]

Em:

http://www.cadviet.com/forum/topic/1024-code-gioi-han-thoi-gian-su-dung-file-lisp/

[thanhduan2407 280]

Em xin lỗi. Em vừa post bài thì thấy có bài liên quan. Em muốn xóa mà ko xóa được. Em sẽ rút kinh nghiệm ạ.

[thanhduan2407 280]

Các bác cho em hỏi thêm 1 chút!

Thay vì số lần sử dụng LISP thì em tính theo thời gian (số ngày) sử dụng LISP thì làm như thế nào ạ?

Với số lần sử dụng LISP thì không vấn đề gì, em đã làm được rồi, còn cách tính trừ ngày này cho ngày này bằng bao nhiêu ngày thì em chưa biết cách tính. Nhờ các bác ra tay trợ giúp.

Ví dụ: Ngày bắt đầu sử dụng lisp là ngày 28/05/2015 và em cho thời gian sử dụng là 3 ngày thì nó hiểu là hết ngày 01/06/2015 là hết hạn. (Tức sang ngày 02/06/2015 là hết hạn)

 Em cảm ơn các bác nhiều.

[nhoclangbac 4]

Nhoc cung cấp 1 số hàm cho anh tự xử (bởi vì Nhoc ko ủng hộ quan điểm hạn chế này lém -_- )

(setcfg cfgname cfgval)

Ex : (SETCFG "AppData/CADViet/Count" "111")

(vl-registry-write reg-key [val-name val-data])

Ex : (VL-REGISTRY-WRITE "HKEY_CURRENT_USER\kk\time\time")
(VL-REGISTRY-WRITE "HKEY_CURRENT_USER\kk\time\time" "" "111")

(vl-registry-read reg-key [val-name])

Ex : (VL-REGISTRY-READ "HKEY_CURRENT_USER\kk\time\time")

Rồi anh tự (setq  ngay  jido) mà giống con kiến bò trên sa mạc :angry2:

[thanhduan2407 280]

Cảm ơn em.

Người ta dùng không đúng mục đích nên anh phải hạn chế. Nó ảnh hưởng đến uy tín của ngành và anh là kẻ đều lêu. :D. Anh dùng đúng mục đích. Hii.

Cảm ơn em về những từ khóa.

[thanhduan2407 280]

Anh sửa lại 1 tí

 

(vl-registry-write "HKEY_CURRENT_USER\\Test"

Ex : (SETCFG "AppData/CADViet/Count" "111")

(vl-registry-write reg-key [val-name val-data])

Ex : (VL-REGISTRY-WRITE "HKEY_CURRENT_USER\\kk\\time\\time")

(VL-REGISTRY-WRITE "HKEY_CURRENT_USER\\kk\\time\\time" "" "111")

(vl-registry-read reg-key [val-name])

Ex : (VL-REGISTRY-READ "HKEY_CURRENT_USER\\kk\\time\\time")

 

Anh đang tìm cách lưu biến ngày khi lần đầu tiên sử dụng, sau đó sẽ cộng thời gian số ngày cho những lần tiếp theo. Chưa tìm ra cách em ạ!

[Doan Van Ha 3212]

Đề phòng kẻ gian sử dụng lisp quá thời hạn, liệu có thể đề phòng kẻ gian vặn đồng hồ lại?

[gia_bach 1559]

Đề phòng kẻ gian sử dụng lisp quá thời hạn, liệu có thể đề phòng kẻ gian vặn đồng hồ lại?

kẻ gian có "trăm tay hay nghìn tay" thì cũng không thể vặn hết các loại đồng hồ. VD : ngày tạo file (truy xuất file) của các file hệ thống trong thư mục windows.

Nhưng vấn đề là làm cách nào ngăn "người ngay" không thay đổi được Registry hay file config.

[thanhduan2407 280]

 

 

Đề phòng kẻ gian sử dụng lisp quá thời hạn, liệu có thể đề phòng kẻ gian vặn đồng hồ lại?

Dạ, không sao đâu ạ. Chương trình cũng không phải cao siêu lắm và những người trong ngành của em cũng không phải siêu đẳng về lập trình đâu. Em chỉ muốn hạn chế việc sử dụng không đúng mục đích thôi. Nếu họ làm được điều đó thì họ mất công chỉnh thời gian. :D. Mong các bác giúp em một chút ạ!

Em cảm ơn các bác nhiều!

[ndtnv 481]

Các bác cho em hỏi thêm 1 chút!

Thay vì số lần sử dụng LISP thì em tính theo thời gian (số ngày) sử dụng LISP thì làm như thế nào ạ?

Với số lần sử dụng LISP thì không vấn đề gì, em đã làm được rồi, còn cách tính trừ ngày này cho ngày này bằng bao nhiêu ngày thì em chưa biết cách tính. Nhờ các bác ra tay trợ giúp.

Ví dụ: Ngày bắt đầu sử dụng lisp là ngày 28/05/2015 và em cho thời gian sử dụng là 3 ngày thì nó hiểu là hết ngày 01/06/2015 là hết hạn. (Tức sang ngày 02/06/2015 là hết hạn)

 Em cảm ơn các bác nhiều.

Hàm lấy ngày, tháng năm:

(fix (getvar "CDATE"))

Bạn phải viết thêm hàm tính chênh lệch ngày, tháng

PS:

Không cần máy tính vẫn tính được, từ cách tính tay suy ra thuật toán

[thanhduan2407 280]

 

Hàm lấy ngày, tháng năm:

(fix (getvar "CDATE"))

Bạn phải viết thêm hàm tính chênh lệch ngày, tháng

Cái này em biết. Nhưng cách tính em chưa biết ạ. Em cần hỏi cái đó.

[tien2005 257]

Bạn vào express/tools/system variable editor... rồi gõ tên biến CDATE hay DATE để hiểu nó trả về cái gì rồi Bạn sẽ có phương án xử lý thích hợp

[thanhduan2407 280]

 

 

Bạn vào express/tools/system variable editor... rồi gõ tên biến CDATE hay DATE để hiểu nó trả về cái gì rồi Bạn sẽ có phương án xử lý thích hợp

Có lẽ nhờ các bác trợ giúp. @@

[Doan Van Ha 3212]

Có lẽ nhờ các bác trợ giúp. @@

Thời gian tại thời điểm 1 (mili giây):

(setq time1 (getvar "millisecs"))

Tại cỡ 9h09' 29/5/2015 là 1304812812. Có thể lấy và đặt trước giá trị này.

Thời gian tại thời điểm 2 (mili giây):

(setq time2 (getvar "milisecs"))

Hiệu số thời gian:

(- time2 time1)

Em khống chế hiệu này.

[thanhduan2407 280]

 

Thời gian tại thời điểm 1 (mili giây):

(setq time1 (getvar "millisecs"))

Tại cỡ 9h09' 29/5/2015 là 1304812812. Có thể lấy và đặt trước giá trị này.

Thời gian tại thời điểm 2 (mili giây):

(setq time2 (getvar "milisecs"))

Hiệu số thời gian:

(- time2 time1)

Em khống chế hiệu này.

 

(defun SOLANLUU (/)

    (setq slan (getcfg "AppData/NGUYENTHIENDUONG/Count_FGCTC"))

    (setq time1 (getvar "millisecs"))

    (cond

      ((= slan "") (setq slan (rtos (/ (- (getvar "millisecs") time1 ) 1000.0) 2 0)))

      ((<= (atoi slan) 0) (setq slan "1"))

    )

    (setcfg "AppData/NGUYENTHIENDUONG/Count_FGCTC" (rtos (/ (- (getvar "millisecs") time1 ) 1000.0) 2 0))

  )

Em thử kiểm soát trong 60s nhưng không được,biến thời gian ko dc lưu bác ạ. Chắc tại em chưa hiểu điều này.

[pphung183 428]

Em thử kiểm soát trong 60s nhưng không được,biến thời gian ko dc lưu bác ạ. Chắc tại em chưa hiểu điều này.

Sao bạn ko thử tạo khóa registry của Window theo hàm của Nhoclangbat rồi đặt diều kiện chạy hàm chính :)

[hoanle 0]

Sao bạn ko thử tạo khóa registry của Window theo hàm của Nhoclangbat rồi đặt diều kiện chạy hàm chính 

 

[hoanle 0]

 

Sao bạn ko thử tạo khóa registry của Window theo hàm của Nhoclangbat rồi đặt diều kiện chạy hàm chính 

 

 

em bị lỗi 1317 khi cài đặt autocad thì sửa như thế nào được ạ? em cảm ơn!

[pphung183 428]

em bị lỗi 1317 khi cài đặt autocad thì sửa như thế nào được ạ? em cảm ơn!

 1 câu hỏi khó hiểu? B)  Về nguyên tắc khi cài lại Cad thì bạn phải gỡ triệt để Cad cũ (bằng phần mềm Your Unin-staller! chẳng hạn). Chạy CCleaner để lau sạch các registry của Cad cũ. Xong bạn cài lại Cad thì Ok. Nói chung có nhiều nguyên nhân nhưng nguyên nhân chính thường là tay nghề chưa ngon :D

[thanhduan2407 280]

 

 

Sao bạn ko thử tạo khóa registry của Window theo hàm của Nhoclangbat rồi đặt diều kiện chạy hàm chính

Dạ. Em cảm ơn bác pphung183

[pphung183 428]

Code tạm cho bạn :)

(VL-REGISTRY-WRITE "HKEY_CURRENT_USER\\kk\\time\\time" "" "20150530")
(defun c:test ()
(if (> (getvar "CDATE") (read (VL-REGISTRY-READ "HKEY_CURRENT_USER\\kk\\time\\time")))
(progn (alert "\nBan da het han su dung!") (setq hamchinh nil))  
(progn (alert "\nHan su dung den ngay 30/05/2015!")(hamchinh)) )
(defun hamchinh (/ oldlst a b c d e f g h kho TL)
...........
...........)
(princ))

[thanhduan2407 280]

Em cảm ơn bác!

[ketxu 3018]

Cấu trúc pphung183 viết chưa ổn về nguyên tắc cơ bản khi load hàm/thủ tục.

[Han Tinh 7]

Bạn ketxu có thể show để anh, em trên diễn đàn học hỏi.