Xem mẫu

  1. Bạn có muốn thêm các chức năng có trong hệ điều hành Windows XP chẳng hạn như Control Panel , Service , Registry Editor , LogOff , Shutdown , Add/Remove Programs , Drive Cleanup , System Restore , Device Manager , Reset khi bạn nhấn chuột phải vào My Computer hay không . Bạn mở trình soạn thảo văn bản Notepad lên sau đó bạn chép và dán đọan mã này vào trong Notepad . Đọan mã như sau : Windows Registry Editor Version 5.00 ;Them Control Panel khi nhan chuot phai o My Computer [HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{20D04FE0- 3AEA-1069-A2D8- 08002B30309D}\shell\Control Panel\command] @="rundll32.exe shell32.dll,Control_RunDLL" ;Them Registry Editor khi nhan chuot phai o My Computer [HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{20D04FE0- 3AEA-1069-A2D8- 08002B30309D}\shell\regedit] @=hex(2):52,00,65,00,67,00,69,00,73,00,74,00,72,00,79,00,20,00,45,00,64,00,69,00,74,00,6f,00,72,00,00,00 [HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{20D04FE0- 3AEA-1069-A2D8- 08002B30309D}\shell\regedit\command] @=hex(2):25,00,77,00,69,00,6e,00,64,00,69,00,72,00,25,00,5c,00,72,00,65,00,67,00,65,00,64,00,69,00,74,00,2e,00,65,00,78,00,65,00,00,00 ;Them Add/Remove khi nhan chuot phai o My Computer [HKEY_CLASSES_ROOT\CLSID\{20D04FE0-3AEA-1069-A2D8- 08002B30309D}\shell\Add/Remove\command] Welcome To VNECHIP http://www.vnechip.com - Where People Go To Know VNECHIP – Advanced Technologies , 24/7 Support , Free Fastest Online @="control appwiz.cpl" ;Them Drive Cleanup khi nhan chuot phai o My Computer [HKEY_CLASSES_ROOT\CLSID\{20D04FE0-3AEA-1069-A2D8- 08002B30309D}\shell\Drive Cleanup\command] @="cleanmgr" ;Them Services khi nhan chuot phai o My Computer [HKEY_CLASSES_ROOT\CLSID\{20D04FE0-3AEA-1069-A2D8- 08002B30309D}\shell\Services] @=hex(2):53,00,65,00,72,00,76,00,69,00,63,00,65,00,73,00,00,00 "SuppressionPolicy"=dword:4000003c [HKEY_CLASSES_ROOT\CLSID\{20D04FE0-3AEA-1069-A2D8- 08002B30309D}\shell\services\command]
  2. @=hex(2):25,00,77,00,69,00,6e,00,64,00,69,00,72,00,25,00,5c,00,73,00,79,00,7 3,00,74,00,65,00,6d,00,33,00,32,00,5c,00,6d,00,6d,00,63,00,2e,00,65,00,78,00,65,00,20,00,2f,00,73,00,20,00,25,00,53,00,79,00,73,00,74,00,65,00,6d,00,52,00,6f,00,6f,00,74,00,25,00,5c,00,73,00,79,00,73,00,74,00,65,00,6d,00,33,00,32,00,5c,00,73,00,65,00,72,00,76,00,69,00,63,00,65,00,73,00,2e,00,6d,00,73,00,63,00,20,00,2f,00,73,00,00,00 ;Them System Restore khi nhan chuot phai o My Computer [HKEY_CLASSES_ROOT\CLSID\{20D04FE0-3AEA-1069-A2D8- 08002B30309D}\shell\System Restore\command] @=hex(2):25,00,77,00,69,00,6e,00,64,00,69,00,72,00,25,00,5c,00,73,00,79,00,7 3,00,74,00,65,00,6d,00,33,00,32,00,5c,00,72,00,65,00,73,00,74,00,6f,00,72,00,65,00,5c,00,72,00,73,00,74,00,72,00,75,00,69,00,2e,00,65,00,78,00,65,00,00,00 ;Them Device Manager khi nhan chuot phai o My Computer [HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{20D04FE0- 3AEA-1069-A2D8- 08002B30309D}\shell\DevMgr] @="Device Manager" [HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{20D04FE0- 3AEA-1069-A2D8- 08002B30309D}\shell\DevMgr\command] @="mmc.exe %%SYSTEMDRIVE%%\\WINDOWS\\SYSTEM32\\devmgmt.msc" ;Them LogOff khi nhan chuot phai o My Computer [HKEY_CLASSES_ROOT\CLSID\{20D04FE0-3AEA-1069-A2D8- 08002B30309D}\shell\[LogOff]\command] @="shutdown -l -f -t 5" ;Them Reset khi nhan chuot phai o My Computer [HKEY_CLASSES_ROOT\CLSID\{20D04FE0-3AEA-1069-A2D8- 08002B30309D}\shell\[Reboot]\command] @="shutdown -r -f -t 5" ;Them Shutdown khi nhan chuot phai o My Computer [HKEY_CLASSES_ROOT\CLSID\{20D04FE0-3AEA-1069-A2D8- 08002B30309D}\shell\[Shutdown]\command] @="shutdown -s -f -t 5" Bây giờ bạn lưu lại với tên là addonmycomputer.reg Tiến hành chạy tập tin này , thật tuyệt khi có các công cụ hổ trợ được thêm vào khi bạn nhấn phím phải chuột và chọn My Computer . 30. Trình diển tất cả các loại Font thông qua Microsoft Word Đọan mã sau sẽ sử dụng Microsoft Word để hiển thị các font chữ được cài đặt trên máy tính của
  3. bạn . Nó sẽ hiển thị tên của font chữ , câu chữ hoa và câu chữ thường , các số từ 0 đến 9 nhờ đó mà người dùng có thể nhận biết các lọai font chữ trên máy tính của mình rất dể dàng mà không sử dụng bất cứ phần mềm xem font chữ hổ trợ nào . Mở Notepad và chép đọan mã sau vào : dim w set w = createobject("word.application") w.visible = true dim d set d = w.documents.add dim iFonts iFonts = w.fontnames.count dim i for i = 1 To iFonts d.content.insertafter w.fontnames(i) & vbcrlf d.content.insertafter "Hien thi Font chu" & vbcrlf d.content.insertafter "Rat de dang ma khong can su dung phan mem ho tro" & vbcrlf d.content.insertafter "0913722650 0919324832 0913696000 0913650651" & vbcrlf next dim rngParagraphs for i = 1 To iFonts * 4 if (i + 3) mod 4 = 0 then set rngParagraphs = d.range(d.paragraphs(i + 1).range.start, d.paragraphs(i + 3).range.end) rngParagraphs.select w.selection.font.name = w.fontnames((i - 1) \ 4 + 1) end if next msgbox "Ket Thuc" Lưu tập tin này lại và đặt tên là viewallfont.vbs 31. Trình diển Power Point và xuất ra JPEG Bạn đang làm bài thuyết trình bằng công cụ Power Point , sau đó bạn muốn xuất “sản phẩm” của mình ra định dạng .jpeg . Thủ thuật sau sẽ giúp bạn thực hiện điều này dể dàng . Bạn mở Notepad và chép đọan mã sau vào , lưu tập tin này và đặt tên cho nó là powerexportjpeg.vbs . MessageText = "Trinh dien PowerPoint va xuat ra dinh dang JPEG" TitleText = "Vi du ve PowerPoint" Call Welcome() Dim oPPT Dim oPPTDoc
  4. Dim sPath Dim sOutput sPath= InputBox("Nhap duong dan cho PowerPoint :",TitleText ) sOutput= InputBox("Nhap duong dan ban can xuat ra dinh dang JPEG:",TitleText ) Set oPPT = WScript.CreateObject("PowerPoint.Application") oPPT.Visible = TRUE Set oPPTDoc=oPPT.Presentations.Open(sPath,,,False) oPPTDoc.Export sOutput,"JPG" oPPTDoc.Close Set oPPTDoc = Nothing oPPT.Quit set oPPT = Nothing MsgBox "Qua trinh xuat ra hoan tat",vbInformation+vbOkOnly,TitleText Sub Welcome() Dim iPrompt iPrompt = MsgBox(MessageText, _ vbOKCancel + vbInformation, _ TitleText ) If iPrompt = vbCancel Then WScript.Quit End If End Sub Sau đó bạn tiến hành chạy tập tin này , chọn OK . Khi đó sẽ có một bãng thông báo hiện ra : Bạn gỏ vào vị trí lưu trử tập tin PowerPoint chẳng hạn như : C:\power.ppt Nhấn nút OK , một bãng thông báo hiện ra bạn nhập đường dẩn mà bạn cần xuất định dạng JPEG chẳng hạn như C:\vhf . Nhấn nút OK . Vậy là xong . Đến đây bạn vào C:\vhf để xem thành quả của mình . 32. Tự động chạy Disk Cleanup bằng cách sử dụng Task Scheduler trong Windows XP Để thuận lợi cho công việc hàng ngày của bạn , bạn có thể sử dụng tiện ích Disk Cleanup có sẳn trên hệ điều hành Windows XPđể xóa các tập tin tạm được lưu trử trên ổ cứng của bạn . Để thực hiện sao cho nhanh chóng và có tính chuyên nghiệp , bạn có thể kết hợp với tiện ích Task Scheduler để “tiêu diệt” các tập tin tạm trên máy tính của mình . Đầu tiên bạn vào Run gỏ cleanmgr /sageset:100 và nhấn phím Enter . Hộp thọai Disk Cleanup sẽ xuất hiện . Chọn các biểu tượng mà bạn muốn xóa các tập tin tạm được lưu trử trên ổ cứng của bạn chẳng
  5. hạn như các biểu tượng Recycle Bin , Temporary Internet Files , Old Chkdsk files nhấn nút OK . Tiếp theo bạn tạo một Shortcut cho Disk Cleanup , bằng cách bạn nhấn chuột phải ở màn hình desktop chọn New-Shortcut . Trong cửa sổ Create Shortcut ở mục Type the location of the item bạn gỏ cleanmgr /sagerun:100 nhấn Next . Trong cửa sổ Select a Title for the Program ở mục Type a name for this shortcut bạn gỏ CleanupTask nhấn Finish để hòan tất . Vào Start – All Programs chọn Accessories - System Tools chọn Scheduled Tasks . Trong màn hình Scheduled Tasks bạn chọn tiếp Add Scheduled Task và nhấn Next . Nhấn nút Browse , tìm vị trí tập tin shortcut Cleanup Task mà bạn đặt cho DiskCleanup . Trong cửa sổ Scheduled Task Wizard . Chọn Weekly (Bạn có thể chọn thời gian tùy thích mà bạn muốn sử dụng chức năng này)
nguon tai.lieu . vn