Khóa file DWG bằng VBA

[ntluyen 20]

Tôi có file DWG khóa bằng VBA, Các bác dùng thử xem

https://www.box.com/...3dee9dfdbb71f41

 

Đây là bộ khóa bằng VB.NET tôi mới viết lại Các bạn dùng thử và cho ý kiến

https://www.box.com/s/9c4f90a1ece0d4e929ad

[hotanphi 0]

Không thấy gì ngoài 1 file .dwg

Bạn nói cho mọi người cách dùng chứ.

Xin cảm ơn

[quochung.vpr 1]

Đúng rồi cậu nên hướng dẫn mọi người cách dùng đi tớ thấy hay lắm. Với lại cậu cho mình hỏi cậu chạy đường bằng phần mềm gì đấy hình như không phải nova cr*** chứ

[ntluyen 20]

Chương trình viết bằng VBA nên khi các bạn chạy phải bật VBA, chọn Enable Macro

[ntluyen 20]

Đúng rồi cậu nên hướng dẫn mọi người cách dùng đi tớ thấy hay lắm. Với lại cậu cho mình hỏi cậu chạy đường bằng phần mềm gì đấy hình như không phải nova cr*** chứ

Tớ không nghiện cái nova lắm

Cái này do tớ viết bằng VBA

[hoaituoi.87 175]

file do là file cad bị bác khóa rồi.còn dùng thử cái gì hả bác.

[Detailing 281]

Tôi có file DWG khóa bằng VBA, Các bác dùng thử xem

https://www.box.com/...3dee9dfdbb71f41

Gửi lại bạn để làm cái khoá khác :D http://www.cadviet.com/upfiles/3/83237_lockall2000_xxx.dwg

Goodluck!

[hientv86 47]

Chương trình viết bằng VBA nên khi các bạn chạy phải bật VBA, chọn Enable Macro

giấu nghề wa ,chỉ mà như ko chỉ buồn

[ntluyen 20]

Gửi lại bạn để làm cái khoá khác :D http://www.cadviet.c...all2000_xxx.dwg

Goodluck!

Đã dùng cả Hook key ròi mà bác còn phá được. Bác có thể bật mí không để em viết cho nó ổn hơn hco ae dùng.

[ntluyen 20]

giấu nghề wa ,chỉ mà như ko chỉ buồn

 

Thì các bạc cứ check xem đã, nến thấy ổn tôi sẽ share cho ae dùng.

[Detailing 281]

Đã dùng cả Hook key ròi mà bác còn phá được. Bác có thể bật mí không để em viết cho nó ổn hơn hco ae dùng.

Chào bạn,

Bạn ko chỉ Hook KB mà còn cả Clipboard và chính Acad.exe luôn :D

Bạn làm vậy là quá tốt rồi. Mình chỉ có vài ý sau thôi

• Bạn chưa kiểm tra điều kiện nếu mình mở VBE trước?
  
• Bạn hook hết kb rồi thì sao user làm việc ở chương trình khác dc?
  
• Bản vẽ ko cho in luôn hay sao đó
  
• Code "complier" entity của bạn hơi đơn giản nhưng tạo ra cái hình khá "đẹp"
  

Good luck!

[ntluyen 20]

Chào bạn,

Bạn ko chỉ Hook KB mà còn cả Clipboard và chính Acad.exe luôn :D

Bạn làm vậy là quá tốt rồi. Mình chỉ có vài ý sau thôi

• Bạn chưa kiểm tra điều kiện nếu mình mở VBE trước?
  
• Bạn hook hết kb rồi thì sao user làm việc ở chương trình khác dc?
  
• Bản vẽ ko cho in luôn hay sao đó
  
• Code "complier" entity của bạn hơi đơn giản nhưng tạo ra cái hình khá "đẹp"
  

Good luck!

Bác có nghề quá nói phát đúng luôn. Tôi hook cả key, clipboard, cả WH_CBT nữa.

- Uh, có lẽ mình sẽ check cái VBE trước.

- Đây là bản vẽ khóa để cho người khác không mở được - (thông thường ae gửi cho CĐT chưa trả tiền) - Cho khóa cứng luôn.

- Về khóa lệnh in, :D thì cũng chỉ đang muốn demo cho mọi người xem mà. Khi nào dùng thật thì sẽ mở lệnh này.

Mình cũng muốn viết cái khóa file cad để ae tư vấn đỡ bức xúc

[sgcq 726]

Mình ủng hộ bác ntluyen 2 tay. Bác viết sao cho ai cũng không mở được là tốt nhất, chỉ xem thôi. Chứ các file dwg bị khóa mà e đã từng gặp thì chỉ vài thao tác đơn giản là e giải được liền, không cần thông qua phần mềm vô hiệu hóa VBA & cũng không quan tâm là có biết VBA hay không nữa.

Bình thường thì 2 lúa e chỉ xuất PDF giao chủ đầu tư thôi, nhưng cách này rất mất thời gian, lại phải cài acrobat pro thì mới full lock được.

[Detailing 281]

Mình ủng hộ bác ntluyen 2 tay. Bác viết sao cho ai cũng không mở được là tốt nhất, chỉ xem thôi. Chứ các file dwg bị khóa mà e đã từng gặp thì chỉ vài thao tác đơn giản là e giải được liền, không cần thông qua phần mềm vô hiệu hóa VBA & cũng không quan tâm là có biết VBA hay không nữa.

Bình thường thì 2 lúa e chỉ xuất PDF giao chủ đầu tư thôi, nhưng cách này rất mất thời gian, lại phải cài acrobat pro thì mới full lock được.

Bạn có thể thử "vài thao tác đơn giản" với file ở post #1 xem sao.

Về cơ bản thì ko khóa nào là ko mở dc :D nhưng quan trọng là ng mở có chịu "mò" hay ko thôi. xuất sang PDF hay DWF vẫn có tool để convert ngược lại tùy theo khả năng convert của bạn tới đâu và của ng convert tới đâu thôi :D

Good luck!

[Tue_NV 3.912]

Bạn có thể thử "vài thao tác đơn giản" với file ở post #1 xem sao.

Về cơ bản thì ko khóa nào là ko mở dc :D nhưng quan trọng là ng mở có chịu "mò" hay ko thôi. xuất sang PDF hay DWF vẫn có tool để convert ngược lại tùy theo khả năng convert của bạn tới đâu và của ng convert tới đâu thôi :D

Good luck!

"Nã" dimension, "nã" Block", "Nã" cả Text trong file dwg ra luôn thì có mà "mò" ...... :D

Thêm mấy mã code lisp break Line, Pline, Arc, Spline...... "vụn tơi" ra -> "mò" ra được thì bản vẽ cũng "nát bét " :D

[Detailing 281]

"Nã" dimension, "nã" Block", "Nã" cả Text trong file dwg ra luôn thì có mà "mò" ...... :D

Thêm mấy mã code lisp break Line, Pline, Arc, Spline...... "vụn tơi" ra -> "mò" ra được thì bản vẽ cũng "nát bét " :D

hehe Tue_NV hơi lạm dụng lisp rồi, chỉ cần export ra image -> PDF là dc rồi ko cần mấy cái lisp break line block hay ..... nữa đâu

:D convert -> toàn point với line :D

[phamngoctukts 714]

Tôi có file DWG khóa bằng VBA, Các bác dùng thử xem

https://www.box.com/...3dee9dfdbb71f41

Không biết bạn làm xong khóa mới chưa nhỉ?

Mình nghĩ bạn nên thay

object.visible + object.move + object.rotate = object.delete

[ntluyen 20]

Xin lỗi ae, mấy hôm cuối tuần bận việc nên không làm được.

Tôi đã làm lại cái khóa, visible VBE, Vlisp. Các bác check xem thế nào ạ.

Download : https://www.box.com/s/8f20745f85aabea85796

 

object.visible + object.move + object.rotate = object.delete

Bác nhìn phát biết ngay. Đúng là em đã object.visible; object.move; object.rotate

[ntluyen 20]

Nhờ bác Detailing Kiểm tra hộ xem đã được chưa, nếu chưa được bác chỉ tiếp để em sửa khóa tiếp :D

[quang_lac 32]

Bác ntluyen hình như làm ở vinaconex thì phải

[ketxu 2.984]

Bác chịu khó viết Decom - Comp cho mấy loại Entity nhỉ ^^ Nhưng mình cứ thấy nó dễ gây crash sao sao ý. Đang đọc chuyển window là crash mấy lần. Chắc hook trâu quá. Chúc bác thành công

[ntluyen 20]

Nếu không Decom - Comp thì chắc là không có cách nào để khóa được file cad cả còn Hook có gây ra lỗi. tôi cúng đang tìm hiểu xem.

[Detailing 281]

Nhờ bác Detailing Kiểm tra hộ xem đã được chưa, nếu chưa được bác chỉ tiếp để em sửa khóa tiếp :D

Bạn tạo file có hình khác 1 chút chứ thấy cái hình y chang vậy :D

mình thấy bạn thêm 1 class KillVBE vào và gọi method TerminateVBE True :D tuy nhiên vẫn mở dc VBE và Vlisp bằng ribbon button :blink:

bản vẽ này y chang bản vẽ trước nhưng hình như có thêm 1 ent nào đó (chắc để check xem mình có mở dc ko hay lấy cái cũ uip lên :D )

Good luck!

[ntluyen 20]

Bác ntluyen hình như làm ở vinaconex thì phải

 

Đúng Tôi lam ỏe Vinaconex. Bnạ cũng Làm ỏe VINA?

[ntluyen 20]

Bạn tạo file có hình khác 1 chút chứ thấy cái hình y chang vậy :D

mình thấy bạn thêm 1 class KillVBE vào và gọi method TerminateVBE True :D tuy nhiên vẫn mở dc VBE và Vlisp bằng ribbon button :blink:

bản vẽ này y chang bản vẽ trước nhưng hình như có thêm 1 ent nào đó (chắc để check xem mình có mở dc ko hay lấy cái cũ uip lên :D )

Good luck!

 

Bác đúng là cao thủ.

(chắc để check xem mình có mở dc ko hay lấy cái cũ uip lên :D ) ~ không phải là thử bác đâu. Là vì có cái file có sẵn, thêm vào cái ngày giờ để biết.

Mình sẽ check luôn cái ribon!

Thank!