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

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

Postby NTN » Sat 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 :
[vb]Function MoKhoa(File)
A = FreeFile
Open File For Binary As #A
B$ = Chr(0)
Put #A, 17, B$
Close #A
End Function

Function KhoaAnh(File)
A = FreeFile
Open File For Binary As #A
B$ = "X"
Put #A, 17, B$
Close #A
End Function[/vb]

Và phần còn lại là thêm code sau cho Command 1 2 3:
[vb]Private Sub Command1_Click()
KhoaAnh Text1.Text
End Sub

Private Sub Command2_Click()
MoKhoa Text1.Text
End Sub

Private Sub Command3_Click()
CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileName
End Sub[/vb]

Nếu các bạn sợ không đúng thì coppy toàn bộ code sau :
[vb]Function MoKhoa(File)
A = FreeFile
Open File For Binary As #A
B$ = Chr(0)
Put #A, 17, B$
Close #A
End Function

Function KhoaAnh(File)
A = FreeFile
Open File For Binary As #A
B$ = "X"
Put #A, 17, B$
Close #A
End Function

Private Sub Command1_Click()
KhoaAnh Text1.Text
End Sub

Private Sub Command2_Click()
MoKhoa Text1.Text
End Sub

Private Sub Command3_Click()
CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileName
End Sub

Private Sub Form_Load()
Command1.Caption = "khoa file anh"
Command2.Caption = "Mo file anh"
End Sub
[/vb]

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

Postby phanthequang4101987 » Mon 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´¯)

User avatar
NTN
Thành viên tâm huyết
Thành viên tâm huyết
Posts: 482
Joined: Wed 05/02/2014 3:43 pm
Location: Đồng Tháp,Việt Nam
Has thanked: 19 times
Been thanked: 7 times
Contact:

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

Postby NTN » Mon 28/07/2014 5:47 pm

Cám ơn bạn !


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

Who is online

Users browsing this forum: No registered users and 1 guest