... “Ghi lại tất cả những phím gõ tên bàn phím home
Xuất xứ : www.allapi.net
Binh khí sử dụng : Cần một cái Module
Đoạn mã :
Trong Module :
Public Const DT_CENTER = &H1
Public ... Ret = GetPressedKey
If Ret <> sOld Then
sOld = Ret
sSave = sSave + sOld
End If
End Sub
Trong Form :
Private Sub Form_Load()
Me.Caption = "Key Spy"
SetTimer Me.hwnd, 0, 1,
... Tạo một SystemTray cho ứng dụng của bạn home
Xuất xứ : www.ttvnol.com
Binh khí sử dụng : Tương đối nhiều
Đoạn mã :
PHẦN I _ Tạo một OCX đặt tên là cSysTray.ocx
Bạn vào VB tạo một ActiveX ... hwnd, MSG, wParam, lParam)
'
End Function
'
End mSysTray.bas
Sau khi bạn tạo module trên rồi, bạn tạo tiếp một cSysTray.ctl như sau:
cSysTray.ctl
Option Explicit
Private gIn...
... 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.
Đôc chiêu 10 : Tạo phím nóng cho chương trình ... Dũng lớp 12C
1
trường THPT Đăk Nông Trang 17
Chiêu thức lập trình VB 6.0
</dependency>
</assembly>
Save lại và khi muốn cho chương trình có giao...
... chương trình màu tượng trưng cho trong suốt là màu ở câu lệnh TransparentColor =
GetPixel(hDC, 0, 0) có nghĩa là sẽ chính là màu của điểm có tọa độ (0,0) trên Picture này đây
chính là một trong ... có màu tượng trưng cho form trong
suốt) home
Chú ý : Phần này trong lần xuất bản 1 có lỗi
Xuất xứ : www.pscode.com
Binh khí sử dụng :
- 1 picture mang tên : picMainSkin trong...