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...
Post Reply
User avatar
NTN
Thành viên tâm huyết
Thành viên tâm huyết
Posts: 491
Joined: Wed 05/02/2014 3:43 pm
Location: Đồng Tháp,Việt Nam
Has thanked: 20 times
Been thanked: 7 times
Contact:

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

Post by NTN »

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


Vậy là xong ! :-"
User avatar
phanthequang4101987
Thành viên danh dự
Thành viên danh dự
Posts: 116
Joined: Tue 01/04/2008 6:39 am
Location: Nghi Xuân - Hà Tĩnh
Has thanked: 5 times
Been thanked: 21 times
Contact:

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

Post by phanthequang4101987 »

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´¯)
User avatar
NTN
Thành viên tâm huyết
Thành viên tâm huyết
Posts: 491
Joined: Wed 05/02/2014 3:43 pm
Location: Đồng Tháp,Việt Nam
Has thanked: 20 times
Been thanked: 7 times
Contact:

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

Post by NTN »

Cám ơn bạn !
Post Reply

Return to “[VB] Âm thanh và Đồ họa”