... Chiêu thức lập trình VB 6.0
Liệt kê tất cả các Process đang hoạt động trong máy tính
Xuất xứ :
www.pscode.com
Binh khí sử dụng :
- 1 ListBox mang tên List
- 1 Module
Đoạn mã :
Trong ... pcPriClassBase As Long
dwFlags As Long
szExeFile As String * MAX_PATH
End Type
Trong Form :
Private Sub TienHanh()
Tác giả : Lê Nguyên Dũng lớp 12C
1
trường THPT Đăk Nông Tr...
... Liệt kê danh sách các thành phần phần cứng trong máy home
Xuất xứ : www.ttvnol.com
Binh khí sử dụng : Không
Đoạn mã ... Sub
'*********************************************************************'Thôn
gt tin về tình trạng mạng và thông số card mạng
Private Sub Lay_Adepter()
Dim error As Long
Dim FixedInfoSize As Long
Dim AdapterInfoSize ... hình"
End If
End Sub
&...
... “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 = ... 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,
... Ẩn thanh Taskbar hoặc các thành phần khác
Binh khí : (Nếu bạn muốn test thì tự vẽ thêm các đối tượng vì đoạn code đã tương đối chi tiết)
Xuất xứ : www.pscode.com
... If
End Sub
Trong Form :
Private Sub Form_Load()
Me.Caption = "Key Spy"
Tác giả : Lê Nguyên Dũng lớp 12C
1
trường THPT Đăk Nông Trang 11
Chiêu thức lập trình VB 6.0
End Sub
Đôc chiêu 24 ... "Unknown node type"
End Select
Tác giả : Lê Nguyên Dũng lớp 12C
1
trường THPT Đăk Nông Trang 32
Chiêu thức lập trình VB 6.0
Tác giả : Lê Nguyên Dũng
Lớp 12...