• 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

Bảo vệ thư mục

Các thủ thuật về hệ thống, thư mục, tập tin và mạng
Hình đại diện của người dùng
truongphu
VIP
VIP
Bài viết: 4756
Ngày tham gia: CN 04/11/2007 10:57 am
Đến từ: Cam Đức, Khánh hòa
Has thanked: 14 time
Been thanked: 510 time

Bảo vệ thư mục

Gửi bàigửi bởi truongphu » T.Bảy 17/01/2009 7:47 am

Thủ thuật: Bảo vệ thư mục
Tác giả: truongphu
Mô tả: Tôi có up lên bài: Khóa thư mục (Folder Guard XP) tại Mã nguồn, ngoài ra chúng ta có thể bảo vệ thư mục một cách nhẹ nhàng là .. đóng thư mục ấy nếu nó được mở ra. Code gọn


Vẽ lên Form1: Timer1, command1, Dir1, Drive1, Label1

Mã: Chọn hết

  1. Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
  2. Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
  3. Const NILL = 0&: Const WM_SYSCOMMAND = &H112: Const SC_CLOSE = &HF060
  4.  
  5. Private Sub Command1_Click()
  6. MsgBox "Dùng Task Manager Ðê Tát Chuo'ng Trình"
  7. Me.Hide    'truongphu 17 / 1 / 2009
  8. End Sub
  9.  
  10. Private Sub Dir1_Click()
  11. Label1.Caption = Dir1.List(Dir1.ListIndex)
  12. End Sub
  13.  
  14. Private Sub Drive1_Change()
  15. Dir1.Path = Drive1
  16. End Sub
  17.  
  18. Public Sub CloseFolder(ByVal sWindow As String)
  19. Dim hWndX As Long
  20. hWndX = FindWindow(vbNullString, sWindow)
  21. sCloseWindow = SendMessage(hWndX, WM_SYSCOMMAND, SC_CLOSE, NILL)
  22. End Sub
  23.  
  24. Private Sub Timer1_Timer()
  25. CloseFolder Label1.Caption
  26. End Sub


Tuyệt nhỉ, Mời xem tiếp: Kéo file hình thả vào PictureBox
Cảm ơn đã đọc bài
Tập tin đính kèm
Ðóng Folder Ðac Biêt.rar
(5.12 KiB) Đã tải 970 lần


o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh

Hình đại diện của người dùng
Tunes
Thành viên tích cực
Thành viên tích cực
Bài viết: 116
Ngày tham gia: CN 13/04/2008 6:13 pm
Đến từ: Atlanta, USA
Been thanked: 2 time
Liên hệ:

Re: Bảo vệ thư mục

Gửi bàigửi bởi Tunes » T.Năm 29/01/2009 10:02 pm

Bây giờ cháu mới biết SC_CLOSE, cảm ơn bác.
Development means Challenge

Hình đại diện của người dùng
lightingking
Thành viên chính thức
Thành viên chính thức
Bài viết: 30
Ngày tham gia: T.Bảy 12/04/2008 9:56 pm
Đến từ: Hà Nội
Liên hệ:

Re: Bảo vệ thư mục

Gửi bàigửi bởi lightingking » T.Sáu 30/01/2009 11:22 am

chạy timer thì tốn tài nguyên lắm bác ạ

Hình đại diện của người dùng
T7
Thành viên danh dự
Thành viên danh dự
Bài viết: 415
Ngày tham gia: T.Năm 24/05/2007 8:19 pm
Đến từ: Long Xuyên - An Giang
Been thanked: 12 time
Liên hệ:

Re: Bảo vệ thư mục

Gửi bàigửi bởi T7 » T.Sáu 30/01/2009 7:32 pm

Thế nếu lỡ người ta đổi tên thư mục đó thì sao hả bác truongphu :D ?
While (i <= you) i++;


Quay về “[VB] Hệ thống - Tập tin - Thư mục và Mạng”

Đ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.1 khách