Các chiêu thức trong lập trình Đóng một ứng dụng bất kỳ home

Đóng một ứng dụng bất kỳ _ home Xuất xứ : www.echip.com.vn Báo eChip Binh khí sử dụng : Cần một cái đồng hồTimer chú ý thuộc tính Interval Riêng tôi cho là 1 Giơi thiệu : Đoạn mã đóng m

Đóng một ứng dụng bất kỳ _ home

Xuất xứ : www.echip.com.vn (Báo eChip)

Binh khí sử dụng : Cần một cái đồng hồ(Timer) chú ý thuộc tính Interval (Riêng tôi cho là 1)

Giơi thiệu : Đoạn mã đóng một cửa sổ bất ỳ nào đó dựa vào tên của nó

Đoạn mã :

Private Declare Function PostMessage Lib "user32" Alias

"PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam

As Long, lParam As Any) As Long

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Sub tmrkiemtra_ Timer ()

Do While FindWindow(vbNullString, "Windows Task Manager") <> 0

‘Gia su toi muon “Thu tieu ` họp thoai “Windows Task Manager”

PostMessage FindWindow(vbNullString, "Windows Task Manager"), &H10O, O&, O&

Loop

End Sub

- Đây là một chiêu thức rất quan trọng của một phần mềm bảo mật nên có thể đang rất cần cho nhiều bạn Riêng tôi do quá “Bát mãn” với cái bọn bạn quỷ quái nên đây s ẽ là một trong những tuyệt chiêu tôi sử dụng để viết Virus (Theo dự tính tiết thực hành thứ 2 tuần tới sẽ có vài cái máy tính của trường phải “Nhập viện”) he he nhưng tôi không tàn nhẫn tới mức phá hoại đâu tui “Hiền lắm” chỉ cho bọn bạn

gà mờ “Biết ít khoe nhiều trên trường” không “Thực hành” thôi, Chúc các bạn có những giây phút “Sản

khoái” như tôi với độc chiêu này