Chiêu thức lập trình VB 6.0 doc

Chiêu thức lập trình VB 6.0 Tác giả : Lê Nguyên Dũng Lớp 12C 1 trường THPT Đăk Nông (Thị xã Gia Nghĩa - Đ ăk Nông) Email : dungcoivb@gmail.com Nick : dungcoi_vb Địa chỉ nhà : Thôn 1, thị trấn Đăk Mâm Huyện Krông Nô Tỉnh Đắk Nông Tác giả : Lê Nguyên Dũng lớp 12C 1 trường THPT Đăk Nông Trang 1 Chiêu thức lập trình VB 6.0 Lời nói đầu Dù tài liệu này không có mấy người đọc nhưng dù sao với trách nhiệm và sự “Rãnh rỗi” của mình mình sẽ tiếp tục bổ xung thêm cuốn tài liệu này đến khi nào có thể Trong sách tôi xin chỉ rõ xuất xứ, mong rằng các ban cũng sẽ tôn trọng tác giả không chỉnh sửa tác giả hay các xuất xứ Cuốn sách này đi theo định hướng là sử dụng các hàm API hoặc các lệnh đơn giản để tạo thành những thủ thuật và hạn chế tối đa phải sử dụng các công cụ hỗ trợ. Cuốn tài liệu được chia sẽ hoàn toàn miễn phí. Nếu có thắc mác bạn hãy liên hệ với tác giả. Tác giả : Lê Nguyên Dũng lớp 12C 1 trường THPT Đăk Nông Trang 2 Chiêu thức lập trình VB 6.0 Mục lục Đôc chiêu 1 : “Thả một câu từ trên cao xuống” (Có thể nói như vậy) Đôc chiêu 2 : Hiện một câu bằng cách lần lượt hiện từng chữ Đôc chiêu 3 : Hiện con trỏ động tại một đối tượng nào đó Đôc chiêu 4 : Form có hình dạng theo một hình ảnh bất k ỳ Đôc chiêu 5 : “Chụp ảnh màn hình vào một Picture” Đôc chiêu 6 : “Vô hiệu hoá button close và menu của form (cả Alt-F4 luôn)” Đôc chiêu 7 : “Kéo form di chuyển từ một điểm bất kỳ” Đôc chiêu 8 : “Ghi lại tất cả những phím gõ tên bàn phím” Đôc chiêu 9 : Đóng một ứng dụng bất kỳ Đôc chiêu 10 : Tạo phím nóng cho chương trình Đôc chiêu 11 : Thay đổi hình nền cho Desktop Đôc chiêu 12 : Đóng mở khay CD-ROM Đôc chiêu 13 : Tạo một SystemTray cho ứng dụng của bạn Đôc chiêu 14 : Thay đổi Font tiếng việt cho Menu của Window Đôc chiêu 15 : So sánh hai ảnh Đôc chiêu 16 : Liệt kê danh sách các thành phần phần cứng trong máy Đôc chiêu 17 : Chương trình khởi động cùng với Windowns Đôc chiêu 18 : Play một file nhạc Midi Đôc chiêu 19 : Khoá một file ảnh định dạng .bmp Đôc chiêu 20 : Để form của bạn ở chế độ “Luôn nổi” Đôc chiêu 21 : TextBox chỉ “Chịu” nhận số Đôc chiêu 22 : Để form trở nên trong suốt Đôc chiêu 23 : Lấy tên người sử dung của Windowns Đôc chiêu 24 : Chép cả màn hình làm việc vào một Picture Đôc chiêu 25 : Dấu dữ liệu dạng text vào 1 file bất kỳ Đôc chiêu 26 :Mở từng hộp thoại trong Control Panel Đôc chiêu 27 : Mã hoá dữ liệu dạng text Đôc chiêu 28 : Lấy mật khẩu khi đang Chat trên Yahoo Đôc chiêu 29 : Biến giao diện chương trình theo phong cách Windowns XP Đôc chiêu 30 : Làm cho ứng dụng từ từ rõ dần khi Load và mờ dần khi Unload Đôc chiêu 31 : Không cho dịch ngược phần mềm của bạn Đôc chiêu 32 : Lấy kiểu (Type) của đĩa Đôc chiêu 33 : Ẩn thanh Taskbar hoặc các thành phần khác Đôc chiêu 34 : Nhìn Windowns XP CD Key Đôc chiêu 35 : Tùy chọn hộp thoại thông báo của chương trình Đôc chiêu 36 : Đưa con trỏ đến một vị trí nhất định Đôc chiêu 37 : Hiệu ứng khi Click vào Đôc chiêu 38 : Hàm dùng để đoc số ra chữ Đôc chiêu 39 : Để chương trình bạn có giao diện “Nữa trong suốt” Đôc chiêu 40 : Gửi thông điệp tới một máy tinh bất kỳ Đôc chiêu 41 : Quét tất cả các máy trong mạng LAN Đôc chiêu 42 : Liệt kê tất cả các tài nguyên mạng đang trong trạng thái “Mở” Đôc chiêu 43 : Kiểm tra máy tính của bạn có kết nối Internet hay không Đôc chiêu 44 : Liệt kê tất cả các Process đang hoạt động trong máy Tác giả : Lê Nguyên Dũng lớp 12C 1 trường THPT Đăk Nông Trang 3 Chiêu thức lập trình VB 6.0 Đôc chiêu 1 : “Thả một câu từ trên cao xuống” (Có thể nói như vậy) home Xuất xứ : www.pscode.com Binh khí sử dụng : Một Picture và một CommandButton Đoạn mã : Option Explicit Private Sub command1_Click() Randomize Timer 'Khởi tạo ‘Khai báo Dim StartTime(100) 'Thời gian bắt đầu di chuyển lên xuống Dim DownMovement(100) As Boolean ' Chúng ta phải lên xuông bao nhiêu ?????? Dim MoveDistance As Double ' Khoảng cách đích đến Dim YPos(100) As Double ' Tọa độ Y của chữ Dim MovementDone(100) As Boolean ' Là đúng khi lên / xuống hoàn thành Dim StartHeight(100) As Double ' Chiều cào phải đi xuống ??? Dim UpMovementTime(100) As Double ' Chiều dài mà ký tự sẽ lấy để đi lên Dim PowerLoss(100) As Double ' Đã chạm tới điểm dưới dung ????? Dim Message As String ' Thông điệp bạn cần hiển thị Dim Looop As Integer ' Biến vòng lặp Dim TextColor(100) As ColorConstants ' Màu sắc của mỗi ký tự ' Thiết lập picture1.ScaleMode = 4 picture1.FontName = "Courier New" ' Font chữ của ký tự Message = "Ô hiệu ứng chữ !!! Mail của tác giả nè (-_-) : overkillpage@gmx.net" ' Thông điệp bạn muốn hiển thị For Looop = 1 To Len(Message) PowerLoss(Looop) = 0.2 + ((Rnd * 25) / 100) StartHeight(Looop) = 0 TextColor(Looop) = RGB(80 + Looop * 2, 80 + Looop * 2, 255) Next Looop For Looop = 1 To Len(Message) StartTime(Looop) = Timer 'Đặt thời gian xuống, cần phải tính tóan vị trí Next Looop Do picture1.Cls ' Xóa Picture ‘ Vòng lặp để tiến hành đếm từng ký tự For Looop = 1 To Len(Message) If DownMovement(Looop) = True Then MoveDistance = (StartHeight(Looop) + (0.5 * 9.81 * ((Timer - StartTime(Looop)) ^ 2))) ' Tính khoảng cách rơi Tác giả : Lê Nguyên Dũng lớp 12C 1 trường THPT Đăk Nông Trang 4 Chiêu thức lập trình VB 6.0 If YPos(Looop) >= picture1.ScaleHeight - 1 Then MovementDone(Looop) = True ' Ký tự chạm phần đáy dưới Downmovement (Di chuyển xuống) hoàn thành Else MoveDistance = (StartHeight(Looop) + (0.5 * 9.81 * (UpMovementTime(Looop) - (Timer - StartTime(Looop))) ^ 2)) ' Yónh khoảng cách rơi If YPos(Looop) <= StartHeight(Looop) + 0.1 Then MovementDone(Looop) = True ' Ký tự chạm đến điểm cao nhất upmovement (Di chuyển lên trên) hòan thành End If YPos(Looop) = MoveDistance If YPos(Looop) > picture1.ScaleHeight - 1 Then ' Nếu ký tự thỏa điều kiện này phải sửa lại chúng YPos(Looop) = picture1.ScaleHeight - 1 ' Tại vị trí dưới cùng End If picture1.CurrentX = picture1.ScaleWidth / 2 - Int((Len(Message) / 2)) + Looop picture1.CurrentY = YPos(Looop) ' Đặt vị tọa độ Y cho ký tự picture1.ForeColor = TextColor(Looop) ' Đặt màu cho ký tự picture1.Print Mid(Message, Looop, 1) ' Đặt chử vào picture1 Next Looop DoEvents For Looop = 1 To Len(Message) If MovementDone(Looop) = True Then If DownMovement(Looop) = True Then ' Khoảng cách chuyển đổi giữa up/downmovement (Di chuyển lên/Di chuyển xuống) DownMovement(Looop) = False StartHeight(Looop) = StartHeight(Looop) + ((picture1.ScaleHeight - StartHeight(Looop)) * PowerLoss(Looop)) ' Startheight mới, bởi vì tốc độ bị sai ?!?! UpMovementTime(Looop) = Sqr((picture1.ScaleHeight - StartHeight(Looop)) / (0.5 * 9.81)) ' D9ộ dài bao nhiêu sẽ upmovement (Di chuyển lên trên) sau đó??? Else DownMovement(Looop) = True End If StartTime(Looop) = Timer ' Đặt thời gian bắt đầu di chuyển MovementDone(Looop) = False End If Next Looop Loop ' Đến khi StartHeight = picture1.ScaleHeight Tác giả : Lê Nguyên Dũng lớp 12C 1 trường THPT Đăk Nông Trang 5 Chiêu thức lập trình VB 6.0 End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) End End Sub Đôc chiêu 2 : Hiện một câu bằng cách lần lượt hiện từng chữ home Xuất xứ : www.pscode.com Binh khí sử dụng : Một Module , ba CommandButton lần lượt có các tên cmdStart, cmdClear, cmdExit, thêm hai cái đồng hồ tên là Timer1 (Interval =50) và Timer2(Interval =5) cả hai cái đồng hồ đều phải Enabled= False cuối cùng là một label tên là lblText Đoạn mã : Module : Public ASCC(5) As String Public Letters() As String ' Chuỗi ký tự Public TXT As String Public CurLetter As Integer Public TEXTT As String Public r As Integer Form : Private Sub cmdClear_Click() lblText.Caption = "" End Sub Private Sub cmdExit_Click() End End Sub Private Sub cmdStart_Click() TXT = InputBox("Enter Text") ' Nhập ký tự ReDim Preserve Letters(0) ReDim Preserve Letters(Len(TXT)) lblText = "" CurLetter = 0 For l = 1 To Len(TXT) Letters(l) = Mid(TXT, l, 1) Next Timer2.Enabled = True End Sub Private Sub Timer1_Timer() r = r + 1 lblText.Caption = TEXTT lblText.Caption = lblText.Caption & "_" If r = 6 Then r = 0 If 65 < Asc(Letters(CurLetter)) < 90 Then lblText.Caption = TEXTT lblText.Caption = lblText.Caption & Letters(CurLetter) TEXTT = lblText Timer2.Enabled = True Timer1.Enabled = False Else lblText.Caption = TEXTT lblText.Caption = lblText.Caption & Chr$(Asc(Letters(CurLetter)) - 32) TEXTT = lblText Timer2.Enabled = True Timer1.Enabled = False End If Tác giả : Lê Nguyên Dũng lớp 12C 1 trường THPT Đăk Nông Trang 6 Chiêu thức lập trình VB 6.0 End If End Sub Private Sub Timer2_Timer() CurLetter = CurLetter + 1 If CurLetter > Len(TXT) Then GoTo HERE: End If TEXTT = lblText Timer1.Enabled = True Timer2.Enabled = False HERE: Timer2.Enabled = False End Sub Đôc chiêu 3 : Hiện con trỏ động tại một đối tượng nào đó home Xuất xứ : www.ttvnol.com Binh khí sử dụng : Chỉ cần một cái Form Đoạn mã : 'Hằng được sử dụng private Const ConTro=(-12) 'Các hàm API được sử dụng Private Declare Function SetClasslong Lib "user32" Alias "SetClassLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal wNewWord As Long) As Long Private Declare Function LoadCursorFromFile Lib "user32" Alias "LoadCursorFromFileA" (ByVal lpFileName As String) As Long Dim NewCur as long Dim OldCur as long Private Sub Form_Load 'Giả sử rằng bạn đã có sẵn file Clock.ani ở ổ C:\ NewCur=LoadCursorFromFile("C:\Clock.ani") OldCur=SetClassLong(Me.hwnd, ConTro,NewCur) End sub Private Sub Form_UnLoad(Cancel as Integer) SetClassLong me.hwnd, Contro,OldCur End Sub - Ta rút ra được một “Công thức” : Thay vì đặt con trỏ động trong Form ta có thể thay Me.hwnd trong dòng lệnh : OldCur=SetClassLong(Me.hwnd, ConTro,NewCur) bằng đối tựợng.hwnd (Nếu đối tượng đó hổ trợ ) Đôc chiêu 4 : Form có hình dạng theo một hình ảnh bất kỳ (Tất nhiên 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 đó có chứa sẵn một hình ảnh bất kỳ mà bạn muốn làm giao diện 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 những điểm thú vị của đọan Code này. Tác giả : Lê Nguyên Dũng lớp 12C 1 trường THPT Đăk Nông Trang 7 Chiêu thức lập trình VB 6.0 - 1 Module Đoạn mã : ‘ Trong Module : Option Explicit Public Declare Function GetPixel Lib "gdi32" (ByVal hDC As Long, ByVal x As Long, ByVal y As Long) As Long Public Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long Public Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long Public Declare Function CombineRgn Lib "gdi32" (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As Long Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Public Declare Function ReleaseCapture Lib "user32" () As Long Public Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long Public Const RGN_OR = 2 Public Const WM_NCLBUTTONDOWN = &HA1 Public Const HTCAPTION = 2 Public Function MakeRegion(picSkin As PictureBox) As Long Dim x As Long, y As Long, StartLineX As Long Dim FullRegion As Long, LineRegion As Long Dim TransparentColor As Long Dim InFirstRegion As Boolean Dim InLine As Boolean Dim hDC As Long Dim PicWidth As Long Dim PicHeight As Long hDC = picSkin.hDC PicWidth = picSkin.ScaleWidth PicHeight = picSkin.ScaleHeight InFirstRegion = True: InLine = False x = y = StartLineX = 0 TransparentColor = GetPixel(hDC, 0, 0) For y = 0 To PicHeight - 1 For x = 0 To PicWidth - 1 If GetPixel(hDC, x, y) = TransparentColor Or x = PicWidth Then If InLine Then InLine = False LineRegion = CreateRectRgn(StartLineX, y, x, y + 1) If InFirstRegion Then FullRegion = LineRegion InFirstRegion = False Else CombineRgn FullRegion, FullRegion, LineRegion, RGN_OR DeleteObject LineRegion End If End If Else If Not InLine Then InLine = True StartLineX = x End If Tác giả : Lê Nguyên Dũng lớp 12C 1 trường THPT Đăk Nông Trang 8 Chiêu thức lập trình VB 6.0 End If Next Next MakeRegion = FullRegion End Function ‘ Trong Form: Option Explicit Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long Const SWP_NOMOVE = 2 Const SWP_NOSIZE = 1 Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE Private Sub Form_Load() Dim WindowRegion As Long picMainSkin.ScaleMode = vbPixels picMainSkin.AutoRedraw = True picMainSkin.AutoSize = True picMainSkin.BorderStyle = vbBSNone Me.BorderStyle = vbBSNone Set picMainSkin.Picture = picMainSkin.Picture Me.Width = picMainSkin.Width Me.Height = picMainSkin.Height WindowRegion = MakeRegion(picMainSkin) SetWindowRgn Me.hwnd, WindowRegion, True End Sub Private Sub picMainSkin_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) ReleaseCapture SendMessage Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0& End Sub Đôc chiêu 5 : “Chụp ảnh màn hình vào một Picture” home Xuất xứ : www.ttvnol.com Binh khí sử dụng : Một Picture và một CommandButton Đoạn mã : Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function StretchBlt Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long Private Sub Command1_Click() Dim wScreen As Long Dim hScreen As Long Dim w As Long Dim h As Long Picture1.Cls wScreen = Screen.Width \ Screen.TwipsPerPixelX hScreen = Screen.Height \ Screen.TwipsPerPixelY Picture1.ScaleMode = vbPixels w = Picture1.ScaleWidth h = Picture1.ScaleHeight hdcScreen = GetDC(0) Tác giả : Lê Nguyên Dũng lớp 12C 1 trường THPT Đăk Nông Trang 9 Chiêu thức lập trình VB 6.0 r = StretchBlt(Picture1.hdc, 0, 0, w, h, hdcScreen, 0, 0, wScreen, hScreen, vbSrcCopy) End Sub Đôc chiêu 6 : “Vô hiệu hoá button close và menu của form (cả Alt-F4 luôn)” home Xuất xứ : www.ttvnol.com Binh khí sử dụng : Chẳng cần gì ta chỉ cần tay không bắt hổ Đoạn mã : Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long Private Const MF_BYPOSITION = &H400& Private ReadyToClose As Boolean Private Sub RemoveMenus(frm As Form, _ remove_restore As Boolean, _ remove_move As Boolean, _ remove_size As Boolean, _ remove_minimize As Boolean, _ remove_maximize As Boolean, _ remove_seperator As Boolean, _ remove_close As Boolean) Dim hMenu As Long hMenu = GetSystemMenu(hwnd, False) If remove_close Then DeleteMenu hMenu, 6, MF_BYPOSITION If remove_seperator Then DeleteMenu hMenu, 5, MF_BYPOSITION If remove_maximize Then DeleteMenu hMenu, 4, MF_BYPOSITION If remove_minimize Then DeleteMenu hMenu, 3, MF_BYPOSITION If remove_size Then DeleteMenu hMenu, 2, MF_BYPOSITION If remove_move Then DeleteMenu hMenu, 1, MF_BYPOSITION If remove_restore Then DeleteMenu hMenu, 0, MF_BYPOSITION End Sub Private Sub cmdClose_Click() ReadyToClose = True Unload Me End Sub Private Sub Form_Load() RemoveMenus Me, False, False, _ False, False, False, True, True End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) Cancel = Not ReadyToClose End Sub Đôc chiêu 7 : “Kéo form di chuyển từ một điểm bất kỳ” home Xuất xứ : www.allapi.net Binh khí sử dụng : Lại cũng tay không tập bắt hổ Đoạn mã : Tác giả : Lê Nguyên Dũng lớp 12C 1 trường THPT Đăk Nông Trang 10 [...]... MouseDown(vbLeftButton, Id) Case WM_LBUTTONUP RaiseEvent MouseUp(vbLeftButton, Id) Case WM_LBUTTONDBLCLK RaiseEvent MouseDblClick(vbLeftButton, Id) Case WM_RBUTTONDOWN RaiseEvent MouseDown(vbRightButton, Id) Tác giả : Lê Ngun Dũng lớp 12C1 trường THPT Đăk Nơng Trang 20 Chiêu thức lập trình VB 6.0 Case WM_RBUTTONUP RaiseEvent MouseUp(vbRightButton, Id) Case WM_RBUTTONDBLCLK RaiseEvent MouseDblClick(vbRightButton,... Đăk Nơng Trang 34 Chiêu thức lập trình VB 6.0 Loop End Sub Private Sub Form_Load() Me.Font = "VNI-Palatin" Me.AutoRedraw = True Ten_Card_ManHinh Ten_Cac_May_In Ban_Phim Lay_CPU Lay_Ports Lay_Adepter End Sub Đơc chiêu 17 : Chương trình khởi động cùng với Windowns home Xuất xứ : www.pscode.com Binh khí sử dụng : Một Module Đoạn mã : (Trong đoạn mạ còn có thành phần ngừng ngắt chương trình khởi động cùng... Dummy = vbmciSendString("set cdaudio door closed ", 0) End Sub Đơc chiêu 13 : 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 Tác giả : Lê Ngun Dũng lớp 12C1 trường THPT Đăk Nơng Trang 14 Chiêu thức lập trình VB 6.0 Bạn vào VB tạo một ActiveX Control, sau đó add một Module đặt tên là: mSysTray.bas... Dim Tray As NOTIFYICONDATA Dim rc As Long ' If gAddedToTray Then Tray.uID = gTrayId Tray.hwnd = gTrayHwnd Tray.szTip = Tip & vbNullChar Tác giả : Lê Ngun Dũng lớp 12C1 trường THPT Đăk Nơng Trang 18 Chiêu thức lập trình VB 6.0 Tray.uFlags = NIF_TIP Tray.cbSize = Len(Tray) rc = Shell_NotifyIcon(NIM_MODIFY, Tray) End If gTrayTip = Tip PropertyChanged sTrayTip ' ... key-combination has to Tác giả : Lê Ngun Dũng lớp 12C1 trường THPT Đăk Nơng Trang 12 Chiêu thức lập trình VB 6.0 'declared in lowbyte/highbyte-format 'That means as a hex-number: the last two 'characters specify the lowbyte (e.g.: 41 = a), 'the first the highbyte (e.g.: 01 = 1 = Shift) Trong Form : Private Sub Form_Load() Me.WindowState = vbMinimized 'Let windows know what hotkey you want for 'your app, setting... Form_Load() Tao_File_He_Thong End Sub Đơc chiêu 15 : So sánh hai ảnh Xuất xứ : www.ttvnol.com Binh khí sử dụng : home Bạn vẽ lên form1 các control sau : 2 picture box (picture1 và picture2) 2 label edit (label1 và label2) 1 command button (command1) Bạn trang trí form như hình sau: Đoạn mã : Tác giả : Lê Ngun Dũng lớp 12C1 trường THPT Đăk Nơng Trang 25 Chiêu thức lập trình VB 6.0 ''Mã nguồn so sánh hai hình... trắc học thực ra cũng khơng khó về thuật tốn Chỉ cần có máy móc kĩ thuật cao một tí là các bạn có thể làm mọi thứ mình cần Đơc chiêu 16 : Liệt kê danh sách các thành phần phần cứng trong máy Tác giả : Lê Ngun Dũng lớp 12C1 trường THPT Đăk Nơng home Trang 27 Chiêu thức lập trình VB 6.0 Xuất xứ : www.ttvnol.com Binh khí sử dụng : Khơng Đoạn mã : Dim Ports(0 To 100) As PORT_INFO_2 Const KT_TYPE = 0 Const... Me.Caption = "Key Spy" Tác giả : Lê Ngun Dũng lớp 12C1 trường THPT Đăk Nơng Trang 11 Chiêu thức lập trình VB 6.0 SetTimer Me.hwnd, 0, 1, AddressOf TimerProc End Sub Private Sub Form_Paint() Dim R As RECT Const mStr = "Nao bat dau go di khi ban an dau X de thoat ban se thay bat ngo thu vi day." Me.Cls Me.ScaleMode = vbPixels SetRect R, 0, 0, Me.ScaleWidth, Me.ScaleHeight DrawTextEx Me.hDC, mStr, Len(mStr),... "Software\Microsoft\Windows\CurrentVersion\Run", "DungCoi" End Sub ‘Chú ý : Phần DungCoi ở đây là Tên Key ‘ Phần AppVirus là đường dẫn File của bạn Đơc chiêu 18 : Play một file nhạc Midi home Tác giả : Lê Ngun Dũng lớp 12C1 trường THPT Đăk Nơng Trang 35 Chiêu thức lập trình VB 6.0 Xuất xứ : Lê Ngun Dũng (dungcoi2005) sửa lại từ www.allapi.net Binh khí sử dụng : Một Module, 2 nút ấn (CommandButton) Đoạn mã : Module... InTray() As Boolean ' InTray = gInTray ' End Property ' Tác giả : Lê Ngun Dũng lớp 12C1 trường THPT Đăk Nơng Trang 19 Chiêu thức lập trình VB 6.0 ' Private Sub AddIcon(hwnd As Long, Id As Long, Tip As String, Icon As StdPicture) ' Dim Tray As NOTIFYICONDATA Dim tFlags As Long Dim . &H 800 000 00 HKEY_CURRENT_CONFIG = &H 800 000 05 HKEY_CURRENT_USER = &H 800 000 01 HKEY_DYN_DATA = &H 800 000 06 HKEY_LOCAL_MACHINE = &H 800 000 02 HKEY_PERFORMANCE_DATA = &H 800 000 04. Nông Trang 2 Chiêu thức lập trình VB 6. 0 Mục lục Đôc chiêu 1 : “Thả một câu từ trên cao xuống” (Có thể nói như vậy) Đôc chiêu 2 : Hiện một câu bằng cách lần lượt hiện từng chữ Đôc chiêu 3 : Hiện. Internet hay không Đôc chiêu 44 : Liệt kê tất cả các Process đang hoạt động trong máy Tác giả : Lê Nguyên Dũng lớp 12C 1 trường THPT Đăk Nông Trang 3 Chiêu thức lập trình VB 6. 0 Đôc chiêu 1 : “Thả