• Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
  • Tìm kiếm trước khi đặt câu hỏi

Hướng dẫn Khóa File ảnh có định dạng .BMP

Các thủ thuật về âm thanh, đồ họa, truyền thông đa phương tiện...
Hình đại diện của người dùng
NTN
Thành viên tâm huyết
Thành viên tâm huyết
Bài viết: 471
Ngày tham gia: T.Tư 05/02/2014 3:43 pm
Đến từ: Cao Lãnh, Đồng Tháp,Việt Nam
Has thanked: 19 time
Been thanked: 7 time
Liên hệ:

Hướng dẫn Khóa File ảnh có định dạng .BMP

Gửi bàigửi bởi NTN » T.Bảy 08/02/2014 10:27 am

Thủ thuật: Khóa File ảnh có định dạng .BMP
Tác giả: Sưu tầm
Mô tả: Hướng dẫn Khóa File ảnh có định dạng .BMP


Đầu tiên các bạn chuẩn bị :
- 3 Command tên lần lượt là Command1,Command2,Command3
- 1 Text tên là Text1
- 1 CommonDialog1 tên là CommonDialog1

Ở phần Form_Load các bạn thêm code sau :
  1. Private Sub Form_Load()
  2. Command1.Caption = "khoa file anh"
  3. Command2.Caption = "Mo file anh"
  4. End Sub


Để có thể Khóa ảnh các bạn thêm code sau :
  1. Function MoKhoa(File)
  2. A = FreeFile
  3. Open File For Binary As #A
  4. B$ = Chr(0)
  5. Put #A, 17, B$
  6. Close #A
  7. End Function
  8.  
  9. Function KhoaAnh(File)
  10. A = FreeFile
  11. Open File For Binary As #A
  12. B$ = "X"
  13. Put #A, 17, B$
  14. Close #A
  15. End Function


Và phần còn lại là thêm code sau cho Command 1 2 3:
  1. Private Sub Command1_Click()
  2. KhoaAnh Text1.Text
  3. End Sub
  4.  
  5. Private Sub Command2_Click()
  6. MoKhoa Text1.Text
  7. End Sub
  8.  
  9. Private Sub Command3_Click()
  10. CommonDialog1.ShowOpen
  11. Text1.Text = CommonDialog1.FileName
  12. End Sub


Nếu các bạn sợ không đúng thì coppy toàn bộ code sau :
  1. Function MoKhoa(File)
  2. A = FreeFile
  3. Open File For Binary As #A
  4. B$ = Chr(0)
  5. Put #A, 17, B$
  6. Close #A
  7. End Function
  8.  
  9. Function KhoaAnh(File)
  10. A = FreeFile
  11. Open File For Binary As #A
  12. B$ = "X"
  13. Put #A, 17, B$
  14. Close #A
  15. End Function
  16.  
  17. Private Sub Command1_Click()
  18. KhoaAnh Text1.Text
  19. End Sub
  20.  
  21. Private Sub Command2_Click()
  22. MoKhoa Text1.Text
  23. End Sub
  24.  
  25. Private Sub Command3_Click()
  26. CommonDialog1.ShowOpen
  27. Text1.Text = CommonDialog1.FileName
  28. End Sub
  29.  
  30. Private Sub Form_Load()
  31. Command1.Caption = "khoa file anh"
  32. Command2.Caption = "Mo file anh"
  33. End Sub
  34.  


Vậy là xong ! :-"



Hình đại diện của người dùng
phanthequang4101987
Thành viên danh dự
Thành viên danh dự
Bài viết: 115
Ngày tham gia: T.Ba 01/04/2008 6:39 am
Đến từ: Nghi Xuân - Hà Tĩnh
Has thanked: 5 time
Been thanked: 21 time
Liên hệ:

Re: Hướng dẫn Khóa File ảnh có định dạng .BMP

Gửi bàigửi bởi phanthequang4101987 » T.Hai 28/07/2014 4:08 pm

Cái này có bài trong vblib rồi . hình như cách đây 4-5 năm gì rồi bạn #TNT à :) . nếu bạn mở các tệp bằng notepad bạn sẽ thấy những tệp *.dll;.exe;.com;.ocx;.scr;.h1s sẽ được bắt đầu bằng ký tự "MZ" . các file ảnh như *.gif là "gif89", *.png là "%PNG", của *.bmp là "BM" bạn chỉ cần viết code đổi các ký tự khác là các files này không còn mở được nữa , kết hợp đổi đuôi tập tin thành tên khác thì càng tốt . khi muốn mở ra thì thay ký tự đó về ban đầu :) . mấy chương trình chưa dùng ảnh ngay như trò "bắt chữ" có thể làm như vậy để bảo vệ data của mình :)
†™_Çøø£_™†.......♥.......†™_U††»ñhøç_™†
Đưa người ta chưa đưa qua sông
mà sao nghe tiếng sóng trong lòng
.(¯`v´¯)_______ÎÎ_____ÎÎ________(¯`v´¯)

Hình đại diện của người dùng
NTN
Thành viên tâm huyết
Thành viên tâm huyết
Bài viết: 471
Ngày tham gia: T.Tư 05/02/2014 3:43 pm
Đến từ: Cao Lãnh, Đồng Tháp,Việt Nam
Has thanked: 19 time
Been thanked: 7 time
Liên hệ:

Re: Hướng dẫn Khóa File ảnh có định dạng .BMP

Gửi bàigửi bởi NTN » T.Hai 28/07/2014 5:47 pm

Cám ơn bạn !


Quay về “[VB] Âm thanh và Đồ họa”

Đang trực tuyến

Đang xem chuyên mục này: Không có thành viên nào trực tuyến.0 khách